Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
b379f272
Commit
b379f272
authored
Oct 08, 2012
by
Simon Peyton Jones
Browse files
Test Trac
#7280
parent
6b7ca880
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/indexed-types/should_compile/T7280.hs
0 → 100644
View file @
b379f272
{-# LANGUAGE Rank2Types, MultiParamTypeClasses, FlexibleContexts,
TypeFamilies, ScopedTypeVariables #-}
module
T7280
where
type
family
Mutable
(
v
::
*
->
*
)
::
*
->
*
->
*
class
MVector
(
v
::
*
->
*
->
*
)
a
class
MVector
(
Mutable
v
)
a
=>
Vector
v
a
where
copy
::
Monad
m
=>
Mutable
v
s
a
->
v
a
->
m
()
data
Chunk
v
s
a
=
Chunk
(
forall
m
.
(
Monad
m
,
Vector
v
a
)
=>
Mutable
v
s
a
->
m
()
)
vstep
(
v
:
vs
)
=
Chunk
(
\
mv
->
copy
mv
v
)
testsuite/tests/indexed-types/should_compile/all.T
View file @
b379f272
...
...
@@ -199,5 +199,6 @@ test('T7082', normal, compile, [''])
test
('
T7156
',
normal
,
compile
,
[''])
test
('
T5591a
',
normal
,
compile
,
[''])
test
('
T5591b
',
normal
,
compile
,
[''])
test
('
T7280
',
normal
,
compile
,
[''])
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