From: sewardj <unknown>
Date: Mon, 13 Nov 2000 14:45:22 +0000 (+0000)
Subject: [project @ 2000-11-13 14:45:22 by sewardj]
X-Git-Tag: Approximately_9120_patches~3365
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2b509caed6d5971af823c71174d2725a123d9753;p=ghc-hetmet.git

[project @ 2000-11-13 14:45:22 by sewardj]
Deal correctly with module names containing underscores.
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 5125fee..387864f 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -87,7 +87,7 @@ maybeHomeModule mod_name = do
 
         Just home_map -> return home_map
 
-   let basename = moduleNameString mod_name
+   let basename = moduleNameUserString mod_name
        hs  = basename ++ ".hs"
        lhs = basename ++ ".lhs"