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
6b3d3672
Commit
6b3d3672
authored
Oct 02, 2008
by
chak@cse.unsw.edu.au.
Browse files
TFs: T2448
parent
c24feb80
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/indexed-types/should_compile/T2448.hs
0 → 100644
View file @
6b3d3672
{-# LANGUAGE TypeFamilies, UndecidableInstances #-}
module
T2448
where
-- Demonstrates a bug in propagating type equality constraints
class
VectorSpace
v
where
type
Scalar
v
::
*
class
VectorSpace
v
=>
InnerSpace
v
instance
(
VectorSpace
u
,
VectorSpace
v
,
Scalar
u
~
Scalar
v
)
=>
VectorSpace
(
u
,
v
)
where
type
Scalar
(
u
,
v
)
=
Scalar
u
instance
(
InnerSpace
u
,
InnerSpace
v
,
Scalar
u
~
Scalar
v
)
=>
InnerSpace
(
u
,
v
)
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
6b3d3672
...
...
@@ -119,3 +119,4 @@ test('OversatDecomp', normal, compile, [''])
test
('
T2219
',
normal
,
compile
,
[''])
test
('
T2627
',
normal
,
compile
,
[''])
test
('
T2448
',
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