1 files changed, 8 insertions, 0 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 4fc9438c..221c2284 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -306,6 +306,14 @@ data ErrorReporter addr x meth tid err = ErrorReporter
     , reportTimeout :: meth -> tid -> addr -> IO ()
     }
 
+ignoreErrors :: ErrorReporter addr x meth tid err
+ignoreErrors = ErrorReporter
+    { reportParseError = \_ -> return ()
+    , reportMissingHandler = \_ _ _ -> return ()
+    , reportUnknown = \_ _ _ -> return ()
+    , reportTimeout = \_ _ _ -> return ()
+    }
+
 -- Change the /err/ type for an 'ErrorReporter'.
 contramapE f (ErrorReporter pe mh unk tim)
     = ErrorReporter (\e -> pe (f e))