From aaf2ef628772e5789203544ac6226b467891d1d9 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 30 Aug 2022 21:02:24 +0100
Subject: Boolean type, and true/false symbols

---
 src/Compiler.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Compiler.hs')

diff --git a/src/Compiler.hs b/src/Compiler.hs
index bdbc5f3..f788c11 100644
--- a/src/Compiler.hs
+++ b/src/Compiler.hs
@@ -82,6 +82,7 @@ compile x = do
   case x of
     (A.Module name pos) -> return $ Right Nothing
     (A.Num _ _) -> return $ Right $ Just $ A.Type "u8" -- TODO: placeholder
+    (A.Bool' _ _) -> return $ Right $ Just $ A.Type "bool"
     (A.BinOp _ a b) -> do
       l <- compile a
       r <- compile b
-- 
cgit v1.2.3