git.iko.soy/elk
on master help sign in
Get types to work out in new canonicalize code
e4dd7f7Evan Czaplicki
compiler/Transform/Canonicalize.hs+1−1
compare with master
unifiedsplit
@@ -325,7 +325,7 @@ expression env (A.A ann expr) =
325
325
326 PortOut name st signal -> PortOut name <$> tipe' env st <*> go signal
326 PortOut name st signal -> PortOut name <$> tipe' env st <*> go signal
327
327
328− GLShader _ _ _ -> return expr
328+ GLShader uid src tipe -> return (GLShader uid src tipe)
329
329
330pattern :: Environment -> P.RawPattern -> Either String P.CanonicalPattern
330pattern :: Environment -> P.RawPattern -> Either String P.CanonicalPattern
331pattern env ptrn =
331pattern env ptrn =