Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a9535df4
Commit
a9535df4
authored
Nov 17, 2010
by
simonpj
Browse files
Test Trac #4497
parent
1a3364bc
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/indexed-types/should_compile/T4497.hs
0 → 100644
View file @
a9535df4
{-# LANGUAGE FlexibleContexts, MultiParamTypeClasses, TypeFamilies #-}
module
T4497
where
norm2PropR
a
=
twiddle
(
norm2
a
)
a
twiddle
::
Normed
a
=>
a
->
a
->
Double
twiddle
a
b
=
undefined
norm2
::
e
->
RealOf
e
norm2
=
undefined
class
(
Num
(
RealOf
t
))
=>
Normed
t
type
family
RealOf
x
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
a9535df4
...
...
@@ -161,3 +161,4 @@ test('T4492', normal, compile, [''])
test
('
T4494
',
normal
,
compile
,
[''])
test
('
DataFamDeriv
',
normal
,
compile
,
[''])
test
('
T1769
',
normal
,
compile
,
[''])
test
('
T4497
',
normal
,
compile
,
[''])
Write
Preview
Supports
Markdown
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