after is a better name for observe_
This commit is contained in:
parent
34abd7bca8
commit
ee554542c1
3 changed files with 9 additions and 10 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue