diff options
Diffstat (limited to 'src/Network/Tox')
| -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 |