diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-11 00:25:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-11 00:25:44 -0400 |
| commit | 6c732876249580de7765a6a6d27f10888c893eb4 (patch) | |
| tree | 3ede804abced8e07413ca3742c1adbfdbfe60786 /Assistant | |
| parent | 8a845cd656bc531b83f183188597f6e411d98fde (diff) | |
log local pairing messages received when debugging is enabled
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index cb9a94eff..8fc015c22 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -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) |