1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/DatagramServer.hs b/src/Network/DatagramServer.hs
index b9c78885..1376748f 100644
--- a/src/Network/DatagramServer.hs
+++ b/src/Network/DatagramServer.hs
@@ -481,17 +481,19 @@ runHandler mgr@Manager{..} meth h addr m = Lifted.catches wrapper failbacks
 
     failbacks =
       [ E.Handler $ \ (e :: HandlerFailure) -> do
-          logMsg 'D' "handler.failed" signature
+          logMsg 'D' "handler.HandlerFailure" signature
           return $ Left $ KError ProtocolError (prettyHF e) (envelopeTransaction m)
 
 
         -- may happen if handler makes query and fail
       , E.Handler $ \ (e :: QueryFailure) -> do
+          logMsg 'D' "handler.QueryFailure" signature
           return $ Left $ KError ServerError (prettyQF e) (envelopeTransaction m)
 
         -- since handler thread exit after sendMessage we can safely
         -- suppress async exception here
       , E.Handler $ \ (e :: SomeException) -> do
+          logMsg 'D' "handler.SomeException" (signature <> T.pack (" "++show e))
           return $ Left $ KError GenericError (BC.pack (show e)) (envelopeTransaction m)
       ]