From 39d0650115d61386512ecef4cecf4fe57794fb9a Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Thu, 27 Apr 2023 15:06:42 +0200
Subject: [PATCH] Fixed a booleans not being outputted as literals.

---
 src/Codegen/Emits.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Codegen/Emits.hs b/src/Codegen/Emits.hs
index 876471b..5e41e4b 100644
--- a/src/Codegen/Emits.hs
+++ b/src/Codegen/Emits.hs
@@ -331,6 +331,8 @@ exprToValue = \case
     (MIR.ELit i, _t) -> pure $ case i of
         (MIR.LInt i) -> VInteger i
         (MIR.LChar i) -> VChar $ ord i
+    (MIR.EVar (TIR.Ident "True"), _t) -> pure $ VInteger 1
+    (MIR.EVar (TIR.Ident "False"), _t) -> pure $ VInteger 0
     (MIR.EVar name, t) -> do
         funcs <- gets functions
         cons <- gets constructors