don't fall over broken links

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 ()