fork download 
  1. (* Error: The implementation builder.ml
  2.        does not match the interface builder.cmi:
  3.        Values do not match:
  4.          val enum :
  5.            Buffer.t ->
  6.            int ->
  7.            'a ->
  8.            ('a -> (int, 'b) Core.Std.Result.Monad_infix.t) ->
  9.            (unit, 'b) Core.Std.Result.Monad_infix.t
  10.        is not included in
  11.          val enum :
  12.            t ->
  13.            tag ->
  14.            'a ->
  15.            ('a -> (int, error) Core.Std.Result.t) ->
  16.            (unit, [> error ]) Core.Std.Result.t
  17. *)
  18.  
  19. (* val enum     : t -> tag -> 'a -> ('a -> (int, error) Result.t) -> (unit, [> error ]) Result.t *)
  20. let enum t tag v conv =
  21.   let open Result.Monad_infix in
  22.   conv v >>= fun v ->
  23.   let f = to_field tag (Value.Varint (Int64.of_int v)) in
  24.   add_field t f
Not running #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/HbGEOv
language:
OCaml (ocamlopt 4.05.0)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!