From: simonmar <unknown>
Date: Wed, 27 Jun 2001 11:11:31 +0000 (+0000)
Subject: [project @ 2001-06-27 11:11:31 by simonmar]
X-Git-Tag: Approximately_9120_patches~1702
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6b504e17eaaa20046a1a602271ad2cb2231fc021;p=ghc-hetmet.git

[project @ 2001-06-27 11:11:31 by simonmar]
fix hierarchical modules in a package
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 2fc393d..7dc2985 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -150,7 +150,8 @@ maybePackageModule mod_name = do
 		then return "hi"
 		else return (tag ++ "_hi")
 
-  let basename = moduleNameUserString mod_name
+  let mod_str  = moduleNameUserString mod_name 
+      basename = map (\c -> if c == '.' then '/' else c) mod_str
       hi = basename ++ '.':package_hisuf
 
   found <- findOnPackagePath pkgs hi
@@ -161,7 +162,7 @@ maybePackageModule mod_name = do
 			  ModuleLocation{ 
                                 ml_hspp_file = Nothing,
 				ml_hs_file   = Nothing,
-				ml_hi_file   = path,
+				ml_hi_file   = path ++ '/':hi,
 				ml_obj_file  = Nothing
 			   }
 		   ))