summaryrefslogtreecommitdiff
path: root/Mainline.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2017-08-02 01:10:08 -0400
committerjoe <joe@jerkface.net>2017-08-02 01:10:08 -0400
commit4198ce253ea9ef9184b325e4bb8d18fcc483b381 (patch)
treeee2db363a165e69d7ea9a07ab3d762e86b83f124 /Mainline.hs
parent8a46b3a8808a15017207bdcea067aa7857a95a11 (diff)
More Tox stuff.
Diffstat (limited to 'Mainline.hs')
-rw-r--r--Mainline.hs2
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
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