Add elm/compiler#2120

compiler/src/AST/Utils/Shader.hs

@@ -42,6 +42,7 @@ data Types =
 data Type
   = Int
   | Float
+  | Bool
   | V2
   | V3
   | V4

compiler/src/Parse/Shader.hs

@@ -174,6 +174,7 @@ extractInputs decl =
                 GLS.Mat4 -> [(qual, Shader.M4, name)]
                 GLS.Int -> [(qual, Shader.Int, name)]
                 GLS.Float -> [(qual, Shader.Float, name)]
+                GLS.Bool -> [(qual, Shader.Bool, name)]
                 GLS.Sampler2D -> [(qual, Shader.Texture, name)]
                 _ -> []
     _ -> []

compiler/src/Type/Constrain/Expression.hs

@@ -502,6 +502,7 @@ glToType glType =
     Shader.M4 -> Type.mat4
     Shader.Int -> Type.int
     Shader.Float -> Type.float
+    Shader.Bool -> Type.bool
     Shader.Texture -> Type.texture