diff options
author | 2012-04-12 16:46:57 -0400 | |
---|---|---|
committer | 2012-04-12 16:46:57 -0400 | |
commit | 4ccc86669a3c125ca357e4f37643fbe436988602 (patch) | |
tree | ae9ab17231eeb3149ecce7f942758d3d5e3f9713 /Utility/Inotify.hs | |
parent | d08a67a78e4c950e1be4f1fd57a74744f443705f (diff) |
don't fall over broken links
Diffstat (limited to 'Utility/Inotify.hs')
-rw-r--r-- | Utility/Inotify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |