diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs
index caa693e139..5608f67bc8 100644
--- 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