Properly show errors in batch compile mode
commit7c255e9e2bcffc94876e40f96b2433c0c6df1736
authorDavid Christiansen <david@davidchristiansen.dk>
dateSun 3 Nov 2013, 13:52 (13 years ago)
parent6b16b47
src/Idris/REPL.hs+2−1
@@ -1125,7 +1125,8 @@ idrisMain opts =
11251125 ok <- noErrors
11261126 when ok $ case output of
11271127 [] -> return ()
1128− (o:_) -> process stdout "" (Compile cgn o)
1128+ (o:_) -> idrisCatch (process stdout "" (Compile cgn o))
1129+ (\e -> do ist <- getIState ; iputStrLn $ pshow ist e)
11291130 case script of
11301131 Nothing -> return ()
11311132 Just expr -> execScript expr