Error message wibbles

7 files changed, 63 insertions, 63 deletions

diff --git a/testsuite/tests/ghci/scripts/T4087.stdout b/testsuite/tests/ghci/scripts/T4087.stdout
index d3e3ae9abd..e28eac1776 100644
--- a/testsuite/tests/ghci/scripts/T4087.stdout
+++ b/testsuite/tests/ghci/scripts/T4087.stdout
@@ -1,3 +1,3 @@
 data Equal a b where
   Equal :: Equal a a
-  	-- Defined at T4087.hs:5:6-10
+  	-- Defined at T4087.hs:5:6
diff --git a/testsuite/tests/ghci/scripts/ghci008.stdout b/testsuite/tests/ghci/scripts/ghci008.stdout
index 000f254070..d04dcecd69 100644
--- a/testsuite/tests/ghci/scripts/ghci008.stdout
+++ b/testsuite/tests/ghci/scripts/ghci008.stdout
@@ -1,36 +1,36 @@
-class (Eq a, Show a) => Num a where

-  (+) :: a -> a -> a

-  ...

-  	-- Defined in GHC.Num

-infixl 6 +

-class (Eq a, Show a) => Num a where

-  (+) :: a -> a -> a

-  ...

-  	-- Defined in GHC.Num

-infixl 6 +

-data Data.Complex.Complex a = !a Data.Complex.:+ !a

-  	-- Defined in Data.Complex

-infix 6 Data.Complex.:+

-data Data.Complex.Complex a = !a Data.Complex.:+ !a

-  	-- Defined in Data.Complex

-infix 6 Data.Complex.:+

-class (RealFrac a, Floating a) => RealFloat a where

-  floatRadix :: a -> Integer

-  floatDigits :: a -> Int

-  floatRange :: a -> (Int, Int)

-  decodeFloat :: a -> (Integer, Int)

-  encodeFloat :: Integer -> Int -> a

-  exponent :: a -> Int

-  significand :: a -> a

-  scaleFloat :: Int -> a -> a

-  isNaN :: a -> Bool

-  isInfinite :: a -> Bool

-  isDenormalized :: a -> Bool

-  isNegativeZero :: a -> Bool

-  isIEEE :: a -> Bool

-  atan2 :: a -> a -> a

-  	-- Defined in GHC.Float

-instance RealFloat Float -- Defined in GHC.Float

-instance RealFloat Double -- Defined in GHC.Float

-Data.List.isPrefixOf :: Eq a => [a] -> [a] -> Bool

-  	-- Defined in Data.List

+class (Eq a, Show a) => Num a where
+  (+) :: a -> a -> a
+  ...
+  	-- Defined in `GHC.Num'
+infixl 6 +
+class (Eq a, Show a) => Num a where
+  (+) :: a -> a -> a
+  ...
+  	-- Defined in `GHC.Num'
+infixl 6 +
+data Data.Complex.Complex a = !a Data.Complex.:+ !a
+  	-- Defined in `Data.Complex'
+infix 6 Data.Complex.:+
+data Data.Complex.Complex a = !a Data.Complex.:+ !a
+  	-- Defined in `Data.Complex'
+infix 6 Data.Complex.:+
+class (RealFrac a, Floating a) => RealFloat a where
+  floatRadix :: a -> Integer
+  floatDigits :: a -> Int
+  floatRange :: a -> (Int, Int)
+  decodeFloat :: a -> (Integer, Int)
+  encodeFloat :: Integer -> Int -> a
+  exponent :: a -> Int
+  significand :: a -> a
+  scaleFloat :: Int -> a -> a
+  isNaN :: a -> Bool
+  isInfinite :: a -> Bool
+  isDenormalized :: a -> Bool
+  isNegativeZero :: a -> Bool
+  isIEEE :: a -> Bool
+  atan2 :: a -> a -> a
+  	-- Defined in `GHC.Float'
+instance RealFloat Float -- Defined in `GHC.Float'
+instance RealFloat Double -- Defined in `GHC.Float'
+Data.List.isPrefixOf :: Eq a => [a] -> [a] -> Bool
+  	-- Defined in `Data.List'
diff --git a/testsuite/tests/ghci/scripts/ghci011.stdout b/testsuite/tests/ghci/scripts/ghci011.stdout
index 40666e0419..8d78f4176e 100644
--- a/testsuite/tests/ghci/scripts/ghci011.stdout
+++ b/testsuite/tests/ghci/scripts/ghci011.stdout
@@ -1,21 +1,21 @@
-data [] a = [] | a : [a] 	-- Defined in GHC.Types

-instance Eq a => Eq [a] -- Defined in GHC.Classes

-instance Monad [] -- Defined in GHC.Base

-instance Functor [] -- Defined in GHC.Base

-instance Ord a => Ord [a] -- Defined in GHC.Classes

-instance Read a => Read [a] -- Defined in GHC.Read

-instance Show a => Show [a] -- Defined in GHC.Show

-data () = () 	-- Defined in GHC.Tuple

-instance Bounded () -- Defined in GHC.Enum

-instance Enum () -- Defined in GHC.Enum

-instance Eq () -- Defined in GHC.Classes

-instance Ord () -- Defined in GHC.Classes

-instance Read () -- Defined in GHC.Read

-instance Show () -- Defined in GHC.Show

-data (,) a b = (,) a b 	-- Defined in GHC.Tuple

-instance (Bounded a, Bounded b) => Bounded (a, b)

-  -- Defined in GHC.Enum

-instance (Eq a, Eq b) => Eq (a, b) -- Defined in GHC.Classes

-instance (Ord a, Ord b) => Ord (a, b) -- Defined in GHC.Classes

-instance (Read a, Read b) => Read (a, b) -- Defined in GHC.Read

-instance (Show a, Show b) => Show (a, b) -- Defined in GHC.Show

+data [] a = [] | a : [a] 	-- Defined in `GHC.Types'
+instance Eq a => Eq [a] -- Defined in `GHC.Classes'
+instance Monad [] -- Defined in `GHC.Base'
+instance Functor [] -- Defined in `GHC.Base'
+instance Ord a => Ord [a] -- Defined in `GHC.Classes'
+instance Read a => Read [a] -- Defined in `GHC.Read'
+instance Show a => Show [a] -- Defined in `GHC.Show'
+data () = () 	-- Defined in `GHC.Tuple'
+instance Bounded () -- Defined in `GHC.Enum'
+instance Enum () -- Defined in `GHC.Enum'
+instance Eq () -- Defined in `GHC.Classes'
+instance Ord () -- Defined in `GHC.Classes'
+instance Read () -- Defined in `GHC.Read'
+instance Show () -- Defined in `GHC.Show'
+data (,) a b = (,) a b 	-- Defined in `GHC.Tuple'
+instance (Bounded a, Bounded b) => Bounded (a, b)
+  -- Defined in `GHC.Enum'
+instance (Eq a, Eq b) => Eq (a, b) -- Defined in `GHC.Classes'
+instance (Ord a, Ord b) => Ord (a, b) -- Defined in `GHC.Classes'
+instance (Read a, Read b) => Read (a, b) -- Defined in `GHC.Read'
+instance (Show a, Show b) => Show (a, b) -- Defined in `GHC.Show'
diff --git a/testsuite/tests/ghci/scripts/ghci012.stdout b/testsuite/tests/ghci/scripts/ghci012.stdout
index 98780e4152..32ceac8b06 100644
--- a/testsuite/tests/ghci/scripts/ghci012.stdout
+++ b/testsuite/tests/ghci/scripts/ghci012.stdout
@@ -1 +1 @@
-($$$) :: [b -> c] -> [b] -> [c] 	-- Defined at <interactive>:1:8-10
+($$$) :: [b -> c] -> [b] -> [c] 	-- Defined at <interactive>:1:8
diff --git a/testsuite/tests/ghci/scripts/ghci019.stdout b/testsuite/tests/ghci/scripts/ghci019.stdout
index fa4027070c..f50279eeb9 100644
--- a/testsuite/tests/ghci/scripts/ghci019.stdout
+++ b/testsuite/tests/ghci/scripts/ghci019.stdout
@@ -1,2 +1,2 @@
-data Foo = Foo 	-- Defined at ghci019.hs:8:6-8
-instance Prelude.Eq Foo -- Defined at ghci019.hs:9:10-23
+data Foo = Foo 	-- Defined at ghci019.hs:8:6
+instance Prelude.Eq Foo -- Defined at ghci019.hs:9:10
diff --git a/testsuite/tests/ghci/scripts/ghci020.stdout b/testsuite/tests/ghci/scripts/ghci020.stdout
index 30f3bf6083..2741b4feca 100644
--- a/testsuite/tests/ghci/scripts/ghci020.stdout
+++ b/testsuite/tests/ghci/scripts/ghci020.stdout
@@ -1 +1 @@
-data (->) a b 	-- Defined in GHC.Prim
+data (->) a b 	-- Defined in `GHC.Prim'
diff --git a/testsuite/tests/ghci/scripts/ghci033.stdout b/testsuite/tests/ghci/scripts/ghci033.stdout
index 748fab88b3..7c21dbe24e 100644
--- a/testsuite/tests/ghci/scripts/ghci033.stdout
+++ b/testsuite/tests/ghci/scripts/ghci033.stdout
@@ -1,2 +1,2 @@
 data Foo = Foo1 Int | Int `InfixCon` Bool
-  	-- Defined at ghci033.hs:4:6-8
+  	-- Defined at ghci033.hs:4:6