fun with symbols
Nothing at all on hackage is using <&&> or <||>. (Also, <&&> should short-circuit on failure.)
This commit is contained in:
parent
d6624b6c79
commit
a362c46b70
4 changed files with 15 additions and 20 deletions
|
@ -42,7 +42,7 @@ start :: Maybe Utility.Format.Format -> FilePath -> (Key, Backend) -> CommandSta
|
|||
start format file (key, _) = do
|
||||
-- only files inAnnex are shown, unless the user has requested
|
||||
-- others via a limit
|
||||
whenM (orM limited (inAnnex key)) $
|
||||
whenM (limited <||> inAnnex key) $
|
||||
unlessM (showFullJSON vars) $
|
||||
case format of
|
||||
Nothing -> liftIO $ putStrLn file
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue