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

make local >>?

Browse Source
This commit is contained in:
Galfour 2019-05-13 13:18:20 +00:00
parent 18413ece45
commit 378e4a5904
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib_micheline/michelson_primitives.ml
View File

@ -399,11 +399,11 @@ let prim_of_string : string -> (prim , failure) result = function
else else
Error (Invalid_case n) Error (Invalid_case n)
let (>>?) x f : (_ , failure) result = match x with
| Ok x -> f x
| Error _ as err -> err
let prims_of_strings : string canonical -> (prim Micheline_main.canonical , failure) result = fun expr -> let prims_of_strings : string canonical -> (prim Micheline_main.canonical , failure) result = fun expr ->
let (>>?) x f : (_ , failure) result = match x with
| Ok x -> f x
| Error _ as err -> err in
let rec convert : (canonical_location , string) node -> ((canonical_location , prim) node , failure) result = function let rec convert : (canonical_location , string) node -> ((canonical_location , prim) node , failure) result = function
| Int _ | String _ | Bytes _ as expr -> Ok expr | Int _ | String _ | Bytes _ as expr -> Ok expr
| Seq (_, args) -> ( | Seq (_, args) -> (