diff options
Diffstat (limited to 'compiler/ghci/DebuggerUtils.hs')
| -rw-r--r-- | compiler/ghci/DebuggerUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/DebuggerUtils.hs b/compiler/ghci/DebuggerUtils.hs index cafc3759bf..1bca75cedd 100644 --- a/compiler/ghci/DebuggerUtils.hs +++ b/compiler/ghci/DebuggerUtils.hs @@ -46,7 +46,7 @@ dataConInfoPtrToName x = do modFS = mkFastStringByteList mod occFS = mkFastStringByteList occ occName = mkOccNameFS OccName.dataName occFS - modName = mkModule (fsToPackageKey pkgFS) (mkModuleNameFS modFS) + modName = mkModule (fsToUnitId pkgFS) (mkModuleNameFS modFS) return (Left $ showSDoc dflags $ ppr modName <> dot <> ppr occName) `recoverM` (Right `fmap` lookupOrig modName occName) |