From 770649a15332df52e98c8d99582e5d67d8d84787 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Fri, 24 Jan 2020 09:10:56 +0000 Subject: fix formatting which confuses haddock --- dht/src/Network/Tox/Onion/Routes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'dht/src/Network/Tox/Onion/Routes.hs') diff --git a/dht/src/Network/Tox/Onion/Routes.hs b/dht/src/Network/Tox/Onion/Routes.hs index 2f13a513..374b9648 100644 --- a/dht/src/Network/Tox/Onion/Routes.hs +++ b/dht/src/Network/Tox/Onion/Routes.hs @@ -276,7 +276,7 @@ updateTCP or addr x = do selectGateway :: TVar (R.BucketList TCP.NodeInfo) -> NodeInfo -> STM (Maybe TCP.NodeInfo) selectGateway tbl ni = do ns <- kclosest TCP.tcpSpace 2 (nodeId ni) <$> readTVar tbl - return $ listToMaybe ns -- $ dropWhile (\n -> TCP.nodeId n == nodeId ni) ns + return $ listToMaybe ns -- dropWhile (\n -> TCP.nodeId n == nodeId ni) ns quitRouteBuilder :: OnionRouter -> IO () quitRouteBuilder or = do -- cgit v1.2.3