summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlex AUVOLAT <alex.auvolat@ens.fr>2014-05-25 12:05:48 +0200
committerAlex AUVOLAT <alex.auvolat@ens.fr>2014-05-25 12:05:48 +0200
commita3fc292095c9e29046c737c4164beab2faadc035 (patch)
tree86714e1ec34983510fa0e1ae871f0e3225d50427 /src
parent98edbb390a41d09301d2005f60f8d80ebc201da2 (diff)
downloadSystemeReseaux-Projet-a3fc292095c9e29046c737c4164beab2faadc035.tar.gz
SystemeReseaux-Projet-a3fc292095c9e29046c737c4164beab2faadc035.zip
Add pretty stuff.
Diffstat (limited to 'src')
-rw-r--r--src/kahn_stdio.ml4
1 files changed, 4 insertions, 0 deletions
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)