Alpha: minor style fix: turn a ? into a ~
This commit is contained in:
parent
7c8e0403e3
commit
b2b0a98e39
@ -642,11 +642,11 @@ let () =
|
|||||||
(fun () -> Missing_signature)
|
(fun () -> Missing_signature)
|
||||||
|
|
||||||
let check_signature (type kind) key ({ shell ; protocol_data } : kind operation) =
|
let check_signature (type kind) key ({ shell ; protocol_data } : kind operation) =
|
||||||
let check ?watermark contents signature =
|
let check ~watermark contents signature =
|
||||||
let unsigned_operation =
|
let unsigned_operation =
|
||||||
Data_encoding.Binary.to_bytes_exn
|
Data_encoding.Binary.to_bytes_exn
|
||||||
unsigned_operation_encoding (shell, contents) in
|
unsigned_operation_encoding (shell, contents) in
|
||||||
if Signature.check ?watermark key signature unsigned_operation then
|
if Signature.check ~watermark key signature unsigned_operation then
|
||||||
return ()
|
return ()
|
||||||
else
|
else
|
||||||
fail Invalid_signature in
|
fail Invalid_signature in
|
||||||
|
Loading…
Reference in New Issue
Block a user