X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FFinder.lhs;h=ed3cdf8ddd444815863e80324e7bd6e512dd121e;hb=1c62b517711ac232a8024d91fd4b317a6804d28e;hp=03c2bbeb16d6b35b43f4d3126849e57707a02202;hpb=f0e76bb0af1f8474bf081cd7f1ca8cd7f9ede781;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 03c2bbe..ed3cdf8 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/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