Alpha: remove non-used errors

This commit is contained in:
bruno 2018-06-23 16:55:44 +02:00 committed by Benjamin Canou
parent 5afcdb327f
commit 59cdbd3ef1
3 changed files with 2 additions and 8 deletions

View File

@ -221,5 +221,3 @@ let encoding =
(fun { fixed ; parametric } -> (fixed, parametric)) (fun { fixed ; parametric } -> (fixed, parametric))
(fun (fixed , parametric) -> { fixed ; parametric }) (fun (fixed , parametric) -> { fixed ; parametric })
(merge_objs fixed_encoding parametric_encoding) (merge_objs fixed_encoding parametric_encoding)
type error += Constant_read of exn

View File

@ -9,9 +9,7 @@
open Alpha_context open Alpha_context
type error += type error += Cannot_parse_operation (* `Branch *)
| Cannot_parse_operation (* `Branch *)
| Cant_parse_block_header
let () = let () =
register_error_kind register_error_kind

View File

@ -9,9 +9,7 @@
open Alpha_context open Alpha_context
type error += type error += Cannot_parse_operation (* `Branch *)
| Cannot_parse_operation (* `Branch *)
| Cant_parse_block_header
val current_level: val current_level:
'a #RPC_context.simple -> 'a #RPC_context.simple ->