diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-30 21:02:24 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-30 21:02:24 +0100 |
| commit | aaf2ef628772e5789203544ac6226b467891d1d9 (patch) | |
| tree | 5d3dedb1e6c6c12791f8dc5d47d6d29a3b3b0fd8 /src/Compiler.hs | |
| parent | 49940ac6b38204c4b1eb60e9dc1c553c331ac122 (diff) | |
| download | micro-lang-hs-aaf2ef628772e5789203544ac6226b467891d1d9.tar.gz micro-lang-hs-aaf2ef628772e5789203544ac6226b467891d1d9.zip | |
Boolean type, and true/false symbols
Diffstat (limited to 'src/Compiler.hs')
| -rw-r--r-- | src/Compiler.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |