diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-04-07 14:54:56 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-04-07 15:10:25 +0100 |
| commit | c897613bbf6336d00c9b5433268cb5813308bee9 (patch) | |
| tree | 25af8bc9a0cdc2858f7aa6b2a75c7b02651ebc9f /testsuite/tests/ghci.debugger | |
| parent | 547c597112954353cef7157cb0a389bc4f6303eb (diff) | |
| download | haskell-c897613bbf6336d00c9b5433268cb5813308bee9.tar.gz | |
Error msg wibbles from reduced module prefixes
Diffstat (limited to 'testsuite/tests/ghci.debugger')
4 files changed, 59 insertions, 63 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/break006.stderr b/testsuite/tests/ghci.debugger/scripts/break006.stderr index 865860564d..8a90905260 100644 --- a/testsuite/tests/ghci.debugger/scripts/break006.stderr +++ b/testsuite/tests/ghci.debugger/scripts/break006.stderr @@ -1,32 +1,32 @@ - -<interactive>:6:1: - No instance for (Show t1) arising from a use of ‘print’ - Cannot resolve unknown runtime type ‘t1’ - Use :print or :force to determine these types - Relevant bindings include it :: t1 (bound at <interactive>:6:1) - Note: there are several potential instances: - instance (Show a, Show b) => Show (Either a b) - -- Defined in ‘Data.Either’ - instance Show Data.Monoid.All -- Defined in ‘Data.Monoid’ - instance forall (k :: BOX) (f :: k -> *) (a :: k). - Show (f a) => - Show (Data.Monoid.Alt f a) - -- Defined in ‘Data.Monoid’ - ...plus 33 others - In a stmt of an interactive GHCi command: print it - -<interactive>:8:1: - No instance for (Show t1) arising from a use of ‘print’ - Cannot resolve unknown runtime type ‘t1’ - Use :print or :force to determine these types - Relevant bindings include it :: t1 (bound at <interactive>:8:1) - Note: there are several potential instances: - instance (Show a, Show b) => Show (Either a b) - -- Defined in ‘Data.Either’ - instance Show Data.Monoid.All -- Defined in ‘Data.Monoid’ - instance forall (k :: BOX) (f :: k -> *) (a :: k). - Show (f a) => - Show (Data.Monoid.Alt f a) - -- Defined in ‘Data.Monoid’ - ...plus 33 others - In a stmt of an interactive GHCi command: print it +
+<interactive>:6:1:
+ No instance for (Show t1) arising from a use of ‘print’
+ Cannot resolve unknown runtime type ‘t1’
+ Use :print or :force to determine these types
+ Relevant bindings include it :: t1 (bound at <interactive>:6:1)
+ Note: there are several potential instances:
+ instance (Show a, Show b) => Show (Either a b)
+ -- Defined in ‘Data.Either’
+ instance Show All -- Defined in ‘Data.Monoid’
+ instance forall (k :: BOX) (f :: k -> *) (a :: k).
+ Show (f a) =>
+ Show (Alt f a)
+ -- Defined in ‘Data.Monoid’
+ ...plus 33 others
+ In a stmt of an interactive GHCi command: print it
+
+<interactive>:8:1:
+ No instance for (Show t1) arising from a use of ‘print’
+ Cannot resolve unknown runtime type ‘t1’
+ Use :print or :force to determine these types
+ Relevant bindings include it :: t1 (bound at <interactive>:8:1)
+ Note: there are several potential instances:
+ instance (Show a, Show b) => Show (Either a b)
+ -- Defined in ‘Data.Either’
+ instance Show All -- Defined in ‘Data.Monoid’
+ instance forall (k :: BOX) (f :: k -> *) (a :: k).
+ Show (f a) =>
+ Show (Alt f a)
+ -- Defined in ‘Data.Monoid’
+ ...plus 33 others
+ In a stmt of an interactive GHCi command: print it
diff --git a/testsuite/tests/ghci.debugger/scripts/break024.stdout b/testsuite/tests/ghci.debugger/scripts/break024.stdout index dc3bd73425..62aa429cad 100644 --- a/testsuite/tests/ghci.debugger/scripts/break024.stdout +++ b/testsuite/tests/ghci.debugger/scripts/break024.stdout @@ -1,19 +1,16 @@ -Left user error (error) -Stopped at <exception thrown> -_exception :: e = _ -_exception = SomeException - (GHC.IO.Exception.IOError - Nothing GHC.IO.Exception.UserError [] "error" Nothing Nothing) -*** Exception: user error (error) -Stopped at <exception thrown> -_exception :: e = _ -_exception = SomeException - (GHC.IO.Exception.IOError - Nothing GHC.IO.Exception.UserError [] "error" Nothing Nothing) -*** Exception: user error (error) -Stopped at <exception thrown> -_exception :: e = _ -_exception = SomeException - (GHC.IO.Exception.IOError - Nothing GHC.IO.Exception.UserError [] "error" Nothing Nothing) -Left user error (error) +Left user error (error)
+Stopped at <exception thrown>
+_exception :: e = _
+_exception = SomeException
+ (IOError Nothing UserError [] "error" Nothing Nothing)
+*** Exception: user error (error)
+Stopped at <exception thrown>
+_exception :: e = _
+_exception = SomeException
+ (IOError Nothing UserError [] "error" Nothing Nothing)
+*** Exception: user error (error)
+Stopped at <exception thrown>
+_exception :: e = _
+_exception = SomeException
+ (IOError Nothing UserError [] "error" Nothing Nothing)
+Left user error (error)
diff --git a/testsuite/tests/ghci.debugger/scripts/print026.stdout b/testsuite/tests/ghci.debugger/scripts/print026.stdout index decc3dfb6d..25abae22d8 100644 --- a/testsuite/tests/ghci.debugger/scripts/print026.stdout +++ b/testsuite/tests/ghci.debugger/scripts/print026.stdout @@ -1,6 +1,6 @@ -fromList "abc" -l = Data.Sequence.Seq (Data.Sequence.Deep - 3 (Data.Sequence.One (Data.Sequence.Elem 'a')) Data.Sequence.Empty - (Data.Sequence.Two - (Data.Sequence.Elem 'b') (Data.Sequence.Elem 'c'))) -l = fromList "abc" +fromList "abc"
+l = Data.Sequence.Seq (Data.Sequence.Deep
+ 3 (Data.Sequence.One (Data.Sequence.Elem 'a')) Data.Sequence.Empty
+ (Data.Sequence.Two
+ (Data.Sequence.Elem 'b') (Data.Sequence.Elem 'c')))
+l = fromList "abc"
diff --git a/testsuite/tests/ghci.debugger/scripts/print028.stdout b/testsuite/tests/ghci.debugger/scripts/print028.stdout index 93a80bc69d..3e44dccbc8 100644 --- a/testsuite/tests/ghci.debugger/scripts/print028.stdout +++ b/testsuite/tests/ghci.debugger/scripts/print028.stdout @@ -1,6 +1,5 @@ -l = (_t1::[Maybe Integer]) -Just 1 -r = GHC.IORef.IORef (GHC.STRef.STRef - (GHC.Prim.MutVar# (Just 1 : (_t2::[Maybe Integer])))) -r = GHC.IORef.IORef (GHC.STRef.STRef - (GHC.Prim.MutVar# (Just 1 : _))) +l = (_t1::[Maybe Integer])
+Just 1
+r = IORef (STRef
+ (GHC.Prim.MutVar# (Just 1 : (_t2::[Maybe Integer]))))
+r = IORef (STRef (GHC.Prim.MutVar# (Just 1 : _)))
|