From 6cbc83c5d9099ded84ffc2bacb5aa1fbe0cedd07 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Thu, 23 Mar 2023 20:22:36 +0100
Subject: [PATCH] Fixed a miss.

---
 src/Monomorphizer/Monomorphizer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Monomorphizer/Monomorphizer.hs b/src/Monomorphizer/Monomorphizer.hs
index 6bb16fb..659e813 100644
--- a/src/Monomorphizer/Monomorphizer.hs
+++ b/src/Monomorphizer/Monomorphizer.hs
@@ -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