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

Attachment: signature.asc
Description: Digital signature

_______________________________________________
darcs-users mailing list
darcs-users@darcs.net
http://lists.osuosl.org/mailman/listinfo/darcs-users

Reply via email to