Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

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

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

commit 0dc6b51e09aab1369920c31da397b6a740d8f0be
Author: Simon Peyton Jones <simo...@microsoft.com>
Date:   Fri Oct 19 02:27:36 2012 +0100

    Minor changes to tidying

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

 .../ghci.debugger/scripts/break022/break022.stdout |    2 +-
 tests/ghci.debugger/scripts/print006.stdout        |    2 +-
 tests/ghci.debugger/scripts/print018.stdout        |   12 ++++++------
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/tests/ghci.debugger/scripts/break022/break022.stdout 
b/tests/ghci.debugger/scripts/break022/break022.stdout
index 49cbd26..99ac58d 100644
--- a/tests/ghci.debugger/scripts/break022/break022.stdout
+++ b/tests/ghci.debugger/scripts/break022/break022.stdout
@@ -1,6 +1,6 @@
 Breakpoint 0 activated at A.hs:4:1-9
 Stopped at A.hs:4:1-9
-_result :: a = _
+_result :: a1 = _
 Stopped at A.hs:4:7-9
 _result :: () = _
 x :: () = ()
diff --git a/tests/ghci.debugger/scripts/print006.stdout 
b/tests/ghci.debugger/scripts/print006.stdout
index 72a0328..1cf7de8 100644
--- a/tests/ghci.debugger/scripts/print006.stdout
+++ b/tests/ghci.debugger/scripts/print006.stdout
@@ -2,7 +2,7 @@ t = O (_t1::a)
 ()
 t = O ((_t2::a1) : (_t3::[a1]))
 ()
-t = O ((_t4::a1) : (_t5::a1) : (_t6::[a1]))
+t = O ((_t4::a2) : (_t5::a2) : (_t6::[a2]))
 ()
 t = O ((_t7::Maybe [Integer]) : Just [2,2] :
        (_t8::[Maybe [Integer]]))
diff --git a/tests/ghci.debugger/scripts/print018.stdout 
b/tests/ghci.debugger/scripts/print018.stdout
index 2686130..62fb191 100644
--- a/tests/ghci.debugger/scripts/print018.stdout
+++ b/tests/ghci.debugger/scripts/print018.stdout
@@ -1,11 +1,11 @@
-Breakpoint 0 activated at ../Test.hs:40:1-17
-Stopped at ../Test.hs:40:1-17
+Breakpoint 0 activated at ..\Test.hs:40:1-17
+Stopped at ..\Test.hs:40:1-17
 _result :: () = _
-Stopped at ../Test.hs:40:10-17
+Stopped at ..\Test.hs:40:10-17
 _result :: () = _
-x :: a = _
-x = (_t1::a)
-x :: a
+x :: a17 = _
+x = (_t1::a17)
+x :: a17
 ()
 x = Unary
 x :: Unary



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to