Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
c24feb80
Commit
c24feb80
authored
Oct 01, 2008
by
chak@cse.unsw.edu.au.
Browse files
TFs: Proper error message for GADT12
parent
b970a264
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/indexed-types/should_compile/GADT12.hs
View file @
c24feb80
{-# LANGUAGE TypeFamilies, GADTs, PatternSignatures, KindSignatures, EmptyDataDecls #-}
{-# LANGUAGE TypeFamilies, GADTs, ScopedTypeVariables, KindSignatures #-}
{-# LANGUAGE EmptyDataDecls #-}
module
ShouldCompile
where
...
...
testsuite/tests/ghc-regress/indexed-types/should_compile/GADT12.stderr
0 → 100644
View file @
c24feb80
GADT12.hs:28:17:
Pattern signature must exactly match: TU Typed (Type a)
In the pattern: TypeBool :: Type Bool
In the pattern: Var2 "x" (TypeBool :: Type Bool)
In the definition of `bug2a':
bug2a (Var2 "x" (TypeBool :: Type Bool)) = ()
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
c24feb80
...
...
@@ -67,7 +67,7 @@ test('GADT8', normal, compile, [''])
test
('
GADT9
',
normal
,
compile
,
[''])
test
('
GADT10
',
expect_fail
,
compile
,
[''])
test
('
GADT11
',
normal
,
compile
,
[''])
test
('
GADT12
',
expect_fai
l
,
compile
,
[''])
test
('
GADT12
',
norma
l
,
compile
_fail
,
[''])
test
('
GADT13
',
expect_fail
,
compile
,
[''])
test
('
GADT14
',
normal
,
compile
,
[''])
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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