log local pairing messages received when debugging is enabled

This commit is contained in:
Joey Hess 2013-06-11 00:25:44 -04:00
parent 680d3b5120
commit c7b493fecb

View file

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