Improve overview and experiment naming

[khatus.git] / x3 / src / lib / khatus_msg_stream.mli

diff --git a/x3/src/lib/khatus_msg_stream.mli b/x3/src/lib/khatus_msg_stream.mli
new file mode 100644 (file)
index 0000000..20b1677
--- /dev/null
+++ b/x3/src/lib/khatus_msg_stream.mli
@@ -0,0 +1,9 @@
+type t
+
+val init : node:string -> modul:string -> t
+
+val fold
+  : t
+  -> f:('a -> state:Khatus_state.t -> msg:Khatus_msg.t -> 'a)
+  -> init:'a
+  -> 'a