Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
c871ce49
Commit
c871ce49
authored
Jun 23, 2016
by
Simon Peyton Jones
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Comments around invisibility
Very minor
parent
d2958bd0
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
3 deletions
+4
-3
compiler/iface/IfaceType.hs
compiler/iface/IfaceType.hs
+1
-1
compiler/types/TyCoRep.hs
compiler/types/TyCoRep.hs
+0
-1
compiler/types/Type.hs
compiler/types/Type.hs
+3
-1
No files found.
compiler/iface/IfaceType.hs
View file @
c871ce49
...
...
@@ -156,7 +156,7 @@ type IfaceForAllBndr = TyVarBndr IfaceTvBndr VisibilityFlag
data
IfaceTcArgs
=
ITC_Nil
|
ITC_Vis
IfaceType
IfaceTcArgs
-- "Vis" means show when pretty-printing
|
ITC_Invis
IfaceKind
IfaceTcArgs
-- "Invis" means don't show when pretty-printin
|
ITC_Invis
IfaceKind
IfaceTcArgs
-- "Invis" means don't show when pretty-printin
g
-- except with -fprint-explicit-kinds
-- Encodes type constructors, kind constructors,
...
...
compiler/types/TyCoRep.hs
View file @
c871ce49
...
...
@@ -2752,7 +2752,6 @@ pprTvBndrs tvs = sep (map pprTvBndr tvs)
-- | Render the ... in @(forall ... .)@ or @(forall ... ->)@.
-- Returns both the list of not-yet-rendered binders and the doc.
-- No anonymous binders here!
ppr_tv_bndrs
::
[
TyVarBinder
]
->
VisibilityFlag
-- ^ visibility of the first binder in the list
->
([
TyVarBinder
],
SDoc
)
...
...
compiler/types/Type.hs
View file @
c871ce49
...
...
@@ -1347,7 +1347,9 @@ filterOutInvisibleTyVars :: TyCon -> [TyVar] -> [TyVar]
filterOutInvisibleTyVars
tc
tvs
=
snd
$
partitionInvisibles
tc
mkTyVarTy
tvs
-- | Given a tycon and a list of things (which correspond to arguments),
-- partitions the things into the invisible ones and the visible ones.
-- partitions the things into
-- Invisible or Specified ones and
-- Visible ones
-- The callback function is necessary for this scenario:
--
-- > T :: forall k. k -> k
...
...
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