Commit 30365d65 authored by panne's avatar panne

[project @ 2000-03-18 13:07:04 by panne]

Re-enable soft failure while searching .hi files
parent 678cfbcd
......@@ -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
......
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