1 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 492b7bb4..f15a0855 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -135,18 +135,18 @@ partitionTransportM parse encodex tr = do
 --      * f add x --> Nothing, consume x
 --                --> Just id, leave x to a different handler
 --                --> Just g, apply g to x and leave that to a different handler
-addHandler :: ErrorReporter addr x meth tid err -> (addr -> x -> IO (Maybe (x -> x))) -> Transport err addr x -> Transport err addr x
-addHandler err f tr = tr
+addHandler :: (err -> IO ()) -> (addr -> x -> IO (Maybe (x -> x))) -> Transport err addr x -> Transport err addr x
+addHandler onParseError f tr = tr
     { awaitMessage = \kont -> fix $ \eat -> awaitMessage tr $ \m -> do
         case m of
             Just (Right (x, addr)) -> f addr x >>= maybe eat (kont . Just . Right . (, addr) . ($ x))
-            Just (Left  e        ) -> reportParseError err e >> kont (Just $ Left e)
+            Just (Left  e        ) -> onParseError e >> kont (Just $ Left e)
             Nothing                -> kont $ Nothing
     }
 
 -- | Modify a 'Transport' to invoke an action upon every received packet.
 onInbound :: (addr -> x -> IO ()) -> Transport err addr x -> Transport err addr x
-onInbound f tr = addHandler ignoreErrors (\addr x -> f addr x >> return (Just id)) tr
+onInbound f tr = addHandler (const $ return ()) (\addr x -> f addr x >> return (Just id)) tr
 
 -- * Using a query\/response client.