From d6d0fb714657efaa693cfe02fd7c4bb3eef746dd Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Fri, 24 Mar 2023 17:29:00 +0100
Subject: [PATCH] Enabled compiling to llvm again.

---
 sample-programs/basic-1 | 6 +++---
 src/Main.hs             | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/sample-programs/basic-1 b/sample-programs/basic-1
index f28dc2f..ac5556b 100644
--- a/sample-programs/basic-1
+++ b/sample-programs/basic-1
@@ -1,5 +1,5 @@
-add : Int -> Int -> Int ;
-add x y = x + y;
+add : Int ;
+add = 5;
 
 main : Int ;
-main = add 4 6 ;
+main = add ;
diff --git a/src/Main.hs b/src/Main.hs
index 9f81671..02c49d0 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -59,7 +59,7 @@ main' debug s = do
     when check (removeDirectoryRecursive "output")
     createDirectory "output"
     writeFile "output/llvm.ll" compiled
-    -- if debug then debugDotViz else putStrLn compiled
+    if debug then debugDotViz else putStrLn compiled
 
     -- interpred <- fromInterpreterErr $ interpret lifted
     -- putStrLn "\n-- interpret"