diff options
Diffstat (limited to 'src/Network/Tox/NodeId.hs')
| -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 20dc1854..00b572f2 100644 --- a/src/Network/Tox/NodeId.hs +++ b/src/Network/Tox/NodeId.hs | |||
| @@ -90,6 +90,7 @@ packPublicKey ws = BA.allocAndFreeze (8 * length ws) $ | |||
| 90 | newtype NodeId = NodeId [Word64] | 90 | newtype NodeId = NodeId [Word64] |
| 91 | deriving (Eq,Ord) -- ByteArrayAccess) -- (Eq,Ord,ByteArrayAccess, Bits, Hashable) | 91 | deriving (Eq,Ord) -- ByteArrayAccess) -- (Eq,Ord,ByteArrayAccess, Bits, Hashable) |
| 92 | 92 | ||
| 93 | instance Sized NodeId where size = ConstSize 32 | ||
| 93 | 94 | ||
| 94 | key2id :: PublicKey -> NodeId | 95 | key2id :: PublicKey -> NodeId |
| 95 | key2id = NodeId . unpackPublicKey | 96 | key2id = NodeId . unpackPublicKey |