Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
3,987
Issues
3,987
List
Boards
Labels
Service Desk
Milestones
Merge Requests
326
Merge Requests
326
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Analytics
Analytics
CI / CD
Code Review
Insights
Issues
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
8b471a8c
Commit
8b471a8c
authored
Oct 01, 2004
by
simonpj
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[project @ 2004-10-01 13:58:37 by simonpj]
Update expected output for new GADT-enabled typechecker
parent
42050ebb
Changes
49
Hide whitespace changes
Inline
Side-by-side
Showing
49 changed files
with
176 additions
and
169 deletions
+176
-169
testsuite/tests/ghc-regress/deriving/should_fail/drvfail001.stderr
.../tests/ghc-regress/deriving/should_fail/drvfail001.stderr
+2
-2
testsuite/tests/ghc-regress/deriving/should_fail/drvfail003.stderr
.../tests/ghc-regress/deriving/should_fail/drvfail003.stderr
+1
-1
testsuite/tests/ghc-regress/deriving/should_fail/drvfail004.stderr
.../tests/ghc-regress/deriving/should_fail/drvfail004.stderr
+1
-1
testsuite/tests/ghc-regress/deriving/should_fail/drvfail007.stderr
.../tests/ghc-regress/deriving/should_fail/drvfail007.stderr
+1
-1
testsuite/tests/ghc-regress/module/mod46.stderr
testsuite/tests/ghc-regress/module/mod46.stderr
+1
-1
testsuite/tests/ghc-regress/module/mod47.stderr
testsuite/tests/ghc-regress/module/mod47.stderr
+1
-1
testsuite/tests/ghc-regress/module/mod54.stderr
testsuite/tests/ghc-regress/module/mod54.stderr
+1
-1
testsuite/tests/ghc-regress/module/mod60.stderr
testsuite/tests/ghc-regress/module/mod60.stderr
+0
-1
testsuite/tests/ghc-regress/parser/should_fail/read003.stderr
...suite/tests/ghc-regress/parser/should_fail/read003.stderr
+3
-3
testsuite/tests/ghc-regress/simplCore/should_compile/all.T
testsuite/tests/ghc-regress/simplCore/should_compile/all.T
+1
-1
testsuite/tests/ghc-regress/simplCore/should_compile/simpl008.hs
...te/tests/ghc-regress/simplCore/should_compile/simpl008.hs
+5
-1
testsuite/tests/ghc-regress/simplCore/should_compile/simpl008.stderr
...ests/ghc-regress/simplCore/should_compile/simpl008.stderr
+7
-0
testsuite/tests/ghc-regress/th/TH_where.stdout
testsuite/tests/ghc-regress/th/TH_where.stdout
+1
-0
testsuite/tests/ghc-regress/typecheck/should_compile/tc162.hs
...suite/tests/ghc-regress/typecheck/should_compile/tc162.hs
+3
-0
testsuite/tests/ghc-regress/typecheck/should_compile/tc162.stderr
...e/tests/ghc-regress/typecheck/should_compile/tc162.stderr
+12
-0
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail001.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail001.stderr
+2
-2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail004.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail004.stderr
+3
-3
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail005.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail005.stderr
+3
-3
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail013.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail013.stderr
+3
-3
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail017.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail017.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail019.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail019.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail020.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail020.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail032.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail032.stderr
+1
-0
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail033.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail033.stderr
+3
-3
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail038.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail038.stderr
+4
-4
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail042.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail042.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail046.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail046.stderr
+2
-2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail065.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail065.stderr
+8
-7
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail067.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail067.stderr
+4
-7
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail068.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail068.stderr
+33
-51
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail069.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail069.stderr
+6
-6
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail071.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail071.stderr
+2
-11
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail072.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail072.stderr
+4
-4
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail073.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail073.stderr
+5
-2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail075.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail075.stderr
+7
-9
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail076.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail076.stderr
+10
-8
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail083.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail083.stderr
+1
-2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail090.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail090.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail095.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail095.stderr
+1
-3
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail099.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail099.stderr
+3
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail105.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail105.stderr
+3
-4
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail106.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail106.stderr
+2
-2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail109.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail109.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail115.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail115.stderr
+9
-9
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail118.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail118.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail119.stderr
.../tests/ghc-regress/typecheck/should_fail/tcfail119.stderr
+1
-1
testsuite/tests/ghc-regress/typecheck/should_run/all.T
testsuite/tests/ghc-regress/typecheck/should_run/all.T
+1
-1
testsuite/tests/ghc-regress/typecheck/should_run/tcrun026.hs
testsuite/tests/ghc-regress/typecheck/should_run/tcrun026.hs
+2
-0
testsuite/tests/ghc-regress/typecheck/should_run/tcrun026.stderr
...te/tests/ghc-regress/typecheck/should_run/tcrun026.stderr
+6
-0
No files found.
testsuite/tests/ghc-regress/deriving/should_fail/drvfail001.stderr
View file @
8b471a8c
drvfail001.hs:15:5:
No instance for (Show (f (f a)))
arising from the data type declaration at drvfail001.hs:15:5
arising from the
'deriving' clause of a
data type declaration at drvfail001.hs:15:5
When deriving the `Show' instance for type `SM'
drvfail001.hs:21:5:
No instance for (Show (f a))
arising from the data type declaration at drvfail001.hs:21:5
arising from the
'deriving' clause of a
data type declaration at drvfail001.hs:21:5
When deriving the `Show' instance for type `Cons'
testsuite/tests/ghc-regress/deriving/should_fail/drvfail003.stderr
View file @
8b471a8c
drvfail003.hs:13:5:
No instance for (Show (v (v a)))
arising from the data type declaration at drvfail003.hs:13:5
arising from the
'deriving' clause of a
data type declaration at drvfail003.hs:13:5
When deriving the `Show' instance for type `Square_'
testsuite/tests/ghc-regress/deriving/should_fail/drvfail004.stderr
View file @
8b471a8c
drvfail004.hs:5:5:
Could not deduce (Eq (Foo a b)) from the context (Ord a, Ord b)
arising from the instance declaration at drvfail004.hs:5:5
arising from the
superclasses of an
instance declaration at drvfail004.hs:5:5
Probable fix:
Add (Eq (Foo a b)) to the instance declaration superclass context
Or add an instance declaration for (Eq (Foo a b))
...
...
testsuite/tests/ghc-regress/deriving/should_fail/drvfail007.stderr
View file @
8b471a8c
drvfail007.hs:4:5:
No instance for (Eq (Int -> Int))
arising from the data type declaration at drvfail007.hs:4:5
arising from the
'deriving' clause of a
data type declaration at drvfail007.hs:4:5
When deriving the `Eq' instance for type `Foo'
testsuite/tests/ghc-regress/module/mod46.stderr
View file @
8b471a8c
mod46.hs:4:0:
No instance for (Eq T)
arising from the instance declaration at mod46.hs:4:0
arising from the
superclasses of an
instance declaration at mod46.hs:4:0
In the instance declaration for `Ord T'
testsuite/tests/ghc-regress/module/mod47.stderr
View file @
8b471a8c
mod47.hs:6:0:
Could not deduce (Num a) from the context (Eq a, Enum a)
arising from the instance declaration at mod47.hs:6:0
arising from the
superclasses of an
instance declaration at mod47.hs:6:0
Probable fix: Add (Num a) to the instance declaration superclass context
In the instance declaration for `Bar [a]'
testsuite/tests/ghc-regress/module/mod54.stderr
View file @
8b471a8c
mod54.hs:3:5:
No instance for (Eq T)
arising from the instance declaration at mod54.hs:3:5
arising from the
superclasses of an
instance declaration at mod54.hs:3:5
In the instance declaration for `Ord T'
testsuite/tests/ghc-regress/module/mod60.stderr
View file @
8b471a8c
mod60.hs:3:3:
Constructor `Left' should have 1 argument, but has been given 0
When checking the pattern: Left
In the definition of `f': f (Left) = error "foo"
testsuite/tests/ghc-regress/parser/should_fail/read003.stderr
View file @
8b471a8c
read003.hs:4:26:
Occurs check: cannot construct the infinite type:
t = (t, [a], t1
)
Expected type: (t, [a], t1
)
Inferred type: t
Occurs check: cannot construct the infinite type:
a = (a, [a], c
)
Expected type: (a, [a], c
)
Inferred type: a
In the right-hand side of a pattern binding: a
In a pattern binding:
~(a, b, c)
...
...
testsuite/tests/ghc-regress/simplCore/should_compile/all.T
View file @
8b471a8c
...
...
@@ -8,5 +8,5 @@ test('simpl005', normal, compile, [''])
# test('simpl006', normal, compile, [''])
test
('
simpl007
',
normal
,
compile
,
[''])
test
('
simpl008
',
normal
,
compile
,
['
-fglasgow-exts
'])
test
('
simpl008
',
normal
,
compile
_fail
,
['
'])
test
('
simpl009
',
normal
,
compile
,
[''])
testsuite/tests/ghc-regress/simplCore/should_compile/simpl008.hs
View file @
8b471a8c
import
GHC.Exts
{-# OPTIONS -fglasgow-exts #-}
-- Should fail, because f :: (# Int#, ByteArray# #)
import
GHC.Prim
main
::
IO
()
main
=
let
f
=
int2Integer
#
0
#
in
putStrLn
""
...
...
testsuite/tests/ghc-regress/simplCore/should_compile/simpl008.stderr
0 → 100644
View file @
8b471a8c
simpl008.hs:8:15:
Couldn't match kind `??' against `(#)'
When matching the kinds of `t :: ??' and `(# Int#, ByteArray# #) :: (#)'
Expected type: t
Inferred type: (# Int#, ByteArray# #)
In the application `int2Integer# 0#'
testsuite/tests/ghc-regress/th/TH_where.stdout
0 → 100644
View file @
8b471a8c
LetE [ValD (VarP foo_0) (NormalB (VarE bar_1)) [ValD (VarP bar_1) (NormalB (LitE (IntegerL 3))) []]] (VarE foo_0)
testsuite/tests/ghc-regress/typecheck/should_compile/tc162.hs
View file @
8b471a8c
...
...
@@ -5,6 +5,9 @@
-- in the pattern matching compiler, so they are a bit
-- tricky.
-- GHC 6.3: these are back to failures, because we no longer do
-- type subsumption in pattern-matching
module
ShouldCompile
where
newtype
Bug
s
a
=
Bug
a
...
...
testsuite/tests/ghc-regress/typecheck/should_compile/tc162.stderr
0 → 100644
View file @
8b471a8c
tc162.hs:16:8:
Couldn't match `forall s. Bug s a' against `Bug s a1'
In the definition of `runBug': runBug (Bug _) = undefined
tc162.hs:21:9:
Couldn't match `forall s. BugN s a' against `BugN s a1'
In the definition of `runBugN': runBugN (BugN _) = undefined
tc162.hs:26:7:
Couldn't match `forall a b. Foo a b' against `Foo a b'
In the definition of `baz': baz s (Foo {foo = foo}) = putStrLn s
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail001.stderr
View file @
8b471a8c
tcfail001.hs:9:
7
:
tcfail001.hs:9:
1
:
Couldn't match `[a]' against `t -> t1'
Expected type: [a]
Inferred type: t -> t1
In the definition of `op': op [] = []
In the definition for method `op'
In the instance declaration for `A [a]'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail004.stderr
View file @
8b471a8c
tcfail004.hs:3:8:
Couldn't match `(
t, t1)' against `(t2, t3, t4
)'
Expected type: (t, t1
)
Inferred type: (t2, t3, t4
)
Couldn't match `(
a, b)' against `(a1, b1, c
)'
Expected type: (a, b
)
Inferred type: (a1, b1, c
)
In a pattern binding: (f, g) = (1, 2, 3)
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail005.stderr
View file @
8b471a8c
tcfail005.hs:3:8:
Couldn't match `[a]' against `(
t, t1
)'
Expected type: [a]
Inferred type: (t, t1
)
Couldn't match `[a]' against `(
a1, b
)'
Expected type: [a]
Inferred type: (a1, b
)
In a pattern binding: (h : i) = (1, 'a')
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail013.stderr
View file @
8b471a8c
tcfail013.hs:4:2:
Couldn't match `
Bool' against `[a]
'
Expected type: Bool
Inferred type: [a]
Couldn't match `
[a]' against `Bool
'
Expected type: [a]
Inferred type: Bool
When checking the pattern: True
In the definition of `f': f True = 2
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail017.stderr
View file @
8b471a8c
tcfail017.hs:10:0:
Could not deduce (C [a]) from the context (B a)
arising from the instance declaration at tcfail017.hs:10:0
arising from the
superclasses of an
instance declaration at tcfail017.hs:10:0
Probable fix:
Add (C [a]) to the instance declaration superclass context
Or add an instance declaration for (C [a])
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail019.stderr
View file @
8b471a8c
tcfail019.hs:18:0:
No instances for (B [a], C [a])
arising from the instance declaration at tcfail019.hs:18:0
arising from the
superclasses of an
instance declaration at tcfail019.hs:18:0
Probable fix:
Add (B [a], C [a]) to the instance declaration superclass context
Or add an instance declaration for (B [a], C [a])
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail020.stderr
View file @
8b471a8c
tcfail020.hs:10:0:
Could not deduce (A [a]) from the context (A a)
arising from the instance declaration at tcfail020.hs:10:0
arising from the
superclasses of an
instance declaration at tcfail020.hs:10:0
Probable fix:
Add (A [a]) to the instance declaration superclass context
Or add an instance declaration for (A [a])
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail032.stderr
View file @
8b471a8c
...
...
@@ -3,6 +3,7 @@ tcfail032.hs:14:7:
Inferred type is less polymorphic than expected
Quantified type variable `a' escapes
It is mentioned in the environment:
f :: (a -> Int) -> t (bound at tcfail032.hs:14:0)
x :: a -> Int (bound at tcfail032.hs:14:2)
In the expression: x :: (Eq a) => a -> Int
In the definition of `f': f x = (x :: (Eq a) => a -> Int)
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail033.stderr
View file @
8b471a8c
tcfail033.hs:4:11:
Occurs check: cannot construct the infinite type:
t = (t, t1
)
Expected type: (t, t1
)
Inferred type: t
Occurs check: cannot construct the infinite type:
a = (a, b
)
Expected type: (a, b
)
Inferred type: a
In the result of a list comprehension: x
In the definition of `buglet': buglet = [x | (x, y) <- buglet]
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail038.stderr
View file @
8b471a8c
tcfail038.hs:
8
:10:
Conflicting definitions for `
/
='
tcfail038.hs:
7
:10:
Conflicting definitions for `
=
='
In the bindings in an instance declaration
tcfail038.hs:
9
:10:
Conflicting definitions for `
=
='
tcfail038.hs:
8
:10:
Conflicting definitions for `
/
='
In the bindings in an instance declaration
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail042.stderr
View file @
8b471a8c
tcfail042.hs:15:0:
Could not deduce (Num a) from the context (Eq a, Show a)
arising from the instance declaration at tcfail042.hs:15:0
arising from the
superclasses of an
instance declaration at tcfail042.hs:15:0
Probable fix: Add (Num a) to the instance declaration superclass context
In the instance declaration for `Bar [a]'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail046.stderr
View file @
8b471a8c
tcfail046.hs:9:8:
No instance for (Eq (Pid -> Time -> Message a -> (MessList a, Continuation a)))
arising from the data type declaration at tcfail046.hs:9:8
arising from the
'deriving' clause of a
data type declaration at tcfail046.hs:9:8
When deriving the `Eq' instance for type `Continuation'
tcfail046.hs:17:5:
No instance for (Eq (Pid -> Time -> Message a -> (MessList a, Continuation a)))
arising from the data type declaration at tcfail046.hs:17:5
arising from the
'deriving' clause of a
data type declaration at tcfail046.hs:17:5
When deriving the `Eq' instance for type `Message'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail065.stderr
View file @
8b471a8c
tcfail065.hs:28:0:
Inferred type is less polymorphic than expected
Quantified type variable `x1' is unified with another quantified type variable `x'
When trying to generalise the type inferred for `setX'
Signature type: forall x1 x2. x2 -> X x1 -> X x1
Type to generalise: forall x2. x2 -> X x1 -> X x1
In the instance declaration for `HasX (X x)'
tcfail065.hs:29:19:
Couldn't match the rigid variable `x' against the rigid variable `x1'
`x' is bound by the instance declaration at tcfail065.hs:28:0
`x1' is bound by the type signature for `setX'
Expected type: x
Inferred type: x1
In the first argument of `X', namely `x'
In the definition of `setX': setX x (X _) = X x
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail067.stderr
View file @
8b471a8c
tcfail067.hs:12:15:
No instance for (Ord a)
arising from
the pattern `SubRange (lower, upper) valu
e' at tcfail067.hs:12:15-43
arising from
use of `SubRang
e' at tcfail067.hs:12:15-43
Probable fix: Add (Ord a) to the type signature(s) for `subRangeValue'
When checking the pattern: SubRange (lower, upper) value
In the definition of `subRangeValue':
subRangeValue (SubRange (lower, upper) value) = value
tcfail067.hs:15:10:
No instance for (Ord a)
arising from
the pattern `SubRange r valu
e' at tcfail067.hs:15:10-25
arising from
use of `SubRang
e' at tcfail067.hs:15:10-25
Probable fix: Add (Ord a) to the type signature(s) for `subRange'
When checking the pattern: SubRange r value
In the definition of `subRange': subRange (SubRange r value) = r
tcfail067.hs:46:11:
Could not deduce (Ord a) from the context (Show a)
arising from
the pattern `SubRange (lower, upper) valu
e' at tcfail067.hs:46:11-39
arising from
use of `SubRang
e' at tcfail067.hs:46:11-39
Probable fix: Add (Ord a) to the type signature(s) for `showRange'
When checking the pattern: SubRange (lower, upper) value
In the definition of `showRange':
showRange (SubRange (lower, upper) value)
= (show value) ++ (" :" ++ ((show lower) ++ (".." ++ (show upper))))
tcfail067.hs:60:0:
Could not deduce (Show (SubRange a)) from the context (Num a)
arising from the instance declaration at tcfail067.hs:60:0
arising from the
superclasses of an
instance declaration at tcfail067.hs:60:0
Probable fix:
Add (Show (SubRange a)) to the instance declaration superclass context
Or add an instance declaration for (Show (SubRange a))
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail068.stderr
View file @
8b471a8c
tcfail068.hs:13:8:
Inferred type is less polymorphic than expected
Quantified type variable `s' escapes
tcfail068.hs:14:8:
Couldn't match the rigid variable `s' against the rigid variable `s1'
`s' is bound by the type signature for `itgen'
`s1' is bound by the polymorphic type `forall s. GHC.ST.ST s a'
at tcfail068.hs:(13,8)-(14,30)
Expected type: GHC.ST.ST s1 (IndTree s a)
Inferred type: GHC.ST.ST s1 (STArray s1 i e)
In the application `newSTArray ((1, 1), n) x'
In the first argument of `runST', namely `(newSTArray ((1, 1), n) x)'
In the definition of `itgen': itgen n x = runST (newSTArray ((1, 1), n) x)
tcfail068.hs:18:8:
Inferred type is less polymorphic than expected
Quantified type variable `s' escapes
It is mentioned in the environment:
arr :: IndTree s a (bound at tcfail068.hs:17:10)
tcfail068.hs:19:8:
Couldn't match the rigid variable `s' against the rigid variable `s1'
`s' is bound by the polymorphic type `forall s. GHC.ST.ST s a'
at tcfail068.hs:(18,8)-(21,18)
`s1' is bound by the type signature for `itiap'
Expected type: GHC.ST.ST s (IndTree s1 a)
Inferred type: GHC.ST.ST s1 (IndTree s1 a)
In the expression:
(readSTArray arr i) >>= (\ val -> (writeSTArray arr i (f val)) >> (return arr))
In the first argument of `runST', namely
`((readSTArray arr i)
>>= (\ val -> (writeSTArray arr i (f val)) >> (return arr)))'
In the definition of `itiap':
itiap i f arr
= runST ((readSTArray arr i)
>>= (\ val -> (writeSTArray arr i (f val)) >> (return arr)))
tcfail068.hs:24:28:
Inferred type is less polymorphic than expected
Quantified type variable `s' escapes
It is mentioned in the environment:
itrapsnd :: Int -> Int -> GHC.ST.ST s (IndTree s a) (bound at tcfail068.hs:29:8)
itrap' :: Int -> Int -> GHC.ST.ST s (IndTree s a) (bound at tcfail068.hs:26:8)
arr :: IndTree s a (bound at tcfail068.hs:24:22)
tcfail068.hs:24:34:
Couldn't match the rigid variable `s' against the rigid variable `s1'
`s' is bound by the polymorphic type `forall s. GHC.ST.ST s a'
at tcfail068.hs:24:28-44
`s1' is bound by the type signature for `itrap'
Expected type: GHC.ST.ST s (IndTree s1 a)
Inferred type: GHC.ST.ST s1 (IndTree s1 a)
In the application `itrap' i k'
In the first argument of `runST', namely `(itrap' i k)'
In the definition of `itrap':
itrap ((i, k), (j, l)) f arr
= runST (itrap' i k)
where
itrapsnd i k
= if i > j then return arr else ((readSTArray arr (i, k)) >>= (\ val -> ...))
itrap' i k
= if k > l then return arr else ((itrapsnd i k) >> (itrap' i (k + 1)))
tcfail068.hs:36:39:
Inferred type is less polymorphic than expected
Quantified type variable `s' escapes
It is mentioned in the environment:
itrapstatesnd :: Int -> Int -> c -> GHC.ST.ST s (c, IndTree s b)
(bound at tcfail068.hs:41:8)
itrapstate' :: Int -> Int -> c -> GHC.ST.ST s (c, IndTree s b)
(bound at tcfail068.hs:38:8)
arr :: IndTree s b (bound at tcfail068.hs:36:33)
tcfail068.hs:36:45:
Couldn't match the rigid variable `s' against the rigid variable `s1'
`s' is bound by the polymorphic type `forall s. GHC.ST.ST s a'
at tcfail068.hs:36:39-62
`s1' is bound by the type signature for `itrapstate'
Expected type: GHC.ST.ST s (c, IndTree s1 b)
Inferred type: GHC.ST.ST s1 (c, IndTree s1 b)
In the application `itrapstate' i k s'
In the first argument of `runST', namely `(itrapstate' i k s)'
In the definition of `itrapstate':
itrapstate ((i, k), (j, l)) f c d s arr
= runST (itrapstate' i k s)
where
itrapstatesnd i k s
= if i > j then
return (s, arr)
else
((readSTArray arr (i, k)) >>= (\ val -> ...))
itrapstate' i k s
= if k > l then
return (s, arr)
else
((itrapstatesnd i k s) >>= (\ (s, arr) -> ...))
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail069.stderr
View file @
8b471a8c
tcfail069.hs:2
0:9
:
Couldn't match `
[a]' against `(t, t1)
'
Expected type: [a]
Inferred type: (t, t1)
In the scrutinee of a case expression: (list1, list2)
In
the case expression: case (list1, list2) of
[] -> error "foo"
tcfail069.hs:2
1:6
:
Couldn't match `
([Int], [Int])' against `[a]
'
Expected type: ([Int], [Int])
Inferred type: [a]
When checking the pattern: []
In
a case alternative:
[] -> error "foo"
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail071.stderr
View file @
8b471a8c
tcfail071.hs:5:0:
Mismatched contexts
When matching the contexts of the signatures for
tcfail071.hs:8:0:
Mis-match between the contexts of the signatures for
f :: forall d. (Ord d) => d -> d
g :: forall e. e -> e
The signature contexts in a mutually recursive group should all be identical
When generalising the type(s) for f, g
tcfail071.hs:10:21:
Cannot unify the type-signature variable `e' with the type `t -> t1'
Expected type: a -> b -> b
Inferred type: e
In the first argument of `f', namely `c'
In the first argument of `foldr', namely `(f c)'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail072.stderr
View file @
8b471a8c
tcfail072.hs:23:12:
Ambiguous type variable `q' in the top-level constraint:
`Ord q' arising from use of `g' at tcfail072.hs:23:12
tcfail072.hs:23:12:
Ambiguous type variable `p' in the top-level constraint:
`Ord p' arising from use of `g' at tcfail072.hs:23:12
tcfail072.hs:23:12:
Ambiguous type variable `q' in the top-level constraint:
`Ord q' arising from use of `g' at tcfail072.hs:23:12
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail073.stderr
View file @
8b471a8c
tcfail073.hs:8:0:
Duplicate instance declarations:
tcfail073.hs:6:10:
Overlapping instances for Eq (a, a)
arising from use of `==' at tcfail073.hs:6:10-11
Matching instances:
tcfail073.hs:8:0: instance (Eq a) => Eq (a, b)
Imported from `Data.Tuple': instance (Eq a, Eq b) => Eq (a, b)
In the definition of `f': f x y = x == y
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail075.stderr
View file @
8b471a8c
tcfail075.hs:11:0:
Top-level bindings for unlifted types aren't allowed: x = 1#
When generalising the type(s) for `x'
tcfail075.hs:1:0: Top-level bindings for unlifted types aren't allowed: x = 1#
tcfail075.hs:14:4:
Couldn't match kind `#' against `*'
When matching t
ypes `Int# :: #' and `t
:: *'
When matching t
he kinds of `Int# :: #' and `a
:: *'
Expected type: Int#
Inferred type:
t
Inferred type:
a
In the first argument of `(+#)', namely `x'
tcfail075.hs:17:14:
Couldn't match kind `#' against `*'
When matching t
ypes `Int# :: #' and `t
:: *'
When matching t
he kinds of `Int# :: #' and `a
:: *'
Expected type: Int#
Inferred type:
t
Inferred type:
a
In the first argument of `(-#)', namely `x'
tcfail075.hs:19:11:
Couldn't match kind `#' against `*'
When matching t
ypes `Int# :: #' and `t
:: *'
When matching t
he kinds of `Int# :: #' and `a
:: *'
Expected type: Int#
Inferred type:
t
Inferred type:
a
In the first argument of `(>#)', namely `z'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail076.stderr
View file @
8b471a8c
tcfail076.hs:18:63:
Inferred type is less polymorphic than expected
Quantified type variable `res' escapes
It is mentioned in the environment:
cont :: a -> m res (bound at tcfail076.hs:18:36)
In the first argument of `KContT', namely `(\ cont' -> cont a)'
In a lambda abstraction: \ a -> KContT (\ cont' -> cont a)
In the first argument of `f', namely `(\ a -> KContT (\ cont' -> cont a))'
tcfail076.hs:18:81:
Couldn't match the rigid variable `res' against the rigid variable `res1'
`res' is bound by the polymorphic type `forall res. (a -> m res) -> m res'
at tcfail076.hs:18:63-87
`res1' is bound by the polymorphic type `forall res. (a -> m res) -> m res'
at tcfail076.hs:18:27-95
Expected type: m res
Inferred type: m res1
In the application `cont a'
In a lambda abstraction: \ cont' -> cont a
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail083.stderr
View file @
8b471a8c
tcfail083.hs:8:
22
:
tcfail083.hs:8:
38
:
Constructor `Bar' does not have field `baz'
When checking the pattern: Bar {flag = f, baz = b}
When checking the pattern: State {bar = Bar {flag = f, baz = b}}
In the definition of `display':
display (State {bar = Bar {flag = f, baz = b}}) = print (f, b)
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail090.stderr
View file @
8b471a8c
tcfail090.hs:8:8:
Couldn't match kind `#' against `*'
When matching t
ypes
`ByteArray# :: #' and `a :: *'
When matching t
he kinds of
`ByteArray# :: #' and `a :: *'
Expected type: ByteArray#
Inferred type: a
In the definition of `die': die _ = undefined
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail095.stderr
View file @
8b471a8c
tcfail095.hs:9:0:
Top-level bindings for unlifted types aren't allowed: x = 1#
When generalising the type(s) for `x'
tcfail095.hs:1:0: Top-level bindings for unlifted types aren't allowed: x = 1#
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail099.stderr
View file @
8b471a8c
tcfail099.hs:9:
15
:
tcfail099.hs:9:
0
:
Inferred type is less polymorphic than expected
Quantified type variable `a' escapes
It is mentioned in the environment:
call :: DS -> a -> Int (bound at tcfail099.hs:9:0)
When checking an existential match that binds
f :: a -> Int
The pattern(s) have type(s): DS
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail105.stderr
View file @
8b471a8c
tcfail105.hs:8:0:
All of the type variables in the constraint `Monad m' are already in scope
(at least one must be universally quantified here)
When checking the data constructor: (Monad m) => M {unM :: m (S m t a)}
tcfail105.hs:8:26:
Can't combine named fields with locally-quantified type variables or context
In the declaration of data constructor M
In the data type declaration for `M'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail106.stderr
View file @
8b471a8c
tcfail106.hs:11:0:
No instance for (S Int)
arising from the instance declaration at tcfail106.hs:11:0
arising from the
superclasses of an
instance declaration at tcfail106.hs:11:0
In the instance declaration for `C Int'
tcfail106.hs:14:0:
No instance for (S Int)
arising from the instance declaration at tcfail106.hs:14:0
arising from the
superclasses of an
instance declaration at tcfail106.hs:14:0
In the instance declaration for `D Int'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail109.stderr
View file @
8b471a8c
tcfail109.hs:16:0:
No instance for (Eq Stupid)
arising from the instance declaration at tcfail109.hs:16:0
arising from the
superclasses of an
instance declaration at tcfail109.hs:16:0
In the instance declaration for `Collects Bool Stupid'
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail115.stderr
View file @
8b471a8c
tcfail115.hs:18:2
9
:
Couldn't match kind `
(#)' against `??
'
When matching t
ypes `(# Int, Int #) :: (#)' and `t :: ??
'
Expected type:
(# Int, Int #)
Inferred type:
t
tcfail115.hs:18:2
4
:
Couldn't match kind `
??' against `(#)
'
When matching t
he kinds of `t :: ??' and `(# Int, Int #) :: (#)
'
Expected type:
t
Inferred type:
(# Int, Int #)
In a case alternative: r -> r
tcfail115.hs:21:
18
:
tcfail115.hs:21:
25
:
Couldn't match kind `??' against `(#)'
When matching t
ypes
`t :: ??' and `(# Int, Int #) :: (#)'
When matching t
he kinds of
`t :: ??' and `(# Int, Int #) :: (#)'
Expected type: t
Inferred type: (# Int, Int #)
In the application `t x'
When checking the pattern: _
tcfail115.hs:24:23:
Couldn't match kind `(#)' against `??'
When matching t
ypes
`(# Int, Int #) :: (#)' and `t :: ??'
When matching t
he kinds of
`(# Int, Int #) :: (#)' and `t :: ??'
Expected type: (# Int, Int #)
Inferred type: t
In the expression: r :: (# Int, Int #)
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail118.stderr
View file @
8b471a8c
tcfail118.hs:10:5:
Overlapping instances for Eq Foo
arising from the data type declaration at tcfail118.hs:10:5
arising from the
'deriving' clause of a
data type declaration at tcfail118.hs:10:5
Matching instances:
tcfail118.hs:13:0: instance Eq Foo
tcfail118.hs:11:5: instance Eq Foo
...
...
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail119.stderr
View file @
8b471a8c
...
...
@@ -3,5 +3,5 @@ tcfail119.hs:11:7:
Couldn't match `Bool' against `[Char]'
Expected type: Bool
Inferred type: [Char]
When checking the pattern: "Foo"
In the definition of `b': b x "Foo" = ()
In the definition for method `b'
testsuite/tests/ghc-regress/typecheck/should_run/all.T
View file @
8b471a8c
...
...
@@ -30,7 +30,7 @@ test('tcrun023', normal, compile_and_run, ['-O'])
test
('
tcrun024
',
normal
,
compile_and_run
,
['
-O
'])
test
('
tcrun025
',
normal
,
multimod_compile_and_run
,
['
tcrun025
',''])
clean
(['
TcRun025_B.hi
',
'
TcRun025_B.o
'])
test
('
tcrun026
',
normal
,
compile_
and_run
,
[''])
test
('
tcrun026
',
normal
,
compile_
fail
,
[''])
test
('
tcrun027
',
normal
,
compile_and_run
,
[''])
# Doesn't work with External Core due to datatype with no constructors
test
('
tcrun028
',
expect_fail_for
(['
extcore
','
optextcore
']),
compile_and_run
,
[''])
...
...
testsuite/tests/ghc-regress/typecheck/should_run/tcrun026.hs
View file @
8b471a8c
...
...
@@ -4,6 +4,8 @@
-- panic: tcSplitTyConApp forall x{-r6S-} :: *.
-- Main.L{-rr-} x{-r6S-}
-- GHC 6.3: this is now an error (can do subsumption in patterns)
module
Main
where
newtype
FA
c
=
FA
(
forall
x
.
c
x
)
...
...
testsuite/tests/ghc-regress/typecheck/should_run/tcrun026.stderr
0 → 100644
View file @
8b471a8c
tcrun026.hs:17:28:
Couldn't match `forall x. L x' against `L x'
When checking the pattern: FA (L x)
In a case alternative: FA (L x) -> "foo" ++ x
In the case expression: case my_nil of FA (L x) -> "foo" ++ x
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment