Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
e8d8c2e9
Commit
e8d8c2e9
authored
Mar 13, 2008
by
chak@cse.unsw.edu.au.
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Type families: Roman's test for normalisation of reduced dicts
parent
97621295
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
34 additions
and
0 deletions
+34
-0
testsuite/tests/ghc-regress/indexed-types/should_compile/InstContextNorm.hs
...c-regress/indexed-types/should_compile/InstContextNorm.hs
+32
-0
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
...uite/tests/ghc-regress/indexed-types/should_compile/all.T
+2
-0
No files found.
testsuite/tests/ghc-regress/indexed-types/should_compile/InstContextNorm.hs
0 → 100644
View file @
e8d8c2e9
{-# LANGUAGE TypeFamilies, FlexibleContexts #-}
{-# LANGUAGE EmptyDataDecls, FlexibleInstances #-}
module
InstContextNorm
where
data
EX
_x
_y
(
p
::
*
->
*
)
data
ANY
class
Base
p
class
Base
(
Def
p
)
=>
Prop
p
where
type
Def
p
instance
Base
()
instance
Prop
()
where
type
Def
()
=
()
instance
(
Base
(
Def
(
p
ANY
)))
=>
Base
(
EX
_x
_y
p
)
instance
(
Prop
(
p
ANY
))
=>
Prop
(
EX
_x
_y
p
)
where
type
Def
(
EX
_x
_y
p
)
=
EX
_x
_y
p
data
FOO
x
instance
Prop
(
FOO
x
)
where
type
Def
(
FOO
x
)
=
()
data
BAR
instance
Prop
BAR
where
type
Def
BAR
=
EX
()
()
FOO
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
e8d8c2e9
...
...
@@ -95,6 +95,8 @@ test('InstEqContext2', if_compiler_lt('ghc', '6.9', expect_fail),
compile
,
[''])
test
('
InstEqContext3
',
normal
,
compile
,
[''])
test
('
InstContextNorm
',
if_compiler_lt
('
ghc
',
'
6.9
',
expect_fail
),
compile
,
[''])
test
('
HO
',
normal
,
compile
,
[''])
test
('
GivenCheck
',
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