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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
