diff options
Diffstat (limited to 'compiler/basicTypes/OccName.hs')
| -rw-r--r-- | compiler/basicTypes/OccName.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/basicTypes/OccName.hs b/compiler/basicTypes/OccName.hs index da0157193c..67942df518 100644 --- a/compiler/basicTypes/OccName.hs +++ b/compiler/basicTypes/OccName.hs @@ -617,12 +617,12 @@ mkMaxTagOcc = mk_simple_deriv varName "$maxtag_" -- Generic deriving mechanism -- | Generate a module-unique name, to be used e.g. while generating new names --- for Generics types. We use module package key to avoid name clashes when +-- for Generics types. We use module unit id to avoid name clashes when -- package imports is used. mkModPrefix :: Module -> String mkModPrefix mod = pk ++ "_" ++ mn where - pk = packageKeyString (modulePackageKey mod) + pk = unitIdString (moduleUnitId mod) mn = moduleNameString (moduleName mod) mkGenD :: Module -> OccName -> OccName |