Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project
Project
Details
Activity
Releases
Cycle Analytics
Insights
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Security & Compliance
Security & Compliance
Dependency List
Packages
Packages
List
Container Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
a5d6b96a
Commit
a5d6b96a
authored
Jul 25, 2019
by
Alex D
🍄
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add regression test for #16946
parent
e07f0e2b
Pipeline
#8774
passed with stages
in 502 minutes and 16 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
0 deletions
+13
-0
T16946.hs
testsuite/tests/typecheck/should_compile/T16946.hs
+12
-0
all.T
testsuite/tests/typecheck/should_compile/all.T
+1
-0
No files found.
testsuite/tests/typecheck/should_compile/T16946.hs
0 → 100644
View file @
a5d6b96a
{-# LANGUAGE RankNTypes, TypeFamilies, PolyKinds, FunctionalDependencies #-}
module
T16946
where
import
Data.Kind
class
CatMonad
(
c
::
k
->
k
->
Type
)
(
m
::
forall
(
x
::
k
)
(
y
::
k
)
.
c
x
y
->
Type
->
Type
)
|
c
->
m
where
type
Id
c
::
c
x
x
xpure
::
a
->
m
(
Id
c
)
a
boom
::
forall
k
(
c
::
k
->
k
->
Type
)
(
m
::
forall
(
x
::
k
)
(
y
::
k
)
.
c
x
y
->
Type
->
Type
)
a
.
CatMonad
c
m
=>
a
->
m
(
Id
c
)
a
boom
=
xpure
testsuite/tests/typecheck/should_compile/all.T
View file @
a5d6b96a
...
...
@@ -684,3 +684,4 @@ test('UnlifNewUnify', normal, compile, [''])
test
('
UnliftedNewtypesLPFamily
',
normal
,
compile
,
[''])
test
('
UnliftedNewtypesDifficultUnification
',
normal
,
compile
,
[''])
test
('
T16832
',
normal
,
ghci_script
,
['
T16832.script
'])
test
('
T16946
',
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