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 })
(merge_objs fixed_encoding parametric_encoding)
type error += Constant_read of exn

View File

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

View File

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