summaryrefslogtreecommitdiff
path: root/src/Network/Tox/NodeId.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2018-12-08 23:30:48 -0500
committerJoe Crayne <joe@jerkface.net>2018-12-16 14:08:26 -0500
commit0dd2f5e5d078b735760e097df4204f9778bb193d (patch)
treea752a8f9e97e1aac44b641c928e8d7d32a7178d9 /src/Network/Tox/NodeId.hs
parentdf6292eef942c11b9ac58b337f29641dae404116 (diff)
Integrated cli interface to TCP Kademlia table.
Diffstat (limited to 'src/Network/Tox/NodeId.hs')
-rw-r--r--src/Network/Tox/NodeId.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index 98be1e3a..1c68249e 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -320,7 +320,7 @@ instance Read NodeInfo where
320 RP.skipSpaces 320 RP.skipSpaces
321 let n = 43 -- characters in node id. 321 let n = 43 -- characters in node id.
322 parseAddr = RP.between (RP.char '(') (RP.char ')') (RP.munch (/=')')) 322 parseAddr = RP.between (RP.char '(') (RP.char ')') (RP.munch (/=')'))
323 RP.+++ RP.munch (not . isSpace) 323 RP.+++ RP.munch (\c -> not (isSpace c) && not (c `elem` ("{}()"::[Char])))
324 nodeidAt = do hexhash <- sequence $ replicate n (RP.satisfy b64digit) 324 nodeidAt = do hexhash <- sequence $ replicate n (RP.satisfy b64digit)
325 RP.char '@' RP.+++ RP.satisfy isSpace 325 RP.char '@' RP.+++ RP.satisfy isSpace
326 addrstr <- parseAddr 326 addrstr <- parseAddr