diff options
| author | joe <joe@jerkface.net> | 2018-05-29 18:26:25 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-05-29 18:26:25 -0400 |
| commit | 71f7ca88339f1793f21fecbd36e84f6e18e915bd (patch) | |
| tree | 506d1f2528d0271a55e64ef546edecb540fe6816 /src/Network/Tox/NodeId.hs | |
| parent | 620fdb0a2a6a80427895e4a40b9de3ec792c8d7c (diff) | |
WIP: Deliver friend-request to xmpp client.
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 1f79d1a5..2728a13d 100644 --- a/src/Network/Tox/NodeId.hs +++ b/src/Network/Tox/NodeId.hs | |||
| @@ -105,6 +105,7 @@ packPublicKey ws = BA.allocAndFreeze (8 * length ws) $ | |||
| 105 | [] -> return () | 105 | [] -> return () |
| 106 | x:xs -> do poke ptr (toBE64 x) | 106 | x:xs -> do poke ptr (toBE64 x) |
| 107 | loop xs (plusPtr ptr 8) | 107 | loop xs (plusPtr ptr 8) |
| 108 | {-# NOINLINE packPublicKey #-} | ||
| 108 | 109 | ||
| 109 | -- We represent the node id redundantly in two formats. The [Word64] format is | 110 | -- We represent the node id redundantly in two formats. The [Word64] format is |
| 110 | -- convenient for short-circuiting xor/distance comparisons. The PublicKey | 111 | -- convenient for short-circuiting xor/distance comparisons. The PublicKey |