[project @ 2000-10-12 10:32:40 by sewardj]

[ghc-hetmet.git] / ghc / compiler / ghci / CmStaticInfo.lhs

diff --git a/ghc/compiler/ghci/CmStaticInfo.lhs b/ghc/compiler/ghci/CmStaticInfo.lhs
index e5b32b1..6a4d00b 100644 (file)
--- a/ghc/compiler/ghci/CmStaticInfo.lhs
+++ b/ghc/compiler/ghci/CmStaticInfo.lhs
@@ -13,7 +13,7 @@ import List           ( nub )
 import Char            ( isUpper )
 import Directory       ( getDirectoryContents )
 
-import Module          ( ModuleName, PackageName )
+import Module          ( ModuleName, mkModuleName, PackageName )
 \end{code}
 
 \begin{code}
@@ -63,7 +63,7 @@ mk_module_table raw_info
         return iface_table
      where
         fsifyStrings (mod_str, pkg_str, path_str)
-           = (_PK_ mod_str, _PK_ pkg_str, path_str)
+           = (mkModuleName mod_str, _PK_ pkg_str, path_str)
         -- nm_and_paths :: Package -> [(PkgName,Path)]
         nm_and_paths package 
            = [(name package, path) | path <- nub (import_dirs package)]