Commit c159dcb0 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-01-03 15:39:32 by simonmar]

Don't filter the contents of the package directories.  It was wrong
when the hi suffix was anything other than ".hi".
parent 0d7ca635
......@@ -163,8 +163,7 @@ newPkgCache pkgs = do
pkg_name = _PK_ (name pkg)
let addDir fm dir = do
contents <- getDirectoryContents' dir
let clean_contents = filter isUsefulFile contents
return (addListToFM fm (zip clean_contents
return (addListToFM fm (zip contents
(repeat (pkg_name,dir))))
foldM addDir fm dirs
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