From c25979b76c1dd22b6dc33acb994e9044c56a68f9 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sun, 17 Dec 2017 22:31:01 +0100
Subject: #include

---
 main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main.hs')

diff --git a/main.hs b/main.hs
index b7d351a..b56edfe 100644
--- a/main.hs
+++ b/main.hs
@@ -22,7 +22,7 @@ main = do
         [fname] -> readFile fname
         _ -> usage >> exitFailure
 
-    prog <- either (die . show) return (parseProgram source)
+    prog <- parseProgram source >>= either (die . show) return
     irprog <- either die return (compileProgram prog)
     let opt = optimise irprog
     -- print opt
-- 
cgit v1.2.3-54-g00ecf