Add Bool type to WebGL shader interface (ref: elm#2120)

Author: decioferreira

src/Compiler/AST/Utils/Shader.elm

@@ -42,6 +42,7 @@ type Type
     | V4
     | M4
     | Texture
+    | Bool
 
 
 
@@ -176,6 +177,9 @@ typeEncoder type_ =
 
             Texture ->
                 6
+
+            Bool ->
+                7
         )
 
 
@@ -206,6 +210,9 @@ typeDecoder =
                     6 ->
                         BD.succeed Texture
 
+                    7 ->
+                        BD.succeed Bool
+
                     _ ->
                         BD.fail
             )

src/Compiler/Parse/Shader.elm

@@ -227,6 +227,9 @@ extractInputs decl =
                     GLS.Sampler2D ->
                         [ ( qual, Shader.Texture, name ) ]
 
+                    GLS.Bool ->
+                        [ ( qual, Shader.Bool, name ) ]
+
                     _ ->
                         []
 

src/Compiler/Type/Constrain/Expression.elm

@@ -802,6 +802,9 @@ glToType glType =
         Shader.Texture ->
             Type.texture
 
+        Shader.Bool ->
+            Type.bool
+
 
 
 -- CONSTRAIN DESTRUCTURES