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