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

log local pairing messages received when debugging is enabled

Browse source
This commit is contained in:
Joey Hess 2013-06-11 00:25:44 -04:00
parent 680d3b5120
commit c7b493fecb
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Assistant/Threads/PairListener.hs
View file

@ -37,6 +37,7 @@ pairListenerThread urlrenderer = namedThread "PairListener" $ do
go reqs cache sock = liftIO (getmsg sock []) >>= \msg -> case readish msg of go reqs cache sock = liftIO (getmsg sock []) >>= \msg -> case readish msg of
Nothing -> go reqs cache sock Nothing -> go reqs cache sock
Just m -> do Just m -> do
debug ["received", show msg]
sane <- checkSane msg sane <- checkSane msg
(pip, verified) <- verificationCheck m (pip, verified) <- verificationCheck m
=<< (pairingInProgress <$> getDaemonStatus) =<< (pairingInProgress <$> getDaemonStatus)