From: simonmar <unknown>
Date: Wed, 3 Jan 2001 15:39:32 +0000 (+0000)
Subject: [project @ 2001-01-03 15:39:32 by simonmar]
X-Git-Tag: Approximately_9120_patches~2976
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c159dcb07e0598ab8ffb6e88493df84e0c72ae2b;p=ghc-hetmet.git

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

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