diff options
Diffstat (limited to 'compiler/GHC/Iface/Utils.hs')
| -rw-r--r-- | compiler/GHC/Iface/Utils.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/compiler/GHC/Iface/Utils.hs b/compiler/GHC/Iface/Utils.hs index 927897edf8..663a963688 100644 --- a/compiler/GHC/Iface/Utils.hs +++ b/compiler/GHC/Iface/Utils.hs @@ -182,13 +182,9 @@ updateDeclCafInfos decls Nothing = decls updateDeclCafInfos decls (Just non_cafs) = map update_decl decls where update_decl decl - | IfaceId nm ty details id_info <- decl + | IfaceId nm ty details infos <- decl , elemNameSet nm non_cafs - = IfaceId nm ty details $ - case id_info of - NoInfo -> HasInfo [HsNoCafRefs] - HasInfo infos -> HasInfo (HsNoCafRefs : infos) - + = IfaceId nm ty details (HsNoCafRefs : infos) | otherwise = decl @@ -1772,7 +1768,7 @@ dataConToIfaceDecl dataCon = IfaceId { ifName = getName dataCon, ifType = toIfaceType (dataConUserType dataCon), ifIdDetails = IfVanillaId, - ifIdInfo = NoInfo } + ifIdInfo = [] } -------------------------- coAxiomToIfaceDecl :: CoAxiom br -> IfaceDecl |