diff options
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 |