Commit 8b9fadb6 authored by Simon Marlow's avatar Simon Marlow
Browse files

cleanup only

parent 68f7cd16
......@@ -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)
......@@ -531,12 +531,6 @@ findObjectLinkable mod obj_fn obj_time = do
then return (LM obj_time mod [DotO obj_fn, DotO stub_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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment