From 8b9fadb6ff428a4edf433d291b1fe2facb6f3642 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 22 Jan 2008 13:20:47 +0000 Subject: [PATCH] cleanup only --- compiler/main/Finder.lhs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) 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 -- 1.7.10.4