[project @ 2000-10-27 15:34:30 by simonmar]

fix location of .hi file for packages

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 2037b87..0a7f9e0 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -159,7 +159,7 @@ maybePackageModule mod_name = do
            return (Just (mkModule mod_name pkg_name,
                          ModuleLocation{ 
                                hs_file  = "error:_package_module;_no_source",
-                               hi_file  = hi,
+                               hi_file  = path ++ '/':hi,
                                obj_file = "error:_package_module;_no_object"
                           }
                   ))