Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
H
haddock
Manage
Activity
Members
Labels
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Analyze
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Bartłomiej Cieślar
haddock
Commits
ab954263
Commit
ab954263
authored
9 years ago
by
eir@cis.upenn.edu
Browse files
Options
Downloads
Patches
Plain Diff
Follow-on changes to support RuntimeRep
parent
23f1420c
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
haddock-api/src/Haddock/Convert.hs
+4
-5
4 additions, 5 deletions
haddock-api/src/Haddock/Convert.hs
with
4 additions
and
5 deletions
haddock-api/src/Haddock/Convert.hs
+
4
−
5
View file @
ab954263
...
...
@@ -36,7 +36,7 @@ import TyCoRep
import
TysPrim
(
alphaTyVars
,
unliftedTypeKindTyConName
)
import
TysWiredIn
(
listTyConName
,
starKindTyConName
)
import
PrelNames
(
hasKey
,
eqTyConKey
,
ipClassKey
,
tYPETyConKey
,
l
iftedDataConKey
,
u
nliftedDataConKey
)
,
tYPETyConKey
,
ptrRepL
iftedDataConKey
,
ptrRepU
nliftedDataConKey
)
import
Unique
(
getUnique
)
import
Util
(
filterByList
,
filterOut
)
import
Var
...
...
@@ -180,12 +180,11 @@ synifyTyCon _coax tc
,
fdLName
=
synifyName
tc
,
fdTyVars
=
synifyTyVars
(
tyConTyVars
tc
)
,
fdResultSig
=
synifyFamilyResultSig
resultVar
tyConResKind
synifyFamilyResultSig
resultVar
(
tyConResKind
tc
)
,
fdInjectivityAnn
=
synifyInjectivityAnn
resultVar
(
tyConTyVars
tc
)
(
familyTyConInjectivityInfo
tc
)
}
tyConResKind
=
piResultTys
(
tyConKind
tc
)
(
mkTyVarTys
(
tyConTyVars
tc
))
synifyTyCon
coax
tc
|
Just
ty
<-
synTyConRhs_maybe
tc
...
...
@@ -364,11 +363,11 @@ synifyType _ (TyConApp tc tys)
-- Use */# instead of TYPE 'Lifted/TYPE 'Unlifted (#473)
|
tc
`
hasKey
`
tYPETyConKey
,
[
TyConApp
lev
[]
]
<-
tys
,
lev
`
hasKey
`
l
iftedDataConKey
,
lev
`
hasKey
`
ptrRepL
iftedDataConKey
=
noLoc
(
HsTyVar
(
noLoc
starKindTyConName
))
|
tc
`
hasKey
`
tYPETyConKey
,
[
TyConApp
lev
[]
]
<-
tys
,
lev
`
hasKey
`
u
nliftedDataConKey
,
lev
`
hasKey
`
ptrRepU
nliftedDataConKey
=
noLoc
(
HsTyVar
(
noLoc
unliftedTypeKindTyConName
))
-- Use non-prefix tuple syntax where possible, because it looks nicer.
|
Just
sort
<-
tyConTuple_maybe
tc
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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!
Save comment
Cancel
Please
register
or
sign in
to comment