diff options
author | James Crayne <jim.crayne@gmail.com> | 2020-01-24 09:10:56 +0000 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2020-01-24 09:10:56 +0000 |
commit | 770649a15332df52e98c8d99582e5d67d8d84787 (patch) | |
tree | 9b9c3382bb5113182f1ddc9b738f60df16e2317f /dht/ToxManager.hs | |
parent | b7d05c1aa9fe88880eca5ee3f6a20ac16c9e6137 (diff) |
fix formatting which confuses haddock
Diffstat (limited to 'dht/ToxManager.hs')
-rw-r--r-- | dht/ToxManager.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs index 63cb3967..c1112a05 100644 --- a/dht/ToxManager.hs +++ b/dht/ToxManager.hs | |||
@@ -303,7 +303,7 @@ connectViaRelay tx theirKey theirDhtKey ann tkey now = do | |||
303 | let theirDhtKey' = theirDhtKey { Tox.dhtpkNodes = Tox.SendNodes (cycled ns) } | 303 | let theirDhtKey' = theirDhtKey { Tox.dhtpkNodes = Tox.SendNodes (cycled ns) } |
304 | scheduleRel ann tkey (ScheduledItem $ connectViaRelay tx theirKey theirDhtKey') 5 | 304 | scheduleRel ann tkey (ScheduledItem $ connectViaRelay tx theirKey theirDhtKey') 5 |
305 | return $ when (not established) (go ns) | 305 | return $ when (not established) (go ns) |
306 | -- $ scheduleImmediately ann tkey $ ScheduledItem go | 306 | -- scheduleImmediately ann tkey $ ScheduledItem go |
307 | -- return $ return () | 307 | -- return $ return () |
308 | where | 308 | where |
309 | myPublicKey = toPublic $ userSecret (txAccount tx) | 309 | myPublicKey = toPublic $ userSecret (txAccount tx) |