diff options
| author | simonpj <simonpj@microsoft.com> | 2010-10-19 10:02:10 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-10-19 10:02:10 +0000 |
| commit | c1eb4b0adb8b3de6f0f95dad2b189d5d8e2d6301 (patch) | |
| tree | 968171041f250d1d7a121cbe278f50f9863412b1 /testsuite/tests/ghc-regress/ghci.debugger | |
| parent | d1a91477681003d5abb8624170fde2e906ab7d88 (diff) | |
| download | haskell-c1eb4b0adb8b3de6f0f95dad2b189d5d8e2d6301.tar.gz | |
Debugger improvements
Diffstat (limited to 'testsuite/tests/ghc-regress/ghci.debugger')
4 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/break012.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/break012.stdout index fa0c498c77..b87d715902 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/break012.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/break012.stdout @@ -11,6 +11,6 @@ b :: a3 -> a3 c :: () d :: a -> a -> a a = (_t1::a1) -b = (_t2::a3 -> a3) +b = (_t2::forall a3. a3 -> a3) c = (_t3::()) d = (_t4::a -> a -> a) diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print027.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print027.stdout index 23b26e05aa..38c46a9118 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print027.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print027.stdout @@ -1,6 +1,6 @@ -+ = (_t1::a -> a -> a) -print = (_t2::a1 -> IO ()) -log = (_t3::a11 -> a11) -head = (_t4::[a111] -> a111) -tail = (_t5::[a1111] -> [a1111]) -fst = (_t6::(a11111, b) -> a11111) ++ = (_t1::forall a. Num a => a -> a -> a) +print = (_t2::forall a. Show a => a -> IO ()) +log = (_t3::forall a. Floating a => a -> a) +head = (_t4::forall a. [a] -> a) +tail = (_t5::forall a. [a] -> [a]) +fst = (_t6::forall a b. (a, b) -> a) diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print030.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print030.stdout index c361234474..a67d0492d2 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print030.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print030.stdout @@ -4,4 +4,4 @@ MkT2 Stopped at print029.hs:4:1-7 _result :: t Int = _ Stopped at print029.hs:4:7 _result :: t Int = _ -x :: t Int = : _ _ +x :: t Int = _ : _ diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print033.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print033.stdout index 62b39bbaea..e60df0905a 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print033.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print033.stdout @@ -1 +1 @@ -u = (_t1::ST s (forall s'. ST s' a)) +u = (_t1::forall s a. ST s (forall s'. ST s' a)) |