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

after is a better name for observe_

Browse source
This commit is contained in:
Joey Hess 2012-01-03 00:29:27 -04:00
parent 34abd7bca8
commit ee554542c1
3 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Rsync.hs
View file

@ -172,7 +172,7 @@ withRsyncScratchDir a = do
let tmp = t </> "rsynctmp" </> show pid
nuke tmp
liftIO $ createDirectoryIfMissing True tmp
observe_ (nuke tmp) (a tmp)
nuke tmp `after` a tmp
where
nuke d = liftIO $
doesDirectoryExist d >>? removeDirectoryRecursive d