From a3fc292095c9e29046c737c4164beab2faadc035 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Sun, 25 May 2014 12:05:48 +0200
Subject: Add pretty stuff.

---
 src/kahn_stdio.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/kahn_stdio.ml b/src/kahn_stdio.ml
index badf338..234c1d4 100644
--- a/src/kahn_stdio.ml
+++ b/src/kahn_stdio.ml
@@ -107,11 +107,15 @@ module ProtoKahn: S = struct
 			| GiveTask(td, _) ->
 				dbg "Got task!";
 				let t : task = Marshal.from_string td 0 in
+				Format.eprintf "[@?";
 				t();
+				Format.eprintf "]@?";
 			| GiveMsgTask(msg, td) ->
 				dbg "Got msg task!";
 				let t : msg_task = Marshal.from_string td 0 in
+				Format.eprintf "{@?";
 				t msg;
+				Format.eprintf "}@?";
 			| FinalResult(x) ->
 				dbg "Got result!";
 				result := Some (Marshal.from_string x 0)
-- 
cgit v1.2.3