Refactor cache dumper

[khatus.git] / src / ocaml / lib / khatus_msg_parser.mli

diff --git a/src/ocaml/lib/khatus_msg_parser.mli b/src/ocaml/lib/khatus_msg_parser.mli
index f177b28..a4296f6 100644 (file)
--- a/src/ocaml/lib/khatus_msg_parser.mli
+++ b/src/ocaml/lib/khatus_msg_parser.mli
@@ -1,8 +1,6 @@
-val parse_msg
-  : Lexing.lexbuf
-  ->
-    ( Khatus_msg.t
-    , [ `Bad_format_of_msg_head
-      | `Bad_format_of_msg_content
-      ]
-    ) result
+type error =
+  [ `Bad_format_of_msg_head
+  | `Bad_format_of_msg_content
+  ]
+
+val parse_msg : Lexing.lexbuf -> (Khatus_msg.t, error) result