Alpha: minor style fix: turn a ? into a ~

This commit is contained in:
Benjamin Canou 2018-06-06 12:38:57 +02:00
parent 7c8e0403e3
commit b2b0a98e39

View File

@ -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