From: panne <unknown>
Date: Sat, 18 Mar 2000 13:07:04 +0000 (+0000)
Subject: [project @ 2000-03-18 13:07:04 by panne]
X-Git-Tag: Approximately_9120_patches~4950
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=30365d651f3471e1de1df627798fff0dad1bf6f8;p=ghc-hetmet.git

[project @ 2000-03-18 13:07:04 by panne]
Re-enable soft failure while searching .hi files
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index af634fd..ee14e8d 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -285,8 +285,7 @@ getAllFilesMatching :: SearchPath
 		    -> (ModuleHiMap, ModuleHiMap)
 		    -> (FilePath, String) 
 		    -> IO (ModuleHiMap, ModuleHiMap)
-getAllFilesMatching dirs hims (dir_path, suffix) = 
- do
+getAllFilesMatching dirs hims (dir_path, suffix) = ( do
     -- fpaths entries do not have dir_path prepended
   fpaths  <- getDirectoryContents dir_path
   is_dll <- catch
@@ -297,7 +296,7 @@ getAllFilesMatching dirs hims (dir_path, suffix) =
 			 return (if exists then Dll else NotDll)
 		)
 		(\ _ {-don't care-} -> return NotDll)
-  return (foldl (addModules is_dll) hims fpaths)
+  return (foldl (addModules is_dll) hims fpaths))
   -- soft failure
       `catch` 
         (\ err -> do