projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
68f7cd1
)
cleanup only
author
Simon Marlow
<simonmar@microsoft.com>
Tue, 22 Jan 2008 13:20:47 +0000
(13:20 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Tue, 22 Jan 2008 13:20:47 +0000
(13:20 +0000)
compiler/main/Finder.lhs
patch
|
blob
|
history
diff --git
a/compiler/main/Finder.lhs
b/compiler/main/Finder.lhs
index
0e36b10
..
f50e12a
100644
(file)
--- a/
compiler/main/Finder.lhs
+++ b/
compiler/main/Finder.lhs
@@
-481,7
+481,7
@@
mkStubPaths dflags mod location
= let
stubdir = stubDir dflags
= let
stubdir = stubDir dflags
- mod_basename = dots_to_slashes (moduleNameString mod)
+ mod_basename = moduleNameSlashes mod
src_basename = dropExtension $ expectJust "mkStubPaths"
(ml_hs_file location)
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])
-- -----------------------------------------------------------------------------
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
-- Error messages
cannotFindModule :: DynFlags -> ModuleName -> FindResult -> SDoc