Fix generateKeyPair binding to use monadic arrow
commit287791b2e99f2f82a9fb33e024ece35af8df7a45
authoriko <mail@iko.soy>
dateSun 3 May 2026, 12:58 (5 months ago)
parent133d0df
server.knot+1−1
@@ -2812,7 +2812,7 @@ main = do
28122812 atomic (do *startedAt = t; *serverGeneration = t * 1000 + genJitter)
28132813 priv <- *federationPrivateKeyHex
28142814 when (priv == "") (do
2815− let kp = generateKeyPair
2815+ kp <- generateKeyPair
28162816 atomic (do
28172817 *federationPrivateKeyHex = bytesToHex kp.privateKey
28182818 *federationPublicKeyHex = bytesToHex kp.publicKey)