NoSpamId type to include nospam + checksum + public key.

1 files changed, 0 insertions, 24 deletions

diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs
index 2e5649d3..51ec2e80 100644
--- a/src/Network/Tox/DHT/Transport.hs
+++ b/src/Network/Tox/DHT/Transport.hs
@@ -260,30 +260,6 @@ data FriendRequest = FriendRequest
     }
  deriving (Eq, Show)
 
-data NoSpam = NoSpam !Word32 !(Maybe Word16)
-
-instance Read NoSpam where
-    readsPrec d s = case break isSpace s of
-        (ws,rs) | (length ws == 8)  -> base64decode rs (NoSpam <$> get <*> (Just <$> get)) ws
-        (ws,rs) | (length ws == 12) -> base16decode rs (NoSpam <$> get <*> (Just <$> get)) ws
-        _                           -> []
-
-base64decode :: Monad m => t1 -> Get t -> String -> m (t, t1)
-base64decode rs getter s =
-    either fail (\a -> return (a,rs))
-        $ runGet getter
-           =<< Base64.decode (B8.pack s)
-
-base16decode :: Monad m => t1 -> Get t -> String -> m (t, t1)
-base16decode rs getter s =
-    either fail (\a -> return (a,rs))
-        $ runGet getter
-        $ fst
-        $ Base16.decode (B8.pack s)
-
-verifyChecksum :: PublicKey -> Word16 -> Either String ()
-verifyChecksum _ _ = return () -- TODO
-
 
 -- When sent as a DHT request packet (this is the data sent in the DHT request
 -- packet):