run with noMessages

This avoids extraneous output from p2phttp, including eg, progress
displays when transferring to proxied special remotes.

diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs
index caa693e1395cbc3b4de981d8773667baab8efaf2..5608f67bc847a7f8def91a717790fbc1486d148f 100644 (file)
--- a/Command/P2PHttp.hs
+++ b/Command/P2PHttp.hs
@@ -25,9 +25,10 @@ import qualified Data.Map as M
 import Data.String
 
 cmd :: Command
-cmd = withAnnexOptions [jobsOption] $ command "p2phttp" SectionPlumbing
-       "communicate in P2P protocol over http"
-       paramNothing (seek <$$> optParser)
+cmd = noMessages $ withAnnexOptions [jobsOption] $
+       command "p2phttp" SectionPlumbing
+               "communicate in P2P protocol over http"
+               paramNothing (seek <$$> optParser)
 
 data Options = Options
        { portOption :: Maybe PortNumber