Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
1d01ed55
Commit
1d01ed55
authored
Nov 14, 2007
by
simonpj
Browse files
Test for Trac #1662
parent
70f39d1e
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/arrows/should_fail/all.T
View file @
1d01ed55
...
...
@@ -3,3 +3,4 @@ setTestOpts(only_compiler_types(['ghc']))
test
('
arrowfail001
',
normal
,
compile_fail
,
[''])
test
('
arrowfail002
',
normal
,
compile_fail
,
[''])
test
('
arrowfail003
',
normal
,
compile_fail
,
[''])
test
('
arrowfail004
',
normal
,
compile_fail
,
[''])
testsuite/tests/ghc-regress/arrows/should_fail/arrowfail004.hs
0 → 100644
View file @
1d01ed55
{-# LANGUAGE Arrows, ExistentialQuantification #-}
-- Trac #1662
module
ShouldFail
where
import
Control.Arrow
data
T
=
forall
a
.
T
a
panic
::
(
Arrow
arrow
)
=>
arrow
T
T
panic
=
proc
(
T
x
)
->
do
returnA
-<
T
x
\ No newline at end of file
testsuite/tests/ghc-regress/arrows/should_fail/arrowfail004.stderr
0 → 100644
View file @
1d01ed55
arrowfail004.hs:12:14:
Illegal constructor `T' in a 'proc' pattern
Proc patterns cannot use existentials or GADTs
In the pattern: T x
In the expression: proc (T x) -> do returnA -< T x
In the definition of `panic':
panic = proc (T x) -> do returnA -< T x
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