[commit: base] master: Change the layout of stack traces (0ced3ed)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0ced3ede62fc51d7a4575f9e4efeeb904efcd76a

>---------------------------------------------------------------

commit 0ced3ede62fc51d7a4575f9e4efeeb904efcd76a
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Dec 1 11:10:55 2011 +0000

    Change the layout of stack traces
    
    Stack trace:
      Main.CAF
      Main.main
      Main.main.xs
      Main.map
      Main.map.go
      Main.f

>---------------------------------------------------------------

 GHC/Stack.hsc |    6 +-----
 1 files changed, 1 insertions(+), 5 deletions(-)

diff --git a/GHC/Stack.hsc b/GHC/Stack.hsc
index 7dc8b5b..a2144fc 100644
--- a/GHC/Stack.hsc
+++ b/GHC/Stack.hsc
@@ -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