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
0faa6024
Commit
0faa6024
authored
Aug 22, 2012
by
Simon Peyton Jones
Browse files
Test Trac
#7176
parent
433f7a65
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/polykinds/T7176.hs
0 → 100644
View file @
0faa6024
{-# LANGUAGE TypeFamilies, DataKinds, PolyKinds, GADTs, RankNTypes #-}
module
T7176
where
type
family
Sing
(
a
::
b
)
data
SMaybe
(
a
::
Maybe
c
)
where
SNothing
::
SMaybe
Nothing
SJust
::
Sing
a
->
SMaybe
(
Just
a
)
type
instance
Sing
(
a
::
Maybe
d
)
=
SMaybe
a
sIsJust
::
forall
(
a
::
Maybe
e
)
.
Sing
a
->
()
sIsJust
SNothing
=
()
sIsJust
(
SJust
_
)
=
()
testsuite/tests/polykinds/all.T
View file @
0faa6024
...
...
@@ -62,4 +62,5 @@ test('T7073', normal, compile,[''])
test
('
T7128
',
normal
,
compile
,[''])
test
('
T7151
',
normal
,
compile_fail
,[''])
test
('
T7095
',
normal
,
compile
,[''])
test
('
T7176
',
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