From 927cb18681b0104e290cb2cbbb0d5e5fd6370537 Mon Sep 17 00:00:00 2001 From: jeremy Date: Sun, 24 Aug 2008 23:49:48 +0000 Subject: [PATCH] remove bogus calls to decode in loadDepends decode was being called on the module names in loadDepends, however these strings were not Z-coded. Most of the time decode just returns the string unmodified, which is why this problem has not caused widespread failure. --- src/System/Plugins/Load.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/System/Plugins/Load.hs b/src/System/Plugins/Load.hs index 9aacefe..d0e9a0f 100644 --- a/src/System/Plugins/Load.hs +++ b/src/System/Plugins/Load.hs @@ -661,7 +661,7 @@ loadDepends obj incpaths = do -- now, try to generate a path to the actual .o file -- fix up hierachical names let mods_ = map (\s -> (s, map (\c -> - if c == '.' then '/' else c) $ decode s)) ds' + if c == '.' then '/' else c) $ s)) ds' -- construct a list of possible dependent modules to load let mods = concatMap (\p -> @@ -691,7 +691,7 @@ loadDepends obj incpaths = do #if DEBUG when (not (null ps')) $ putStrLn "done" putStr "Loading object" - mapM_ (\(m,_) -> putStr (" "++(decode m)) >> hFlush stdout) mods'' + mapM_ (\(m,_) -> putStr (" "++ m) >> hFlush stdout) mods'' #endif moduleDeps <- mapM (\(hi,m) -> loadObject m (Object hi)) mods'' return (hiface,moduleDeps)