Refactor cache dumper

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

diff --git a/src/ocaml/lib/khatus_msg_parser.mll b/src/ocaml/lib/khatus_msg_parser.mll
index 2015f77..b7f6418 100644 (file)
--- a/src/ocaml/lib/khatus_msg_parser.mll
+++ b/src/ocaml/lib/khatus_msg_parser.mll
@@ -1,6 +1,12 @@
 {
   module Msg  = Khatus_msg
   module Time = Khatus_time
+
+  type error =
+    [ `Bad_format_of_msg_head
+    | `Bad_format_of_msg_content
+    ]
+
   let sep_2    = ':'
 }