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 () return ()
where where
recurse = watchDir' scan i add del recurse = watchDir' scan i add del
walk f = ifM (Files.isDirectory <$> getFileStatus f) walk f = ifM (catchBoolIO $ Files.isDirectory <$> getFileStatus f)
( recurse f ( recurse f
, if scan then add f else return () , if scan then add f else return ()
) )
@ -80,5 +80,5 @@ waitForTermination = do
takeMVar mv takeMVar mv
where where
check sig mv = do check sig mv = do
installHandler sig (CatchOnce $ putMVar mv ()) Nothing _ <- installHandler sig (CatchOnce $ putMVar mv ()) Nothing
return () return ()