1 files changed, 13 insertions, 2 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 4e697109..3ee6d945 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -37,6 +37,7 @@ import System.Endian
 import System.IO
 import System.IO.Error
 import System.Timeout
+import DPut
 
 -- | Three methods are required to implement a datagram based query\/response protocol.
 data Transport err addr x = Transport
@@ -426,6 +427,16 @@ ignoreErrors = ErrorReporter
     , reportTimeout = \_ _ _ -> return ()
     }
 
+logErrors :: ( Show addr
+               , Show meth
+               ) => ErrorReporter addr x meth tid String
+logErrors = ErrorReporter
+    { reportParseError = \err -> dput XMisc err
+    , reportMissingHandler = \meth addr x -> dput XMisc $ show addr ++ " --> Missing handler ("++show meth++")"
+    , reportUnknown = \addr x err -> dput XMisc $ show addr ++ " --> " ++ err
+    , reportTimeout = \meth tid addr -> dput XMisc $ show addr ++ " --> Timeout ("++show meth++")"
+    }
+
 printErrors :: ( Show addr
                , Show meth
                ) => Handle -> ErrorReporter addr x meth tid String
@@ -550,9 +561,9 @@ udpTransport' bind_address = do
             (SockAddrInet6 port 0 (0,0,0x0000ffff,raw4) 0) -> \bs -> do
                 let host4 = toBE32 raw4
                 -- Change 4mapped6 to ordinary IPv4.
-                -- hPutStrLn stderr $ "4mapped6 -> "++show (SockAddrInet port host4)
+                -- dput XMisc $ "4mapped6 -> "++show (SockAddrInet port host4)
                 saferSendTo sock bs (SockAddrInet port host4)
-            addr@(SockAddrInet6 {}) -> \bs -> hPutStrLn stderr ("Discarding packet to "++show addr)
+            addr@(SockAddrInet6 {}) -> \bs -> dput XMisc ("Discarding packet to "++show addr)
             addr4 -> \bs -> saferSendTo sock bs addr4
         _ -> \addr bs -> saferSendTo sock bs addr
     , closeTransport = close sock