Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mono adapt

Browse source
This commit is contained in:
sebastianselander 2023-03-24 19:01:33 +01:00
parent 3e31fe0ea5
commit 2566c53f58
2 changed files with 9 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Monomorphizer/Monomorphizer.hs
View file

@ -47,7 +47,7 @@ monoType (T.TAll _ t) = monoType t
monoType (T.TVar (T.MkTVar i)) = M.TLit "Int"
monoType (T.TLit (T.Ident i)) = M.TLit (Ident i)
monoType (T.TFun t1 t2) = M.TFun (monoType t1) (monoType t2)
monoType (T.TData _ _) = error "Not sure what this is"
monoType (T.TData (T.Ident n) t) = M.TLit (Ident (n ++ concatMap show t))
monoexpt :: T.ExpT -> M.ExpT
monoexpt (e, t) = (monoExpr e, monoType t)