From 452d973fae544861090fbdea51f4f5da653fb394 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Anders=20M=C3=B6rtberg?= <andersmortberg@gmail.com>
Date: Sun, 10 Jun 2018 13:20:54 -0400
Subject: [PATCH] don't truncate error messages so much

---
 Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index ab8d6d3..8d62190 100644
--- a/Main.hs
+++ b/Main.hs
@@ -90,8 +90,10 @@ initLoop :: [Flag] -> FilePath -> History -> IO ()
 initLoop flags f hist = do
   -- Parse and type check files
   (_,_,mods) <- E.catch (imports True ([],[],[]) f)
-                        (\e -> do putStrLn ("Exception: " ++ takeWhile (/='\n')
-                                           (show (e :: SomeException)))
+                        (\e -> do putStrLn $ unlines $
+                                    ("Exception: " :
+                                     (takeWhile (/= "CallStack (from HasCallStack):")
+                                                   (lines $ show (e :: SomeException))))
                                   return ([],[],[]))
   -- Translate to TT
   let res = runResolver $ resolveModules mods
-- 
2.34.1