@@ -2812,7 +2812,7 @@ main = do
2812 atomic (do *startedAt = t; *serverGeneration = t * 1000 + genJitter)
2812 atomic (do *startedAt = t; *serverGeneration = t * 1000 + genJitter)
2813 priv <- *federationPrivateKeyHex
2813 priv <- *federationPrivateKeyHex
2814 when (priv == "") (do
2814 when (priv == "") (do
2815− let kp = generateKeyPair
2815+ kp <- generateKeyPair
2816 atomic (do
2816 atomic (do
2817 *federationPrivateKeyHex = bytesToHex kp.privateKey
2817 *federationPrivateKeyHex = bytesToHex kp.privateKey
2818 *federationPublicKeyHex = bytesToHex kp.publicKey)
2818 *federationPublicKeyHex = bytesToHex kp.publicKey)