diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-01-22 13:20:47 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-01-22 13:20:47 +0000 |
| commit | 8b9fadb6ff428a4edf433d291b1fe2facb6f3642 (patch) | |
| tree | 32b4bae8bca5dc1256cbfec6ad87370c3b41cc43 | |
| parent | 68f7cd160712d9666a492703f7d4a89ad7e9158c (diff) | |
| download | haskell-8b9fadb6ff428a4edf433d291b1fe2facb6f3642.tar.gz | |
cleanup only
| -rw-r--r-- | compiler/main/Finder.lhs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs index 0e36b104c3..f50e12a539 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 |