From 1f3ed1b6b240dba88c07e754e62fc04483ba7a1b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 8 Dec 2016 18:42:59 -0400 Subject: [PATCH] avoid remotedaemon outputting misc Messages when running It's a daemon or is communictaing with the assistant over stdio, so should not display checksum messages etc while serving the P2P protocol etc. --- RemoteDaemon/Core.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/RemoteDaemon/Core.hs b/RemoteDaemon/Core.hs index 446948da6d..2166c2b7a2 100644 --- a/RemoteDaemon/Core.hs +++ b/RemoteDaemon/Core.hs @@ -20,6 +20,7 @@ import Utility.SimpleProtocol import Utility.ThreadScheduler import Config import Annex.Ssh +import Types.Messages import Control.Concurrent import Control.Concurrent.Async @@ -151,7 +152,9 @@ genTransportHandle :: IO TransportHandle genTransportHandle = do annexstate <- newMVar =<< Annex.new =<< Git.CurrentRepo.get g <- Annex.repo <$> readMVar annexstate - return $ TransportHandle (LocalRepo g) annexstate + let h = TransportHandle (LocalRepo g) annexstate + liftAnnex h $ Annex.setOutput QuietOutput + return h updateTransportHandle :: TransportHandle -> IO TransportHandle updateTransportHandle h@(TransportHandle _g annexstate) = do