Added MAC authentication (hash after encrypt).

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/DatagramServer.hs b/src/Network/DatagramServer.hs
index 8c4ec928..bcf8b9af 100644
--- a/src/Network/DatagramServer.hs
+++ b/src/Network/DatagramServer.hs
@@ -569,8 +569,10 @@ listener mgr@Manager{..} hs p = do
     (bs, addr) <- liftIO $ 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?
+      Left  e       -> do
+                       -- XXX: Send parse failure message?
                        --      liftIO \$ sendMessage sock addr $ encodeHeaders ctx (unknownMessage e)
+                       logMsg 'W' "listener" (T.pack $ show e)
                        return () -- Without transaction id, error message isn't very useful.
       Right (raw,m) ->
         case envelopeClass m of