diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-08 18:42:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-08 18:42:59 -0400 |
| commit | 691eeb92d9fc4ffc445750a279d125f272934897 (patch) | |
| tree | e758a891b480b1cd53c8363a1c03c43a8bcdbb8a /RemoteDaemon | |
| parent | c5f29d780863b010aa2893bfa3935588d22b7e13 (diff) | |
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.
Diffstat (limited to 'RemoteDaemon')
| -rw-r--r-- | RemoteDaemon/Core.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/RemoteDaemon/Core.hs b/RemoteDaemon/Core.hs index 446948da6..2166c2b7a 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 |