1 files changed, 1 insertions, 1 deletions
diff --git a/Mainline.hs b/Mainline.hs
index 8ff13390..291a196f 100644
--- a/Mainline.hs
+++ b/Mainline.hs
@@ -589,7 +589,7 @@ newClient addr = do
        client = Client
            { clientNet           = net
            , clientDispatcher    = dispatch
-            , clientErrorReporter = printErrors stderr
+            , clientErrorReporter = ignoreErrors -- printErrors stderr
            , clientPending       = map_var
            , clientAddress       = \maddr -> atomically $ do
                let var = case flip prefer4or6 Nothing <$> maddr of

diff --git a/Mainline.hs b/Mainline.hs index 8ff13390..291a196f 100644 --- a/Mainline.hs +++ b/Mainline.hs
@@ -589,7 +589,7 @@ newClient addr = do
589	client = Client	589	client = Client
590	{ clientNet = net	590	{ clientNet = net
591	, clientDispatcher = dispatch	591	, clientDispatcher = dispatch
592	, clientErrorReporter = printErrors stderr	592	, clientErrorReporter = ignoreErrors -- printErrors stderr
593	, clientPending = map_var	593	, clientPending = map_var
594	, clientAddress = \maddr -> atomically $ do	594	, clientAddress = \maddr -> atomically $ do
595	let var = case flip prefer4or6 Nothing <$> maddr of	595	let var = case flip prefer4or6 Nothing <$> maddr of