22 lines
930 B
OCaml
22 lines
930 B
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
module Shell_error_monad = Error_monad
|
||
|
|
|
||
|
|
module Error_monad = struct
|
||
|
|
type error_category = [ `Branch | `Temporary | `Permanent ]
|
||
|
|
include Shell_error_monad.Make()
|
||
|
|
end
|
||
|
|
|
||
|
|
type error += Ecoproto_error of Error_monad.error list
|
||
|
|
|
||
|
|
let wrap = function
|
||
|
|
| Ok x -> Ok x
|
||
|
|
| Error errors -> Error [Ecoproto_error errors]
|