From 0dd2f5e5d078b735760e097df4204f9778bb193d Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 8 Dec 2018 23:30:48 -0500 Subject: Integrated cli interface to TCP Kademlia table. --- src/Network/Tox/NodeId.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/Tox/NodeId.hs') 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 RP.skipSpaces let n = 43 -- characters in node id. parseAddr = RP.between (RP.char '(') (RP.char ')') (RP.munch (/=')')) - RP.+++ RP.munch (not . isSpace) + RP.+++ RP.munch (\c -> not (isSpace c) && not (c `elem` ("{}()"::[Char]))) nodeidAt = do hexhash <- sequence $ replicate n (RP.satisfy b64digit) RP.char '@' RP.+++ RP.satisfy isSpace addrstr <- parseAddr -- cgit v1.2.3