mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

avoid remotedaemon outputting misc Messages when running

Browse source 
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.
This commit is contained in:
Joey Hess 2016-12-08 18:42:59 -04:00
parent 0f4ee4f298
commit 1f3ed1b6b2
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
RemoteDaemon/Core.hs
View file

@ -20,6 +20,7 @@ import Utility.SimpleProtocol
import Utility.ThreadScheduler import Utility.ThreadScheduler
import Config import Config
import Annex.Ssh import Annex.Ssh
import Types.Messages
import Control.Concurrent import Control.Concurrent
import Control.Concurrent.Async import Control.Concurrent.Async
@ -151,7 +152,9 @@ genTransportHandle :: IO TransportHandle
genTransportHandle = do genTransportHandle = do
annexstate <- newMVar =<< Annex.new =<< Git.CurrentRepo.get annexstate <- newMVar =<< Annex.new =<< Git.CurrentRepo.get
g <- Annex.repo <$> readMVar annexstate 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 :: TransportHandle -> IO TransportHandle
updateTransportHandle h@(TransportHandle _g annexstate) = do updateTransportHandle h@(TransportHandle _g annexstate) = do