[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".

ghc/compiler/main/Finder.lhs

@@ -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