From 2b509caed6d5971af823c71174d2725a123d9753 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 13 Nov 2000 14:45:22 +0000
Subject: [PATCH] [project @ 2000-11-13 14:45:22 by sewardj] Deal correctly
 with module names containing underscores.

---
 ghc/compiler/main/Finder.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"
 
-- 
1.7.10.4