From 4ccc86669a3c125ca357e4f37643fbe436988602 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 12 Apr 2012 16:46:57 -0400 Subject: don't fall over broken links --- Utility/Inotify.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Utility') diff --git a/Utility/Inotify.hs b/Utility/Inotify.hs index 56906466b..25514438d 100644 --- a/Utility/Inotify.hs +++ b/Utility/Inotify.hs @@ -57,7 +57,7 @@ watchDir' scan i add del dir = do return () where recurse = watchDir' scan i add del - walk f = ifM (Files.isDirectory <$> getFileStatus f) + walk f = ifM (catchBoolIO $ Files.isDirectory <$> getFileStatus f) ( recurse f , if scan then add f else return () ) @@ -80,5 +80,5 @@ waitForTermination = do takeMVar mv where check sig mv = do - installHandler sig (CatchOnce $ putMVar mv ()) Nothing + _ <- installHandler sig (CatchOnce $ putMVar mv ()) Nothing return () -- cgit v1.2.3