From 714f05030737b1df78a67ba694ab33fd605d55ed Mon Sep 17 00:00:00 2001 From: James Crayne Date: Mon, 28 May 2018 19:21:31 +0000 Subject: add missing top-level type signatures --- src/Network/Tox/NodeId.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Network') diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs index 2728a13d..74239710 100644 --- a/src/Network/Tox/NodeId.hs +++ b/src/Network/Tox/NodeId.hs @@ -537,6 +537,7 @@ instance Read NoSpamId where nsid <- parseNoSpamId $ Text.pack jid return [(nsid,xs)] +parseNoSpamHex :: Text -> Either String NoSpamId parseNoSpamHex hex = Right $ NoSpamId (read $ "0x"++nospamsum) (id2key $ read hkey) where (hkey,nospamsum) = splitAt 64 $ Text.unpack hex -- cgit v1.2.3