rnTyClDecl (ForeignType {tcdLName = name, tcdFoType = fo_type, tcdExtName = ext_name})
= lookupLocatedTopBndrRn name `thenM` \ name' ->
returnM (ForeignType {tcdLName = name', tcdFoType = fo_type, tcdExtName = ext_name},
rnTyClDecl (ForeignType {tcdLName = name, tcdFoType = fo_type, tcdExtName = ext_name})
= lookupLocatedTopBndrRn name `thenM` \ name' ->
returnM (ForeignType {tcdLName = name', tcdFoType = fo_type, tcdExtName = ext_name},