mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't fall over broken links

Browse source
This commit is contained in:
Joey Hess 2012-04-12 16:46:57 -04:00
parent d08a67a78e
commit 4ccc86669a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/Inotify.hs
View file

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