diff options
Diffstat (limited to 'ghc/compiler/main')
| -rw-r--r-- | ghc/compiler/main/MkIface.lhs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs index 49c1cb1404..992f0863c9 100644 --- a/ghc/compiler/main/MkIface.lhs +++ b/ghc/compiler/main/MkIface.lhs @@ -46,7 +46,8 @@ import NameEnv import NameSet import OccName ( pprOccName ) import TyCon ( TyCon, getSynTyConDefn, isSynTyCon, isNewTyCon, isAlgTyCon, tyConGenIds, - tyConTheta, tyConTyVars, tyConDataCons, tyConFamilySize, isClassTyCon + tyConTheta, tyConTyVars, tyConDataCons, tyConFamilySize, + isClassTyCon, isForeignTyCon ) import Class ( classExtraBigSig, classTyCon, DefMeth(..) ) import FieldLabel ( fieldLabelType ) @@ -187,6 +188,11 @@ ifaceTyCls (ATyCon tycon) so_far tcdSysNames = map getName (tyConGenIds tycon), tcdLoc = noSrcLoc } + | isForeignTyCon tycon + = ForeignType { tcdName = getName tycon, + tcdFoType = DNType, -- The only case at present + tcdLoc = noSrcLoc } + | otherwise = pprPanic "ifaceTyCls" (ppr tycon) tyvars = tyConTyVars tycon |