Lots of parser work

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index c9de0cc..750f749 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE TupleSections #-}
 module Main where
 
+import Data.List (intersperse)
 import System.Environment (getArgs)
 import System.Exit (die, exitFailure)
 
@@ -17,10 +18,10 @@ main = do
 
   prog <- case parse fname source of
     This errs -> do
-        mapM_ (putStrLn . printErrMsg) errs
+        sequence_ $ intersperse (putStrLn "") (map (putStrLn . printErrMsg) errs)
         exitFailure
     These errs res -> do
-        mapM_ (putStrLn . printErrMsg) errs
+        sequence_ $ intersperse (putStrLn "") (map (putStrLn . printErrMsg) errs)
         return res
     That res -> return res