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