summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Network/Tox/DHT/Transport.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs
index bd108276..2e5649d3 100644
--- a/src/Network/Tox/DHT/Transport.hs
+++ b/src/Network/Tox/DHT/Transport.hs
@@ -264,7 +264,6 @@ data NoSpam = NoSpam !Word32 !(Maybe Word16)
264 264
265instance Read NoSpam where 265instance Read NoSpam where
266 readsPrec d s = case break isSpace s of 266 readsPrec d s = case break isSpace s of
267 (ws,rs) | (length ws == 6) -> base64decode rs (flip NoSpam Nothing <$> get) ws
268 (ws,rs) | (length ws == 8) -> base64decode rs (NoSpam <$> get <*> (Just <$> get)) ws 267 (ws,rs) | (length ws == 8) -> base64decode rs (NoSpam <$> get <*> (Just <$> get)) ws
269 (ws,rs) | (length ws == 12) -> base16decode rs (NoSpam <$> get <*> (Just <$> get)) ws 268 (ws,rs) | (length ws == 12) -> base16decode rs (NoSpam <$> get <*> (Just <$> get)) ws
270 _ -> [] 269 _ -> []