From c7b493fecbc0b6ef9b61158a294f66e8ef0abf15 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 11 Jun 2013 00:25:44 -0400 Subject: [PATCH] log local pairing messages received when debugging is enabled --- Assistant/Threads/PairListener.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index cb9a94efff..8fc015c223 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)