diff options
author | Joe Crayne <joe@jerkface.net> | 2018-12-08 23:30:48 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2018-12-16 14:08:26 -0500 |
commit | 0dd2f5e5d078b735760e097df4204f9778bb193d (patch) | |
tree | a752a8f9e97e1aac44b641c928e8d7d32a7178d9 /src/Network/Tox/NodeId.hs | |
parent | df6292eef942c11b9ac58b337f29641dae404116 (diff) |
Integrated cli interface to TCP Kademlia table.
Diffstat (limited to 'src/Network/Tox/NodeId.hs')
-rw-r--r-- | src/Network/Tox/NodeId.hs | 2 |
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 |