balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Michelson: add missing bytes primitives on comparable_ty (thanks @tomjack)

Browse Source
This commit is contained in:
Benjamin Canou 2018-07-19 16:03:26 +02:00 committed by Grégoire Henry
parent 09592a6eeb
commit 3ca1fc9509
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/proto_alpha/lib_protocol/src/script_ir_translator.ml
View File

@ -694,6 +694,7 @@ let comparable_ty_eq
| Int_key _, Int_key _ -> Ok Eq | Int_key _, Int_key _ -> Ok Eq
| Nat_key _, Nat_key _ -> Ok Eq | Nat_key _, Nat_key _ -> Ok Eq
| String_key _, String_key _ -> Ok Eq | String_key _, String_key _ -> Ok Eq
| Bytes_key _, Bytes_key _ -> Ok Eq
| Mutez_key _, Mutez_key _ -> Ok Eq | Mutez_key _, Mutez_key _ -> Ok Eq
| Bool_key _, Bool_key _ -> Ok Eq | Bool_key _, Bool_key _ -> Ok Eq
| Key_hash_key _, Key_hash_key _ -> Ok Eq | Key_hash_key _, Key_hash_key _ -> Ok Eq
@ -811,6 +812,9 @@ let merge_comparable_types
| String_key annot_a, String_key annot_b -> | String_key annot_a, String_key annot_b ->
merge_type_annot annot_a annot_b >|? fun annot -> merge_type_annot annot_a annot_b >|? fun annot ->
String_key annot String_key annot
| Bytes_key annot_a, Bytes_key annot_b ->
merge_type_annot annot_a annot_b >|? fun annot ->
Bytes_key annot
| Mutez_key annot_a, Mutez_key annot_b -> | Mutez_key annot_a, Mutez_key annot_b ->
merge_type_annot annot_a annot_b >|? fun annot -> merge_type_annot annot_a annot_b >|? fun annot ->
Mutez_key annot Mutez_key annot