Commit 3f211235 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan
Browse files

Update a comment

parent ba213a30
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment