@@ -22,6 +22,7 @@ import qualified AST.PrettyPrint as P
2222import qualified AST.Variable as Variable
2323import Elm.Utils ((|>))
2424
25+
2526reserveds :: [String]
2627reserveds =
2728 [ "if", "then", "else"
@@ -83,7 +84,7 @@ rLabel = lowVar
8384
8485innerVarChar :: IParser Char
8586innerVarChar =
86− alphaNum <|> char '_' <|> char '\'' <?> ""
87+ alphaNum <|> char '_' <|> char '\'' <?> ""
8788
8889
8990makeVar :: IParser Char -> IParser String
@@ -459,10 +460,10 @@ glSource src =
459460 Left e -> Left e
460461 Right (GLS.TranslationUnit decls) ->
461462 map extractGLinputs decls
462− |> join
463+ |> join
463464 |> foldr addGLinput emptyDecls
464465 |> Right
465− where
466+ where
466467 emptyDecls = L.GLShaderTipe Map.empty Map.empty Map.empty
467468
468469 addGLinput (qual,tipe,name) glDecls =
@@ -491,11 +492,11 @@ glSource src =
491492 case elem qual [GLS.Attribute, GLS.Varying, GLS.Uniform] of
492493 False -> []
493494 True ->
494− case tipe of
495+ case tipe of
495496 GLS.Int -> return (qual, L.Int,name)
496497 GLS.Float -> return (qual, L.Float,name)
497498 GLS.Vec2 -> return (qual, L.V2,name)
498− GLS.Vec3 -> return (qual, L.V3,name)
499+ GLS.Vec3 -> return (qual, L.V3,name)
499500 GLS.Vec4 -> return (qual, L.V4,name)
500501 GLS.Mat4 -> return (qual, L.M4,name)
501502 GLS.Sampler2D -> return (qual, L.Texture,name)