1 files changed, 8 insertions, 8 deletions

diff --git a/src/Network/DatagramServer.hs b/src/Network/DatagramServer.hs
index 5c77fb86..cd74f589 100644
--- a/src/Network/DatagramServer.hs
+++ b/src/Network/DatagramServer.hs
@@ -526,13 +526,13 @@ handleQuery meth raw q addr = void $ fork $ do
   let  res' = either buildError Just res
        ctx = error "TODO TOX ToxCipherContext 2 or () for Mainline"
        resbs = fmap (encodeHeaders ctx) res' :: Maybe BS.ByteString
--- TODO: Generalize this debug print.
---     resbe = either toBEncode toBEncode res
--- $(logOther "q") $ T.unlines
---   [ either (const "<unicode-fail>") id $ T.decodeUtf8' (BL.toStrict $ showBEncode raw)
---   , "==>"
---   , either (const "<unicode-fail>") id $ T.decodeUtf8' (BL.toStrict $ showBEncode resbe)
---   ]
+  -- TODO: Generalize this debug print.
+  --     resbe = either toBEncode toBEncode res
+  -- .(logOther "q") \$ T.unlines
+  --   [ either (const "<unicode-fail>") id \$ T.decodeUtf8' (BL.toStrict $ showBEncode raw)
+  --   , "==>"
+  --   , either (const "<unicode-fail>") id \$ T.decodeUtf8' (BL.toStrict $ showBEncode resbe)
+  --   ]
   maybe (return ()) (sendMessage sock addr) resbs
 
 handleResponse :: ( MonadKRPC h m raw msg
@@ -568,7 +568,7 @@ listener p = do
       handle exceptions $ BS.recvFrom sock (optMaxMsgSize options)
     case parsePacket (msgProxy p) bs >>= \r -> (,) r <$> decodeHeaders ctx r of
       Left  e       -> -- XXX: Send parse failure message?
-                       --      liftIO $ sendMessage sock addr $ encodeHeaders ctx (unknownMessage e)
+                       --      liftIO \$ sendMessage sock addr $ encodeHeaders ctx (unknownMessage e)
                        return () -- Without transaction id, error message isn't very useful.
       Right (raw,m) ->
         case envelopeClass m of