diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-05-28 19:21:31 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-05-28 19:21:31 +0000 |
| commit | 714f05030737b1df78a67ba694ab33fd605d55ed (patch) | |
| tree | 5852fdf87d74a6c44dc6c53b8be4b571085a4b19 /src/Network | |
| parent | 451a6eeec18b80f06378acba82e2b2dc56275188 (diff) | |
add missing top-level type signatures
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/Tox/NodeId.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 537 | nsid <- parseNoSpamId $ Text.pack jid | 537 | nsid <- parseNoSpamId $ Text.pack jid |
| 538 | return [(nsid,xs)] | 538 | return [(nsid,xs)] |
| 539 | 539 | ||
| 540 | parseNoSpamHex :: Text -> Either String NoSpamId | ||
| 540 | parseNoSpamHex hex = Right $ NoSpamId (read $ "0x"++nospamsum) (id2key $ read hkey) | 541 | parseNoSpamHex hex = Right $ NoSpamId (read $ "0x"++nospamsum) (id2key $ read hkey) |
| 541 | where | 542 | where |
| 542 | (hkey,nospamsum) = splitAt 64 $ Text.unpack hex | 543 | (hkey,nospamsum) = splitAt 64 $ Text.unpack hex |