Commit f855f3a8 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-04-30 09:40:16 by simonmar]

Reverse the directory list when building the home package directory
cache, so that earlier entries override later ones.
parent 2d2f0570
...@@ -84,7 +84,7 @@ maybeHomeModule mod_name = do ...@@ -84,7 +84,7 @@ maybeHomeModule mod_name = do
contents <- softGetDirectoryContents path contents <- softGetDirectoryContents path
let clean_contents = filter isUsefulFile contents let clean_contents = filter isUsefulFile contents
return (addListToFM fm (zip clean_contents (repeat path))) return (addListToFM fm (zip clean_contents (repeat path)))
home_map <- foldM extendFM emptyFM home_imports home_map <- foldM extendFM emptyFM (reverse home_imports)
writeIORef v_HomeDirCache (Just home_map) writeIORef v_HomeDirCache (Just home_map)
return home_map return home_map
......
Markdown is supported
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