summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Network/Tox/NodeId.hs1
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