Bugfix

IntersectMBO · Nov 29, 2022 · e3b6469 · e3b6469
1 parent bfcf537
commit e3b6469
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs
@@ -184,7 +184,7 @@ instance KnownNat t => DirectSerialise (SignKeyKES (MockKES t)) where
 
 instance KnownNat t => DirectDeserialise (SignKeyKES (MockKES t)) where
   directDeserialise pull = do
-    let len = 8
+    let len = 16
     bs <- allocaBytes len $ \cstr -> do
         pull cstr (fromIntegral len)
         BS.packCStringLen (cstr, len)