projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix warnings on non-Windows
[ghc-hetmet.git]
/
compiler
/
main
/
Finder.lhs
diff --git
a/compiler/main/Finder.lhs
b/compiler/main/Finder.lhs
index
61bf196
..
f50e12a
100644
(file)
--- a/
compiler/main/Finder.lhs
+++ b/
compiler/main/Finder.lhs
@@
-481,9
+481,9
@@
mkStubPaths dflags mod location
= let
stubdir = stubDir dflags
= let
stubdir = stubDir dflags
- mod_basename = dots_to_slashes (moduleNameString mod)
- src_basename = basenameOf (expectJust "mkStubPaths"
- (ml_hs_file location))
+ mod_basename = moduleNameSlashes mod
+ src_basename = dropExtension $ expectJust "mkStubPaths"
+ (ml_hs_file location)
stub_basename0
| Just dir <- stubdir = dir </> mod_basename
stub_basename0
| Just dir <- stubdir = dir </> mod_basename
@@
-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