Update ec/mirage_crypto_ec.ml

Co-authored-by: Reynir Björnsson <[email protected]>
hannesm · Mar 6, 2024 · 09dbc01 · 09dbc01
1 parent 058ac88
commit 09dbc01
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ec/mirage_crypto_ec.ml b/ec/mirage_crypto_ec.ml
@@ -628,7 +628,7 @@ module Make_dsa (Param : Parameters) (F : Fn) (P : Point) (S : Scalar) (H : Dige
     let g ~key msg =
       let g = Mirage_crypto_rng.create ~strict:true drbg in
       Mirage_crypto_rng.reseed ~g
-        (String.concat "" [ S.to_octets key ; msg ]);
+        (S.to_octets key ^ msg);
       g
 
     (* take qbit length, and ensure it is suitable for ECDSA (> 0 & < n) *)