From e8188ea611e4c9223492203c0ec0370c3c45b225 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 17 Sep 2012 00:18:07 -0400 Subject: flip catchDefaultIO --- Utility/Directory.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utility/Directory.hs') diff --git a/Utility/Directory.hs b/Utility/Directory.hs index 057da6087..e6609caf9 100644 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -43,7 +43,7 @@ dirContentsRecursive topdir = dirContentsRecursive' topdir [""] dirContentsRecursive' :: FilePath -> [FilePath] -> IO [FilePath] dirContentsRecursive' _ [] = return [] dirContentsRecursive' topdir (dir:dirs) = unsafeInterleaveIO $ do - (files, dirs') <- collect [] [] =<< catchDefaultIO (dirContents (topdir dir)) [] + (files, dirs') <- collect [] [] =<< catchDefaultIO [] (dirContents (topdir dir)) files' <- dirContentsRecursive' topdir (dirs' ++ dirs) return (files ++ files') where -- cgit v1.2.3