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"