summaryrefslogtreecommitdiff
path: root/main.hs
diff options
context:
space:
mode:
authortomsmeding <tom.smeding@gmail.com>2017-12-17 22:31:01 +0100
committertomsmeding <tom.smeding@gmail.com>2017-12-17 22:32:05 +0100
commitc25979b76c1dd22b6dc33acb994e9044c56a68f9 (patch)
treec9cb1d35e2d2747af91a7cf963f9af4df19f4abf /main.hs
parent594ecf396cad8a38aac168062249ab3361c5b558 (diff)
#include
Diffstat (limited to 'main.hs')
-rw-r--r--main.hs2
1 files changed, 1 insertions, 1 deletions
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