aboutsummaryrefslogtreecommitdiff
path: root/backend
diff options
context:
space:
mode:
Diffstat (limited to 'backend')
-rw-r--r--backend/CC/Backend/Dumb.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/backend/CC/Backend/Dumb.hs b/backend/CC/Backend/Dumb.hs
index 7982a06..3210dab 100644
--- a/backend/CC/Backend/Dumb.hs
+++ b/backend/CC/Backend/Dumb.hs
@@ -1,11 +1,13 @@
module CC.Backend.Dumb(builtins) where
+import qualified Data.Map.Strict as Map
+
import CC.AST.Typed
import CC.Context
builtins :: Builtins
-builtins = Builtins
+builtins = Builtins . Map.fromList $
[ ("print", TFun TInt (TTup []))
, ("fst", TFun (TTup [TyVar 1, TyVar 2]) (TyVar 1))
, ("snd", TFun (TTup [TyVar 1, TyVar 2]) (TyVar 2))