Add some boiler plate for warnings

2023-04-02 00:42:42 +02:00 · 2023-04-02 00:42:42 +02:00 · aaaff776e0
commit aaaff776e0
parent 6c180554ec
2 changed files with 9 additions and 5 deletions
--- a/src/TypeChecker/TypeChecker.hs
+++ b/src/TypeChecker/TypeChecker.hs
@ -15,4 +15,4 @@ typecheck tc = rmTEVar <=< f
  where
    f = case tc of
        Bi -> Bi.typecheck
-        Hm -> Hm.typecheck
+        Hm -> fmap fst . Hm.typecheck