[project @ 2000-11-13 14:45:22 by sewardj]

Deal correctly with module names containing underscores.

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"