[commit: base] master: renderStack: reverse the stack trace (most recent frame first) (ffc3054)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ffc3054840e3183fb35cccb9ce359868dc509040

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

commit ffc3054840e3183fb35cccb9ce359868dc509040
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Mon Dec 5 10:15:10 2011 +0000

    renderStack: reverse the stack trace (most recent frame first)

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

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

diff --git a/GHC/Stack.hsc b/GHC/Stack.hsc
index 0256c50..80e4c9f 100644
--- a/GHC/Stack.hsc
+++ b/GHC/Stack.hsc
@@ -105,4 +105,4 @@ whoCreated obj = do
   ccsToStrings ccs
 
 renderStack :: [String] -> String
-renderStack strs = "Stack trace:" ++ concatMap ("\n  "++) strs
+renderStack strs = "Stack trace:" ++ concatMap ("\n  "++) (reverse strs)