more standard names for whenM and unlessM operators
These are defined in ifelse, but it's not currently available and I don't want to pull in a library for 6 lines of code anyhow. Also, ifelse sets the fixity to 1, which does not allow >>? error $ ...
This commit is contained in:
parent
c91929f693
commit
21d9c84e72
5 changed files with 13 additions and 13 deletions
|
@ -169,7 +169,7 @@ withRsyncScratchDir a = do
|
|||
return res
|
||||
where
|
||||
nuke d = liftIO $
|
||||
doesDirectoryExist d <&> removeDirectoryRecursive d
|
||||
doesDirectoryExist d >>? removeDirectoryRecursive d
|
||||
|
||||
rsyncRemote :: RsyncOpts -> [CommandParam] -> Annex Bool
|
||||
rsyncRemote o params = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue