From 378e4a590407517482952984571fba2e52962900 Mon Sep 17 00:00:00 2001 From: Galfour Date: Mon, 13 May 2019 13:18:20 +0000 Subject: [PATCH] make local >>? --- src/lib_micheline/michelson_primitives.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lib_micheline/michelson_primitives.ml b/src/lib_micheline/michelson_primitives.ml index 4f0b35bd3..09a2a0846 100644 --- a/src/lib_micheline/michelson_primitives.ml +++ b/src/lib_micheline/michelson_primitives.ml @@ -399,11 +399,11 @@ let prim_of_string : string -> (prim , failure) result = function else 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 (>>?) 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 | Int _ | String _ | Bytes _ as expr -> Ok expr | Seq (_, args) -> (