LitE -> Lit

2023-12-18 15:38:26 -07:00
parent ac6f826141
commit 52b7723ea0
1 changed files with 1 additions and 1 deletions
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -76,7 +76,7 @@ gather :: Context' -> Expr' -> HMError (Type, [Constraint])
 gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
    go :: Context' -> Expr' -> StateT ([Constraint], Int) HMError Type
    go g = \case
-        LitE (IntL _) -> pure TyInt
+        Lit (IntL _)  -> pure TyInt
        Var k         -> lift $ maybe e Right $ lookup k g
            where e = Left (TyErrUntypedVariable k)
        App f x       -> do