From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 22 Jan 2008 13:20:47 +0000 (+0000)
Subject: cleanup only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8b9fadb6ff428a4edf433d291b1fe2facb6f3642;p=ghc-hetmet.git

cleanup only
---

diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs
index 0e36b10..f50e12a 100644
--- a/compiler/main/Finder.lhs
+++ b/compiler/main/Finder.lhs
@@ -481,7 +481,7 @@ mkStubPaths dflags mod location
   = let
         stubdir = stubDir dflags
 
-        mod_basename = dots_to_slashes (moduleNameString mod)
+        mod_basename = moduleNameSlashes mod
         src_basename = dropExtension $ expectJust "mkStubPaths" 
                                                   (ml_hs_file location)
 
@@ -532,12 +532,6 @@ findObjectLinkable mod obj_fn obj_time = do
 	else return (LM obj_time mod [DotO obj_fn])
 
 -- -----------------------------------------------------------------------------
--- Utils
-
-dots_to_slashes :: String -> String
-dots_to_slashes = map (\c -> if c == '.' then '/' else c)
-
--- -----------------------------------------------------------------------------
 -- Error messages
 
 cannotFindModule :: DynFlags -> ModuleName -> FindResult -> SDoc