From: Anders Mörtberg <andersmortberg@gmail.com>
Date: Sun, 10 Jun 2018 17:20:54 +0000 (-0400)
Subject: don't truncate error messages so much
X-Git-Url: https://git.ak3n.com/?a=commitdiff_plain;h=452d973fae544861090fbdea51f4f5da653fb394;p=cubicaltt.git

don't truncate error messages so much
---

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