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:
Joey Hess 2011-05-17 11:44:13 -04:00
parent c91929f693
commit 21d9c84e72
5 changed files with 13 additions and 13 deletions

View file

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