typechecking things

2024-02-09 19:07:34 -07:00
parent 17d764c2ec
commit f53d42bf84
3 changed files with 13 additions and 15 deletions
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -40,6 +40,8 @@ coreExprT :: QuasiQuoter
 coreExprT = mkqq $ lexCoreR >=> parseCoreExprR >=> checkCoreExprR g
    where
        g = [ ("+#", TyCon "Int#" :-> TyCon "Int#" :-> TyCon "Int#")
+            , ("id", TyCon "a" :-> TyCon "a")
+            , ("fix", (TyCon "a" :-> TyCon "a") :-> TyCon "a")
            ]

 mkqq :: (Lift a) => (Text -> RLPCIO a) -> QuasiQuoter