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
obsidiansystems
GHC
Commits
3f211235
Commit
3f211235
authored
Nov 14, 2016
by
Ömer Sinan Ağacan
Browse files
Update a comment
parent
ba213a30
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/basicTypes/MkId.hs
View file @
3f211235
...
...
@@ -882,7 +882,10 @@ isUnpackableType dflags fam_envs ty
[]
->
False
[
_
]
->
not
(
isNewTyCon
tc
)
_
->
True
,
all
isVanillaDataCon
cons
-- TODO (osa): Why do we need that?
,
-- currently we don't unpack constructors with existentials or coercions
-- (there's nothing wrong with that, we just need to do some adjusting to
-- support it)
all
isVanillaDataCon
cons
=
all
(
ok_con_args
(
unitNameSet
(
getName
tc
)))
cons
|
otherwise
=
False
...
...
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