remove Utility.Conditional and use IfElse
This drops the >>! and >>? with the nice low fixity. IfElse does have undocumented >>=>>! and >>=>>? operators, but I deem that too fishy. Anyway, using whenM and unlessM is easier; I sometimes mixed the operators up.
This commit is contained in:
parent
ba6088b249
commit
ce5637498f
12 changed files with 23 additions and 40 deletions
|
@ -55,8 +55,8 @@ directorySetup u c = do
|
|||
-- verify configuration is sane
|
||||
let dir = fromMaybe (error "Specify directory=") $
|
||||
M.lookup "directory" c
|
||||
liftIO $ doesDirectoryExist dir
|
||||
>>! error $ "Directory does not exist: " ++ dir
|
||||
liftIO $ unlessM (doesDirectoryExist dir) $
|
||||
error $ "Directory does not exist: " ++ dir
|
||||
c' <- encryptionSetup c
|
||||
|
||||
-- The directory is stored in git config, not in this remote's
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue