resolve issue1877: make pull --dry-run --xml terse
--------------------------------------------------
> - when (old_default == repodirs) $
> + when (old_default == repodirs && not (XMLOutput `elem` opts)) $
> let pulling = if DryRun `elem` opts then "Would pull" else "Pulling"
> in putInfo opts $ text $ pulling++" from "++concatMap formatPath repodirs++"..."
> (Sealed them, Sealed compl) <- readRepos repository opts repodirs
Hmm, that was easy. Thanks and sorry for the inefficient delegation!
Applied, with a mv patch on top of it to rename the failing test to a
passing one.
--
Eric Kow <http://www.nltg.brighton.ac.uk/home/Eric.Kow>
PGP Key ID: 08AC04F9
|