Change the layout of stack traces
authorSimon Marlow <marlowsd@gmail.com>
Thu, 1 Dec 2011 11:10:55 +0000 (11:10 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 1 Dec 2011 11:10:55 +0000 (11:10 +0000)
Stack trace:
  Main.CAF
  Main.main
  Main.main.xs
  Main.map
  Main.map.go
  Main.f

GHC/Stack.hsc

index 7dc8b5b..a2144fc 100644 (file)
@@ -39,7 +39,6 @@ import GHC.Base
 import GHC.Ptr
 import GHC.Foreign as GHC
 import GHC.IO.Encoding
-import Data.List
 
 #define PROFILING
 #include "Rts.h"
@@ -101,7 +100,4 @@ whoCreated obj = do
   ccsToStrings ccs
 
 renderStack :: [String] -> String
-renderStack strs =
-   "{ " ++
-       intercalate "\n  " (zipWith (++) (iterate (' ':) []) strs)
-    ++ " }"
+renderStack strs = "Stack trace:" ++ concatMap ("\n  "++) strs