@@ -47,8 +47,17 @@ canonicalize :: Env.Env -> Valid.Expr -> Result FreeLocals Can.Expr
47canonicalize env (A.A region expression) =
47canonicalize env (A.A region expression) =
48 A.A region <$>
48 A.A region <$>
49 case expression of
49 case expression of
50− Valid.Literal lit ->
50+ Valid.Str string ->
51− Result.ok (Can.Literal lit)
51+ Result.ok (Can.Str string)
54+ Result.ok (Can.Chr char)
57+ Result.ok (Can.Int int)
60+ Result.ok (Can.Float float)
53 Valid.Var maybePrefix name ->
62 Valid.Var maybePrefix name ->
54 Env.findVar region env maybePrefix name
63 Env.findVar region env maybePrefix name
@@ -118,8 +127,8 @@ canonicalize env (A.A region expression) =
118 <*> canonicalize env b
127 <*> canonicalize env b
119 <*> canonicalizeTupleExtras region env cs
128 <*> canonicalizeTupleExtras region env cs
121− Valid.GLShader uid src tipe ->
130+ Valid.Shader uid src tipe ->
122− Result.ok (Can.GLShader uid src tipe)
131+ Result.ok (Can.Shader uid src tipe)