comments and better type errors

2023-12-18 11:11:22 -07:00
parent f7e850c61a
commit 0470912983
3 changed files with 66 additions and 17 deletions
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -15,5 +15,5 @@ spec :: Spec
 spec = do
    it "should infer `id 3` :: Int" $
        let g = [ ("id", TyVar "a" :-> TyVar "a") ]
-        in infer g [coreExpr|id 3|] `shouldBe` Just TyInt
+        in infer g [coreExpr|id 3|] `shouldBe` Right TyInt