@@ -47,8 +47,17 @@ canonicalize :: Env.Env -> Valid.Expr -> Result FreeLocals Can.Expr
4747canonicalize env (A.A region expression) =
4848 A.A region <$>
4949 case expression of
50− Valid.Literal lit ->
51− Result.ok (Can.Literal lit)
50+ Valid.Str string ->
51+ Result.ok (Can.Str string)
52+
53+ Valid.Chr char ->
54+ Result.ok (Can.Chr char)
55+
56+ Valid.Int int ->
57+ Result.ok (Can.Int int)
58+
59+ Valid.Float float ->
60+ Result.ok (Can.Float float)
5261
5362 Valid.Var maybePrefix name ->
5463 Env.findVar region env maybePrefix name
@@ -118,8 +127,8 @@ canonicalize env (A.A region expression) =
118127 <*> canonicalize env b
119128 <*> canonicalizeTupleExtras region env cs
120129
121− Valid.GLShader uid src tipe ->
122− Result.ok (Can.GLShader uid src tipe)
130+ Valid.Shader uid src tipe ->
131+ Result.ok (Can.Shader uid src tipe)
123132
124133
125134