Tons of error message wibbles
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 28 Sep 2012 14:55:22 +0000 (15:55 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 28 Sep 2012 14:55:22 +0000 (15:55 +0100)
44 files changed:
testsuite/tests/arrows/should_fail/T5380.stderr
testsuite/tests/arrows/should_fail/arrowfail001.stderr
testsuite/tests/deriving/should_fail/T5287.hs
testsuite/tests/deriving/should_fail/T5287.stderr
testsuite/tests/deriving/should_fail/drvfail002.stderr
testsuite/tests/gadt/T3169.stderr
testsuite/tests/generics/GenCannotDoRep0.stderr
testsuite/tests/ghci/scripts/Defer02.stderr
testsuite/tests/indexed-types/should_fail/GADTwrong1.stderr
testsuite/tests/indexed-types/should_fail/T1900.stderr
testsuite/tests/indexed-types/should_fail/T2627b.stderr
testsuite/tests/indexed-types/should_fail/T3330c.stderr
testsuite/tests/indexed-types/should_fail/T3440.stderr
testsuite/tests/module/mod54.stderr
testsuite/tests/polykinds/T6054.stderr
testsuite/tests/simplCore/should_run/T3591.stderr
testsuite/tests/th/T5358.stderr
testsuite/tests/typecheck/should_compile/FD2.stderr
testsuite/tests/typecheck/should_compile/FD3.stderr
testsuite/tests/typecheck/should_compile/tc141.stderr
testsuite/tests/typecheck/should_fail/FrozenErrorTests.hs
testsuite/tests/typecheck/should_fail/FrozenErrorTests.stderr
testsuite/tests/typecheck/should_fail/T2688.stderr
testsuite/tests/typecheck/should_fail/T3950.stderr
testsuite/tests/typecheck/should_fail/T5570.stderr
testsuite/tests/typecheck/should_fail/T5684.stderr
testsuite/tests/typecheck/should_fail/T5689.stderr
testsuite/tests/typecheck/should_fail/T5853.stderr
testsuite/tests/typecheck/should_fail/tcfail032.stderr
testsuite/tests/typecheck/should_fail/tcfail065.stderr
testsuite/tests/typecheck/should_fail/tcfail090.stderr
testsuite/tests/typecheck/should_fail/tcfail099.stderr
testsuite/tests/typecheck/should_fail/tcfail122.stderr
testsuite/tests/typecheck/should_fail/tcfail123.hs
testsuite/tests/typecheck/should_fail/tcfail123.stderr
testsuite/tests/typecheck/should_fail/tcfail133.stderr
testsuite/tests/typecheck/should_fail/tcfail159.stderr
testsuite/tests/typecheck/should_fail/tcfail174.stderr
testsuite/tests/typecheck/should_fail/tcfail175.stderr
testsuite/tests/typecheck/should_fail/tcfail179.stderr
testsuite/tests/typecheck/should_fail/tcfail192.stderr
testsuite/tests/typecheck/should_fail/tcfail198.stderr
testsuite/tests/typecheck/should_fail/tcfail200.stderr
testsuite/tests/typecheck/should_fail/tcfail206.stderr

index 36cf8a4..1d3fa3a 100644 (file)
@@ -1,6 +1,6 @@
 
 T5380.hs:7:27:
-    Couldn't match expected type `not_bool' with actual type `Bool'
+    Couldn't match expected type `Bool' with actual type `not_bool'
       `not_bool' is a rigid type variable bound by
                  the type signature for
                    testB :: not_bool -> (() -> ()) -> () -> not_unit
index 5ba0efd..261aa27 100644 (file)
@@ -1,17 +1,6 @@
 
-arrowfail001.hs:16:27:
-    Couldn't match expected type `a0' with actual type `a'
-      because type variable `a' would escape its scope
-    This (rigid, skolem) type variable is bound by
-      a pattern with constructor
-        Bar :: forall a. Foo a => a -> Bar,
-      in a case alternative
-    In the pattern: Bar a
-    In a case alternative: Bar a -> foo -< a
-    In the command: case x of { Bar a -> foo -< a }
-
 arrowfail001.hs:16:36:
-    No instance for (Foo a0) arising from a use of `foo'
+    No instance for (Foo a) arising from a use of `foo'
     In the expression: foo
     In the expression: proc x -> case x of { Bar a -> foo -< a }
     In an equation for `get':
index 5db2d85..cb1259c 100644 (file)
@@ -4,5 +4,6 @@ class A a oops
 data D d = D d
 instance A a oops => Read (D a)
 data E e = E (D e) deriving Read
+instance A Int Bool
 
 
index e95212f..d74166e 100644 (file)
@@ -4,6 +4,8 @@ T5287.hs:6:29:
       arising from the 'deriving' clause of a data type declaration
     The type variable `oops' is ambiguous
     Possible fix: add a type signature that fixes these type variable(s)
+    Note: there is a potential instance available:
+      instance A Int Bool -- Defined at T5287.hs:7:10
     Possible fix:
       use a standalone 'deriving instance' declaration,
         so you can specify the instance context yourself
index 4594fe9..20d54c6 100644 (file)
@@ -2,8 +2,6 @@
 drvfail002.hs:19:23:
     No instance for (X T c)
       arising from the 'deriving' clause of a data type declaration
-    The type variable `c' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     Possible fix:
       use a standalone 'deriving instance' declaration,
         so you can specify the instance context yourself
index f256f8c..62f49d4 100644 (file)
@@ -1,23 +1,5 @@
 
 T3169.hs:13:22:
-    Could not deduce (Map a ~ MP a b)
-    from the context (Key a, Key b)
-      bound by the instance declaration at T3169.hs:10:10-36
-    Expected type: Map a (Map b elt)
-      Actual type: Map (a, b) elt
-    Relevant bindings include
-      lookup :: (a, b) -> Map (a, b) elt -> Maybe elt
-        (bound at T3169.hs:12:3)
-      a :: a (bound at T3169.hs:12:11)
-      b :: b (bound at T3169.hs:12:13)
-      m :: Map (a, b) elt (bound at T3169.hs:12:17)
-    In the second argument of `lookup', namely `m'
-    In the expression: lookup a m :: Maybe (Map b elt)
-    In the expression:
-      case lookup a m :: Maybe (Map b elt) of {
-        Just (m2 :: Map b elt) -> lookup b m2 :: Maybe elt }
-
-T3169.hs:13:22:
     Could not deduce (elt ~ Map b elt)
     from the context (Key a, Key b)
       bound by the instance declaration at T3169.hs:10:10-36
index 291ab14..e222819 100644 (file)
@@ -9,7 +9,7 @@ GenCannotDoRep0.hs:13:45:
 
 GenCannotDoRep0.hs:17:1:
     Can't make a derived instance of `Generic (P Int)':
-      P must not be instantiated; try deriving `P a' instead
+      P must not be instantiated; try deriving `P Int' instead
     In the stand-alone deriving instance for `Generic (P Int)'
 
 GenCannotDoRep0.hs:26:1:
index 189b4b7..28f8596 100644 (file)
     In the expression: 'p'
     In an equation for `a': a = 'p'
 
-../../typecheck/should_run/Defer01.hs:18:9: Warning:
-    No instance for (Eq B) arising from a use of `=='
-    Possible fix: add an instance declaration for (Eq B)
-    In the expression: x == x
-    In an equation for `b': b x = x == x
-
-../../typecheck/should_run/Defer01.hs:28:5: Warning:
-    No instance for (Num (a -> a)) arising from the literal `1'
-    Possible fix: add an instance declaration for (Num (a -> a))
-    In the expression: 1
-    In an equation for `d': d = 1
+../../typecheck/should_run/Defer01.hs:25:4: Warning:
+    Couldn't match type `Int' with `Bool'
+    Inaccessible code in
+      a pattern with constructor
+        C2 :: Bool -> C Bool,
+      in an equation for `c'
+    In the pattern: C2 x
+    In an equation for `c': c (C2 x) = True
 
 ../../typecheck/should_run/Defer01.hs:31:5: Warning:
     Couldn't match expected type `Char -> t' with actual type `Char'
+    Relevant bindings include
+      f :: t (bound at ../../typecheck/should_run/Defer01.hs:31:1)
     The function `e' is applied to one argument,
     but its type `Char' has none
     In the expression: e 'q'
     In an equation for `f': f = e 'q'
 
-../../typecheck/should_run/Defer01.hs:34:8: Warning:
-    Couldn't match expected type `a' with actual type `Char'
-      `a' is a rigid type variable bound by
-          the type signature for h :: a -> (Char, Char)
-          at ../../typecheck/should_run/Defer01.hs:33:6
-    In the expression: x
-    In the expression: (x, 'c')
-    In an equation for `h': h x = (x, 'c')
-
 ../../typecheck/should_run/Defer01.hs:39:17: Warning:
     Couldn't match expected type `Bool' with actual type `T a'
+    Relevant bindings include
+      i :: a -> () (bound at ../../typecheck/should_run/Defer01.hs:39:1)
+      a :: a (bound at ../../typecheck/should_run/Defer01.hs:39:3)
     In the return type of a call of `K'
     In the first argument of `not', namely `(K a)'
     In the expression: (not (K a))
 
-../../typecheck/should_run/Defer01.hs:43:5: Warning:
-    No instance for (MyClass a1) arising from a use of `myOp'
-    In the expression: myOp 23
-    In an equation for `j': j = myOp 23
-
-../../typecheck/should_run/Defer01.hs:43:10: Warning:
-    No instance for (Num a1) arising from the literal `23'
-    The type variable `a1' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
-    Note: there are several potential instances:
-      instance Num Double -- Defined in `GHC.Float'
-      instance Num Float -- Defined in `GHC.Float'
-      instance Integral a => Num (GHC.Real.Ratio a)
-        -- Defined in `GHC.Real'
-      ...plus three others
-    In the first argument of `myOp', namely `23'
-    In the expression: myOp 23
-    In an equation for `j': j = myOp 23
+../../typecheck/should_run/Defer01.hs:45:6: Warning:
+    Couldn't match type `Int' with `Bool'
+    Inaccessible code in
+      the type signature for k :: Int ~ Bool => Int -> Bool
 
 ../../typecheck/should_run/Defer01.hs:46:7: Warning:
     Couldn't match expected type `Bool' with actual type `Int'
@@ -91,7 +70,6 @@
 (deferred type error)
 *** Exception: ../../typecheck/should_run/Defer01.hs:18:9:
     No instance for (Eq B) arising from a use of `=='
-    Possible fix: add an instance declaration for (Eq B)
     In the expression: x == x
     In an equation for `b': b x = x == x
 (deferred type error)
     In the first argument of `print', namely `(c (C2 True))'
 *** Exception: ../../typecheck/should_run/Defer01.hs:28:5:
     No instance for (Num (a -> a)) arising from the literal `1'
-    Possible fix: add an instance declaration for (Num (a -> a))
     In the expression: 1
     In an equation for `d': d = 1
 (deferred type error)
 *** Exception: ../../typecheck/should_run/Defer01.hs:31:5:
     Couldn't match expected type `Char -> t' with actual type `Char'
+    Relevant bindings include
+      f :: t (bound at ../../typecheck/should_run/Defer01.hs:31:1)
     The function `e' is applied to one argument,
     but its type `Char' has none
     In the expression: e 'q'
     In an equation for `f': f = e 'q'
 (deferred type error)
 *** Exception: ../../typecheck/should_run/Defer01.hs:34:8:
-    Couldn't match expected type `a' with actual type `Char'
+    Couldn't match expected type `Char' with actual type `a'
       `a' is a rigid type variable bound by
           the type signature for h :: a -> (Char, Char)
           at ../../typecheck/should_run/Defer01.hs:33:6
+    Relevant bindings include
+      h :: a -> (Char, Char)
+        (bound at ../../typecheck/should_run/Defer01.hs:34:1)
+      x :: a (bound at ../../typecheck/should_run/Defer01.hs:34:3)
     In the expression: x
     In the expression: (x, 'c')
     In an equation for `h': h x = (x, 'c')
 (deferred type error)
 *** Exception: ../../typecheck/should_run/Defer01.hs:39:17:
     Couldn't match expected type `Bool' with actual type `T a'
+    Relevant bindings include
+      i :: a -> () (bound at ../../typecheck/should_run/Defer01.hs:39:1)
+      a :: a (bound at ../../typecheck/should_run/Defer01.hs:39:3)
     In the return type of a call of `K'
     In the first argument of `not', namely `(K a)'
     In the expression: (not (K a))
index a90b09d..9c5465f 100644 (file)
@@ -1,18 +1,18 @@
 
 GADTwrong1.hs:12:19:
-    Could not deduce (b ~ a1)
+    Could not deduce (a1 ~ b)
     from the context (() ~ Const a1)
       bound by a pattern with constructor
                  T :: forall a. a -> T (Const a),
                in a case alternative
       at GADTwrong1.hs:12:12-14
-      `b' is a rigid type variable bound by
-          the type signature for coerce :: a -> b at GADTwrong1.hs:10:20
       `a1' is a rigid type variable bound by
            a pattern with constructor
              T :: forall a. a -> T (Const a),
            in a case alternative
            at GADTwrong1.hs:12:12
+      `b' is a rigid type variable bound by
+          the type signature for coerce :: a -> b at GADTwrong1.hs:10:20
     Relevant bindings include
       coerce :: a -> b (bound at GADTwrong1.hs:11:1)
       y :: a1 (bound at GADTwrong1.hs:12:14)
index c170c98..93b566d 100644 (file)
@@ -6,7 +6,7 @@ T1900.hs:11:12:
     In the instance declaration for `Bug Int'
 
 T1900.hs:14:16:
-    Could not deduce (Depend s ~ Depend s0)
+    Could not deduce (Depend s0 ~ Depend s)
     from the context (Bug s)
       bound by the type signature for check :: Bug s => Depend s -> Bool
       at T1900.hs:13:10-36
index 0338bf6..e18a8d2 100644 (file)
@@ -1,6 +1,6 @@
 
 T2627b.hs:20:24:
-    Couldn't match expected type `a0' with actual type `Dual (Dual a0)'
+    Couldn't match expected type `Dual (Dual a0)' with actual type `a0'
       `a0' is untouchable
         inside the constraints (b ~ W a2 b2)
         bound by a pattern with constructor
index c9b6348..8c657c8 100644 (file)
@@ -1,10 +1,11 @@
 
 T3330c.hs:23:43:
     Couldn't match kind `*' with `* -> *'
-    Expected type: Der ((->) x) (f1 x)
-      Actual type: R f1
-    Kind incompatibility when matching types:
+    When matching types
       Der ((->) x) :: * -> *
       R :: (* -> *) -> *
+    Expected type: Der ((->) x) (f1 x)
+      Actual type: R f1
     In the first argument of `plug', namely `rf'
     In the first argument of `Inl', namely `(plug rf df x)'
+    In the expression: Inl (plug rf df x)
index 55b021b..b9f49fa 100644 (file)
@@ -1,19 +1,19 @@
 
 T3440.hs:11:22:
-    Could not deduce (a ~ a1)
+    Could not deduce (a1 ~ a)
     from the context (Fam a ~ Fam a1)
       bound by a pattern with constructor
                  GADT :: forall a. a -> Fam a -> GADT (Fam a),
                in an equation for `unwrap'
       at T3440.hs:11:9-16
-      `a' is a rigid type variable bound by
-          the type signature for unwrap :: GADT (Fam a) -> (a, Fam a)
-          at T3440.hs:10:11
       `a1' is a rigid type variable bound by
            a pattern with constructor
              GADT :: forall a. a -> Fam a -> GADT (Fam a),
            in an equation for `unwrap'
            at T3440.hs:11:9
+      `a' is a rigid type variable bound by
+          the type signature for unwrap :: GADT (Fam a) -> (a, Fam a)
+          at T3440.hs:10:11
     Relevant bindings include
       unwrap :: GADT (Fam a) -> (a, Fam a) (bound at T3440.hs:11:1)
       x :: a1 (bound at T3440.hs:11:14)
index 8b41e7f..2670b53 100644 (file)
@@ -3,7 +3,6 @@ mod54.hs:3:22:
     No instance for (Eq T)
       arising from the 'deriving' clause of a data type declaration
     Possible fix:
-      add an instance declaration for (Eq T)
-      or use a standalone 'deriving instance' declaration,
-           so you can specify the instance context yourself
+      use a standalone 'deriving instance' declaration,
+        so you can specify the instance context yourself
     When deriving the instance for (Ord T)
index 8270f4d..bc034d3 100644 (file)
@@ -2,8 +2,6 @@
 T6054.hs:7:14:
     No instance for (Bar () '() a0)
       arising from an expression type signature
-    The type variable `a0' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the first argument of `print', namely
       `(Proxy :: Bar () a => Proxy a)'
     In the expression: print (Proxy :: Bar () a => Proxy a)
index 3fcef52..de1d020 100644 (file)
@@ -51,9 +51,17 @@ fmap await
 fmap await
 fmap await
 liftOut
+liftOut
+inject suspend
+liftFunctor id
+calling fmap
+fmap Either
+poking a
+fmap RightF
 fmap Either
 fmap RightF
 fmap await
+fmap await
 bounce start
 bounce end
 liftOut
@@ -177,9 +185,17 @@ fmap await
 fmap await
 fmap await
 liftOut
+liftOut
+inject suspend
+liftFunctor id
+calling fmap
+fmap Either
+poking a
+fmap RightF
 fmap Either
 fmap RightF
 fmap await
+fmap await
 bounce start
 bounce end
 bounce start
index 01f1ffa..5c9e68c 100644 (file)
@@ -1,3 +1,11 @@
+Loading package ghc-prim ... linking ... done.
+Loading package integer-gmp ... linking ... done.
+Loading package base ... linking ... done.
+Loading package array-0.4.0.1 ... linking ... done.
+Loading package deepseq-1.3.0.1 ... linking ... done.
+Loading package containers-0.5.0.0 ... linking ... done.
+Loading package pretty-1.1.1.0 ... linking ... done.
+Loading package template-haskell ... linking ... done.
 
 T5358.hs:7:1:
     Couldn't match expected type `t1 -> t1' with actual type `Int'
@@ -10,15 +18,34 @@ T5358.hs:8:1:
     but its type `Int' has none
 
 T5358.hs:10:13:
-    Couldn't match expected type `t0 -> a0' with actual type `Int'
+    Couldn't match expected type `t -> a0' with actual type `Int'
+    Relevant bindings include
+      prop_x1 :: t -> Bool (bound at T5358.hs:10:1)
+      x :: t (bound at T5358.hs:10:9)
     The function `t1' is applied to one argument,
     but its type `Int' has none
     In the first argument of `(==)', namely `t1 x'
     In the expression: t1 x == t2 x
 
 T5358.hs:10:21:
-    Couldn't match expected type `t0 -> a0' with actual type `Int'
+    Couldn't match expected type `t -> a0' with actual type `Int'
+    Relevant bindings include
+      prop_x1 :: t -> Bool (bound at T5358.hs:10:1)
+      x :: t (bound at T5358.hs:10:9)
     The function `t2' is applied to one argument,
     but its type `Int' has none
     In the second argument of `(==)', namely `t2 x'
     In the expression: t1 x == t2 x
+
+T5358.hs:12:15:
+    Exception when trying to run compile-time code:
+      runTest called error: forall t_0 . t_0 -> GHC.Types.Bool
+      Code: do { VarI _ t _ _ <- reify (mkName "prop_x1");
+                 ($) error ((++) "runTest called error: " pprint t) }
+    In the expression:
+      $(do { VarI _ t _ _ <- reify (mkName "prop_x1");
+             error $ ("runTest called error: " ++ pprint t) })
+    In an equation for `runTests':
+        runTests
+          = $(do { VarI _ t _ _ <- reify (mkName "prop_x1");
+                   error $ ("runTest called error: " ++ pprint t) })
index d23dd33..8822c1c 100644 (file)
@@ -1,6 +1,6 @@
 
 FD2.hs:26:34:
-    Could not deduce (e1 ~ e)
+    Could not deduce (e ~ e1)
     from the context (Foldable a)
       bound by the class declaration for `Foldable'
       at FD2.hs:(17,1)-(26,39)
@@ -12,14 +12,14 @@ FD2.hs:26:34:
       bound by the type signature for
                  mf :: Elem a e1 => e1 -> Maybe e1 -> Maybe e1
       at FD2.hs:24:18-54
-      `e1' is a rigid type variable bound by
-           the type signature for
-             mf :: Elem a e1 => e1 -> Maybe e1 -> Maybe e1
-           at FD2.hs:24:18
       `e' is a rigid type variable bound by
           the type signature for
             foldr1 :: Elem a e => (e -> e -> e) -> a -> e
           at FD2.hs:21:13
+      `e1' is a rigid type variable bound by
+           the type signature for
+             mf :: Elem a e1 => e1 -> Maybe e1 -> Maybe e1
+           at FD2.hs:24:18
     Relevant bindings include
       foldr1 :: (e -> e -> e) -> a -> e (bound at FD2.hs:22:3)
       f :: e -> e -> e (bound at FD2.hs:22:10)
index 00b0a81..ad849e6 100644 (file)
@@ -4,6 +4,9 @@ FD3.hs:15:15:
       `a' is a rigid type variable bound by
           the type signature for translate :: (String, a) -> A a
           at FD3.hs:14:14
+    Relevant bindings include
+      translate :: (String, a) -> A a (bound at FD3.hs:15:1)
+      a :: (String, a) (bound at FD3.hs:15:11)
     When using functional dependencies to combine
       MkA a a,
         arising from the dependency `a -> b'
index 1942963..e7d7f7c 100644 (file)
@@ -8,10 +8,10 @@ tc141.hs:11:12:
 
 tc141.hs:11:31:
     Couldn't match expected type `a1' with actual type `a'
-      `a1' is a rigid type variable bound by
-           an expression type signature: a1 at tc141.hs:11:31
-      `a' is a rigid type variable bound by
-          the inferred type of f :: (a, a) -> (t, a) at tc141.hs:11:1
+      because type variable `a1' would escape its scope
+    This (rigid, skolem) type variable is bound by
+      an expression type signature: a1
+      at tc141.hs:11:31-34
     Relevant bindings include
       f :: (a, a) -> (t, a) (bound at tc141.hs:11:1)
       x :: (a, a) (bound at tc141.hs:11:3)
@@ -35,10 +35,10 @@ tc141.hs:13:13:
 
 tc141.hs:15:18:
     Couldn't match expected type `a2' with actual type `t'
-      `a2' is a rigid type variable bound by
-           the type signature for v :: a2 at tc141.hs:14:19
-      `t' is a rigid type variable bound by
-          the inferred type of g :: a -> t -> a1 at tc141.hs:13:1
+      because type variable `a2' would escape its scope
+    This (rigid, skolem) type variable is bound by
+      the type signature for v :: a2
+      at tc141.hs:14:19
     Relevant bindings include
       g :: a -> t -> a1 (bound at tc141.hs:13:1)
       b :: t (bound at tc141.hs:13:5)
index bea5495..479087b 100644 (file)
@@ -1,56 +1,53 @@
-{-# LANGUAGE RankNTypes, GADTs, TypeFamilies #-}\r
-module Test where \r
-\r
-\r
-data T a where \r
-  MkT :: a -> T a \r
-  MkT2 :: forall a b. (b ~ T b) => b -> T a\r
-  MkT3 :: forall a. (a ~ Bool) => T a \r
--- Occurs checks in givens\r
-foo :: forall a. (a ~ T a) => a -> a \r
-foo x = x \r
-\r
-blah x = case x of \r
-           MkT2 y -> ()\r
-\r
--- Mismatches in givens \r
-bloh :: T Int -> () \r
-bloh x = case x of \r
-           MkT3 -> () \r
-\r
-type family F a b \r
-type family G a b\r
-type instance F a Bool = a \r
-type instance G a Char = a\r
-\r
-goo1 :: forall a b. (F a b ~ [a]) => b -> a  -> a\r
-goo1 = undefined \r
-\r
-goo2 :: forall a. G a Char ~ [Int] => a -> a\r
-goo2 = undefined\r
-\r
--- Just an occurs check\r
-test1 = goo1 False undefined\r
-\r
--- A frozen occurs check, now transformed to decomposition error\r
-test2 = goo2 (goo1 False undefined)\r
-test3 = goo1 False (goo2 undefined)\r
-\r
-\r
--- A frozen occurs check, now transformed to both a decomposition and occurs check\r
-data M a where \r
-  M :: M a \r
-data T2 a b where\r
-  T2 :: T2 a b \r
-\r
-goo3 :: forall a b. F a b ~ T2 (M a) a => b -> a -> a \r
-goo3 = undefined\r
-\r
-goo4 :: forall a c. G a Char ~ T2 (T2 c c) c => a -> a\r
-goo4 = undefined \r
-\r
-test4 = goo4 (goo3 False undefined)\r
-test5 = goo3 False (goo4 undefined)\r
-\r
-\r
-\r
+{-# LANGUAGE RankNTypes, GADTs, TypeFamilies #-}
+module Test where 
+
+
+data T a where 
+  MkT :: a -> T a 
+  MkT3 :: forall a. (a ~ Bool) => T a 
+
+-- Occurs checks in givens
+foo :: forall a. (a ~ T a) => a -> a 
+foo x = x 
+
+-- Mismatches in givens 
+bloh :: T Int -> () 
+bloh x = case x of 
+           MkT3 -> () 
+
+type family F a b 
+type family G a b
+type instance F a Bool = a 
+type instance G a Char = a
+
+goo1 :: forall a b. (F a b ~ [a]) => b -> a  -> a
+goo1 = undefined 
+
+goo2 :: forall a. G a Char ~ [Int] => a -> a
+goo2 = undefined
+
+-- Just an occurs check
+test1 = goo1 False undefined
+
+-- A frozen occurs check, now transformed to decomposition error
+test2 = goo2 (goo1 False undefined)
+test3 = goo1 False (goo2 undefined)
+
+
+-- A frozen occurs check, now transformed to both a decomposition and occurs check
+data M a where 
+  M :: M a 
+data T2 a b where
+  T2 :: T2 a b 
+
+goo3 :: forall a b. F a b ~ T2 (M a) a => b -> a -> a 
+goo3 = undefined
+
+goo4 :: forall a c. G a Char ~ T2 (T2 c c) c => a -> a
+goo4 = undefined 
+
+test4 = goo4 (goo3 False undefined)
+test5 = goo3 False (goo4 undefined)
+
+
+
index d4ce2ce..0e2ec6c 100644 (file)
@@ -7,22 +7,7 @@ FrozenErrorTests.hs:10:8:
     Inaccessible code in
       the type signature for foo :: a ~ T a => a -> a
 
-FrozenErrorTests.hs:14:12:
-    Couldn't match type `b' with `T b'
-      `b' is a rigid type variable bound by
-          a pattern with constructor
-            MkT2 :: forall a b. b ~ T b => b -> T a,
-          in a case alternative
-          at FrozenErrorTests.hs:14:12
-    Inaccessible code in
-      a pattern with constructor
-        MkT2 :: forall a b. b ~ T b => b -> T a,
-      in a case alternative
-    In the pattern: MkT2 y
-    In a case alternative: MkT2 y -> ()
-    In the expression: case x of { MkT2 y -> () }
-
-FrozenErrorTests.hs:19:12:
+FrozenErrorTests.hs:16:12:
     Couldn't match type `Int' with `Bool'
     Inaccessible code in
       a pattern with constructor
@@ -32,14 +17,16 @@ FrozenErrorTests.hs:19:12:
     In a case alternative: MkT3 -> ()
     In the expression: case x of { MkT3 -> () }
 
-FrozenErrorTests.hs:33:9:
-    Occurs check: cannot construct the infinite type: a0 = [a0]
-    Expected type: [a0]
-      Actual type: F a0 Bool
+FrozenErrorTests.hs:30:9:
+    Occurs check: cannot construct the infinite type: a ~ [a]
+    Expected type: [a]
+      Actual type: F a Bool
+    Relevant bindings include
+      test1 :: a (bound at FrozenErrorTests.hs:30:1)
     In the expression: goo1 False undefined
     In an equation for `test1': test1 = goo1 False undefined
 
-FrozenErrorTests.hs:36:15:
+FrozenErrorTests.hs:33:15:
     Couldn't match type `Int' with `[Int]'
     Expected type: [[Int]]
       Actual type: F [Int] Bool
@@ -47,24 +34,28 @@ FrozenErrorTests.hs:36:15:
     In the expression: goo2 (goo1 False undefined)
     In an equation for `test2': test2 = goo2 (goo1 False undefined)
 
-FrozenErrorTests.hs:37:9:
-    Couldn't match type `[Int]' with `Int'
+FrozenErrorTests.hs:34:9:
+    Couldn't match type `Int' with `[Int]'
     Expected type: [[Int]]
       Actual type: F [Int] Bool
     In the expression: goo1 False (goo2 undefined)
     In an equation for `test3': test3 = goo1 False (goo2 undefined)
 
-FrozenErrorTests.hs:52:15:
-    Couldn't match type `T2 c0 c0' with `M (T2 (T2 c0 c0) c0)'
-    Expected type: T2 (M (T2 (T2 c0 c0) c0)) (T2 (T2 c0 c0) c0)
-      Actual type: F (T2 (T2 c0 c0) c0) Bool
+FrozenErrorTests.hs:49:15:
+    Couldn't match type `T2 c c' with `M (T2 (T2 c c) c)'
+    Expected type: T2 (M (T2 (T2 c c) c)) (T2 (T2 c c) c)
+      Actual type: F (T2 (T2 c c) c) Bool
+    Relevant bindings include
+      test4 :: T2 (T2 c c) c (bound at FrozenErrorTests.hs:49:1)
     In the first argument of `goo4', namely `(goo3 False undefined)'
     In the expression: goo4 (goo3 False undefined)
     In an equation for `test4': test4 = goo4 (goo3 False undefined)
 
-FrozenErrorTests.hs:53:9:
-    Couldn't match type `T2 c0 c0' with `M (T2 (T2 c0 c0) c0)'
-    Expected type: T2 (M (T2 (T2 c0 c0) c0)) (T2 (T2 c0 c0) c0)
-      Actual type: F (T2 (T2 c0 c0) c0) Bool
+FrozenErrorTests.hs:50:9:
+    Couldn't match type `T2 c c' with `M (T2 (T2 c c) c)'
+    Expected type: T2 (M (T2 (T2 c c) c)) (T2 (T2 c c) c)
+      Actual type: F (T2 (T2 c c) c) Bool
+    Relevant bindings include
+      test5 :: T2 (T2 c c) c (bound at FrozenErrorTests.hs:50:1)
     In the expression: goo3 False (goo4 undefined)
     In an equation for `test5': test5 = goo3 False (goo4 undefined)
index b937de0..3bb0f49 100644 (file)
@@ -1,13 +1,13 @@
 
 T2688.hs:8:22:
-    Could not deduce (v ~ s)
+    Could not deduce (s ~ v)
     from the context (VectorSpace v s)
       bound by the class declaration for `VectorSpace'
       at T2688.hs:(5,1)-(8,23)
-      `v' is a rigid type variable bound by
-          the class declaration for `VectorSpace' at T2688.hs:5:19
       `s' is a rigid type variable bound by
           the class declaration for `VectorSpace' at T2688.hs:5:21
+      `v' is a rigid type variable bound by
+          the class declaration for `VectorSpace' at T2688.hs:5:19
     Relevant bindings include
       ^/ :: v -> s -> v (bound at T2688.hs:8:5)
       v :: v (bound at T2688.hs:8:5)
index 876a499..07b1d32 100644 (file)
@@ -1,10 +1,16 @@
 
 T3950.hs:15:13:
     Couldn't match kind `* -> *' with `*'
-    Expected type: w (Id p)
-      Actual type: Sealed (Id p0 x0)
-    Kind incompatibility when matching types:
+    When matching types
       w :: (* -> * -> *) -> *
       Sealed :: (* -> *) -> *
+    Expected type: w (Id p)
+      Actual type: Sealed (Id p0 x0)
     In the first argument of `Just', namely rp'
     In the expression: Just rp'
+    In an equation for `rp':
+        rp _
+          = Just rp'
+          where
+              rp' :: Sealed (Id p x)
+              rp' = undefined
index e69cbd5..63229e6 100644 (file)
@@ -1,6 +1,9 @@
 
 T5570.hs:7:16:
-    Couldn't match expected kind `*' with actual kind `#'
+    Couldn't match kind `*' with `#'
+    When matching types
+      t0 :: *
+      Double# :: #
     In the second argument of `($)', namely `D# $ 3.0##'
     In the expression: print $ D# $ 3.0##
     In an equation for `main': main = print $ D# $ 3.0##
index c0575fd..a94aa88 100644 (file)
@@ -1,8 +1,6 @@
 
 T5684.hs:25:12:
     No instance for (A b6) arising from a use of `op'
-    The type variable `b6' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op False False, op 'c' undefined, op True undefined]
@@ -11,8 +9,6 @@ T5684.hs:25:12:
 
 T5684.hs:30:12:
     No instance for (A b5) arising from a use of `op'
-    The type variable `b5' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op False False, op True undefined, op 'c' undefined]
@@ -21,8 +17,6 @@ T5684.hs:30:12:
 
 T5684.hs:36:12:
     No instance for (A b4) arising from a use of `op'
-    The type variable `b4' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op 'c' undefined, op True undefined, op False False]
@@ -31,8 +25,6 @@ T5684.hs:36:12:
 
 T5684.hs:42:12:
     No instance for (A b3) arising from a use of `op'
-    The type variable `b3' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op 'c' undefined, op False False, op True undefined]
@@ -41,8 +33,6 @@ T5684.hs:42:12:
 
 T5684.hs:46:12:
     No instance for (A b2) arising from a use of `op'
-    The type variable `b2' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op True undefined, op 'c' undefined, op False False]
@@ -51,8 +41,6 @@ T5684.hs:46:12:
 
 T5684.hs:52:12:
     No instance for (A b0) arising from a use of `op'
-    The type variable `b0' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op True undefined
     In the expression:
       [op True undefined, op False False, op 'c' undefined]
@@ -69,8 +57,6 @@ T5684.hs:53:12:
 
 T5684.hs:54:12:
     No instance for (B Char b1) arising from a use of `op'
-    The type variable `b1' is ambiguous
-    Possible fix: add a type signature that fixes these type variable(s)
     In the expression: op 'c' undefined
     In the expression:
       [op True undefined, op False False, op 'c' undefined]
index 48e923b..ca4562e 100644 (file)
@@ -1,6 +1,6 @@
 
 T5689.hs:10:36:
-    Couldn't match expected type `t' with actual type `Bool'
+    Couldn't match expected type `Bool' with actual type `t'
     Relevant bindings include
       r :: IORef (t -> t) (bound at T5689.hs:7:14)
       v :: t (bound at T5689.hs:10:28)
index 6ee736c..c36d64e 100644 (file)
@@ -1,6 +1,6 @@
 
 T5853.hs:15:52:
-    Could not deduce (Subst fa b ~ Subst (Subst fa a) b)
+    Could not deduce (Subst (Subst fa a) b ~ Subst fa b)
     from the context (F fa,
                       Elem (Subst fa b) ~ b,
                       Subst (Subst fa b) (Elem fa) ~ fa,
index 09d69ca..5a93f8c 100644 (file)
@@ -1,6 +1,6 @@
 
 tcfail032.hs:14:8:
-    Couldn't match expected type `t' with actual type `a1 -> Int'
+    Couldn't match expected type `a1 -> Int' with actual type `t'
       because type variable `a1' would escape its scope
     This (rigid, skolem) type variable is bound by
       an expression type signature: Eq a1 => a1 -> Int
index ae19816..c680e82 100644 (file)
@@ -1,11 +1,11 @@
 
 tcfail065.hs:29:20:
     Couldn't match expected type `x' with actual type `x1'
-      `x' is a rigid type variable bound by
-          the instance declaration at tcfail065.hs:28:10
       `x1' is a rigid type variable bound by
            the type signature for setX :: x1 -> X x -> X x
            at tcfail065.hs:29:3
+      `x' is a rigid type variable bound by
+          the instance declaration at tcfail065.hs:28:10
     Relevant bindings include
       setX :: x1 -> X x -> X x (bound at tcfail065.hs:29:3)
       x :: x1 (bound at tcfail065.hs:29:8)
index f63d96e..3096b22 100644 (file)
@@ -1,7 +1,7 @@
 
 tcfail090.hs:8:9:
-    Couldn't match kind `*' against `#'
-    Kind incompatibility when matching types:
+    Couldn't match kind `*' with `#'
+    When matching types
       a0 :: *
       ByteArray# :: #
     In the expression: undefined
index 49132b0..4553125 100644 (file)
@@ -1,13 +1,12 @@
 
 tcfail099.hs:9:20:
     Couldn't match expected type `a' with actual type `t'
-      `a' is a rigid type variable bound by
-          a pattern with constructor
-            C :: forall a. (a -> Int) -> DS,
-          in an equation for `call'
-          at tcfail099.hs:9:7
-      `t' is a rigid type variable bound by
-          the inferred type of call :: DS -> t -> Int at tcfail099.hs:9:1
+      because type variable `a' would escape its scope
+    This (rigid, skolem) type variable is bound by
+      a pattern with constructor
+        C :: forall a. (a -> Int) -> DS,
+      in an equation for `call'
+      at tcfail099.hs:9:7-9
     Relevant bindings include
       call :: DS -> t -> Int (bound at tcfail099.hs:9:1)
       f :: a -> Int (bound at tcfail099.hs:9:9)
index 7002ee0..d083321 100644 (file)
@@ -1,11 +1,17 @@
 
 tcfail122.hs:8:9:
-    Couldn't match kind `* -> *' against `*'
-    Kind incompatibility when matching types:
-      c0 :: (* -> *) -> *
-      a0 :: * -> *
+    Couldn't match kind `* -> *' with `*'
+    When matching types
+      d0 :: * -> *
+      b :: *
+    Expected type: a b
+      Actual type: c0 d0
     In the expression:
         undefined :: forall (c :: (* -> *) -> *) (d :: * -> *). c d
     In the expression:
       [undefined :: forall a b. a b,
        undefined :: forall (c :: (* -> *) -> *) (d :: * -> *). c d]
+    In an equation for `foo':
+        foo
+          = [undefined :: forall a b. a b,
+             undefined :: forall (c :: (* -> *) -> *) (d :: * -> *). c d]
index 8e91bbe..6a33eb7 100644 (file)
@@ -8,4 +8,5 @@ module ShouldFail where
 
 f x = True
 
-h v = (f 3#, f 4.3#, f True)
+h v = f 3#
+-- h v = (f 3#, f 4.3#, f True)
index b7ec97f..1ca291f 100644 (file)
@@ -1,8 +1,9 @@
 
-tcfail123.hs:11:10:
-    Couldn't match kind `*' against `#'
-    Kind incompatibility when matching types:
+tcfail123.hs:11:9:
+    Couldn't match kind `*' with `#'
+    When matching types
       t0 :: *
       GHC.Prim.Int# :: #
     In the first argument of `f', namely `3#'
     In the expression: f 3#
+    In an equation for `h': h v = f 3#
index 48ea0eb..ed65b28 100644 (file)
@@ -3,8 +3,8 @@ tcfail133.hs:2:61: Warning:
     -XDatatypeContexts is deprecated: It was widely considered a misfeature, and has been removed from the Haskell language.
 
 tcfail133.hs:68:7:
-    No instance for (Show a0) arising from a use of `show'
-    The type variable `a0' is ambiguous
+    No instance for (Show t0) arising from a use of `show'
+    The type variable `t0' is ambiguous
     Possible fix: add a type signature that fixes these type variable(s)
     Note: there are several potential instances:
       instance Show Zero -- Defined at tcfail133.hs:8:29
@@ -18,7 +18,7 @@ tcfail133.hs:68:7:
         foo = show $ add (One :@ Zero) (One :@ One)
 
 tcfail133.hs:68:14:
-    No instance for (AddDigit (Zero :@ (One :@ One)) One a0)
+    No instance for (AddDigit (Zero :@ (One :@ One)) One t0)
       arising from a use of `add'
     In the second argument of `($)', namely
       `add (One :@ Zero) (One :@ One)'
index c809e39..3576c7e 100644 (file)
@@ -1,8 +1,9 @@
 
 tcfail159.hs:9:11:
-    Couldn't match kind `*' against `#'
-    Kind incompatibility when matching types:
+    Couldn't match kind `*' with `#'
+    When matching types
       t0 :: *
       (# Int, Int #) :: #
     In the pattern: ~(# p, q #)
     In a case alternative: ~(# p, q #) -> p
+    In the expression: case h x of { ~(# p, q #) -> p }
index 762a87e..d093e32 100644 (file)
@@ -5,31 +5,3 @@ tcfail174.hs:9:10:
     In the first argument of `Base', namely `id'
     In the expression: Base id
     In an equation for `g': g = Base id
-
-tcfail174.hs:13:14:
-    Couldn't match type `a' with `a1'
-      because type variable `a1' would escape its scope
-    This (rigid, skolem) type variable is bound by
-      the type forall a. a -> a
-      at tcfail174.hs:13:14
-    Expected type: Capture (forall x. x -> a)
-      Actual type: Capture (forall a. a -> a)
-    Relevant bindings include
-      h1 :: Capture a (bound at tcfail174.hs:13:1)
-    In the first argument of `Capture', namely `g'
-    In the expression: Capture g
-    In an equation for `h1': h1 = Capture g
-
-tcfail174.hs:16:14:
-    Couldn't match type `a' with `b'
-      `a' is a rigid type variable bound by
-          the type forall a. a -> a at tcfail174.hs:16:14
-      `b' is a rigid type variable bound by
-          the type signature for h2 :: Capture b at tcfail174.hs:15:7
-    Expected type: Capture (forall x. x -> b)
-      Actual type: Capture (forall a. a -> a)
-    Relevant bindings include
-      h2 :: Capture b (bound at tcfail174.hs:16:1)
-    In the first argument of `Capture', namely `g'
-    In the expression: Capture g
-    In an equation for `h2': h2 = Capture g
index d467a15..65f4cb9 100644 (file)
@@ -1,7 +1,7 @@
 
 tcfail175.hs:11:1:
-    Couldn't match expected type `a'
-                with actual type `String -> String -> String'
+    Couldn't match expected type `String -> String -> String'
+                with actual type `a'
       `a' is a rigid type variable bound by
           the type signature for evalRHS :: Int -> a at tcfail175.hs:10:12
     Relevant bindings include
index c60c7ac..ed0325a 100644 (file)
@@ -1,13 +1,13 @@
 
 tcfail179.hs:14:39:
     Couldn't match expected type `s' with actual type `x'
-      `s' is a rigid type variable bound by
-          the type signature for run :: T s -> Int at tcfail179.hs:12:8
       `x' is a rigid type variable bound by
           a pattern with constructor
             T :: forall s x. (s -> (x -> s) -> (x, s, Int)) -> T s,
           in a case alternative
           at tcfail179.hs:14:14
+      `s' is a rigid type variable bound by
+          the type signature for run :: T s -> Int at tcfail179.hs:12:8
     Relevant bindings include
       run :: T s -> Int (bound at tcfail179.hs:13:1)
       ts :: T s (bound at tcfail179.hs:13:5)
index d4cc8bb..caf7ef1 100644 (file)
@@ -1,12 +1,4 @@
 
-tcfail192.hs:8:11:
-    No instance for (Num [[Char]]) arising from a use of `+'
-    In the expression: x + 1
-    In the expression:
-      [x + 1 | x <- ["Hello", "World"], then group using take 5]
-    In an equation for `foo':
-        foo = [x + 1 | x <- ["Hello", "World"], then group using take 5]
-
 tcfail192.hs:10:26:
     Couldn't match type `a' with `[a]'
       `a' is a rigid type variable bound by
index ab040a1..22a09f5 100644 (file)
@@ -1,10 +1,10 @@
 
 tcfail198.hs:6:36:
     Couldn't match expected type `a1' with actual type `a'
-      `a1' is a rigid type variable bound by
-           an expression type signature: a1 at tcfail198.hs:6:36
-      `a' is a rigid type variable bound by
-          the inferred type of f3 :: [a] -> [a] at tcfail198.hs:6:1
+      because type variable `a1' would escape its scope
+    This (rigid, skolem) type variable is bound by
+      an expression type signature: a1
+      at tcfail198.hs:6:36-41
     Relevant bindings include
       f3 :: [a] -> [a] (bound at tcfail198.hs:6:6)
       x :: a (bound at tcfail198.hs:6:19)
index c75dc8f..731f906 100644 (file)
@@ -1,8 +1,9 @@
 
 tcfail200.hs:5:15:
-    Couldn't match kind `*' against `#'
-    Kind incompatibility when matching types:
-      t0 :: *
+    Couldn't match kind `*' with `#'
+    When matching types
+      t1 :: *
       GHC.Prim.Int# :: #
     In the expression: 1#
     In the expression: (1#, 'c')
+    In an equation for `x': x = (1#, 'c')
index 2d0f871..706933d 100644 (file)
@@ -13,17 +13,6 @@ tcfail206.hs:8:5:
     In the expression: (1,)
     In an equation for `b': b = (1,)
 
-tcfail206.hs:11:5:
-    Couldn't match type `a' with `Bool'
-      `a' is a rigid type variable bound by
-          the type signature for c :: a -> (a, Bool) at tcfail206.hs:10:6
-    Expected type: a -> (a, Bool)
-      Actual type: a -> (a, a)
-    Relevant bindings include
-      c :: a -> (a, Bool) (bound at tcfail206.hs:11:1)
-    In the expression: (True || False,)
-    In an equation for `c': c = (True || False,)
-
 tcfail206.hs:14:5:
     Couldn't match type `Bool' with `Int'
     Expected type: Bool -> (# Int, Bool #)
@@ -38,14 +27,3 @@ tcfail206.hs:17:5:
       Actual type: Int -> (# Integer, Int #)
     In the expression: (# 1, #)
     In an equation for `e': e = (# 1, #)
-
-tcfail206.hs:20:5:
-    Couldn't match type `a' with `Bool'
-      `a' is a rigid type variable bound by
-          the type signature for f :: a -> (# a, Bool #) at tcfail206.hs:19:6
-    Expected type: a -> (# a, Bool #)
-      Actual type: a -> (# a, a #)
-    Relevant bindings include
-      f :: a -> (# a, Bool #) (bound at tcfail206.hs:20:1)
-    In the expression: (# True || False, #)
-    In an equation for `f': f = (# True || False, #)