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

Fixed a miss.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-03-23 20:22:36 +01:00
parent c85010a8a1
commit 6cbc83c5d9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Monomorphizer/Monomorphizer.hs
View file

@ -18,7 +18,7 @@ monoDef (T.DBind bind) = DBind $ monoBind bind
monoDef (T.DData d) = DData d
monoBind :: T.Bind -> Bind
monoBind (T.Bind name args (e, t)) = Bind name args (e, t)
monoBind (T.Bind name args (e, t)) = Bind name args (monoExpr e, monoType t)
monoExpr :: T.Exp -> M.Exp
monoExpr = \case