Added monadic fail to renamer

2023-03-23 16:06:09 +01:00 · 2023-03-23 16:06:09 +01:00 · 519ed8af6c
commit 519ed8af6c
parent 7fa677e3d3
3 changed files with 17 additions and 27 deletions
--- a/src/TypeChecker/TypeCheckerIr.hs
+++ b/src/TypeChecker/TypeCheckerIr.hs
@ -52,7 +52,7 @@ data Exp
    | ELet Bind ExpT
    | EApp ExpT ExpT
    | EAdd ExpT ExpT
-    | EAbs Id ExpT
+    | EAbs Ident ExpT
    | ECase ExpT [Inj]
    deriving (C.Eq, C.Ord, C.Read, C.Show)

@ -156,7 +156,7 @@ instance Print Exp where
            prPrec i 0 $
                concatD
                    [ doc $ showString "λ"
-                    , prtId 0 n
+                    , prt 0 n
                    , doc $ showString "."
                    , prt 0 e
                    ]