diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 12:05:48 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 12:05:48 +0200 |
| commit | a3fc292095c9e29046c737c4164beab2faadc035 (patch) | |
| tree | 86714e1ec34983510fa0e1ae871f0e3225d50427 | |
| parent | 98edbb390a41d09301d2005f60f8d80ebc201da2 (diff) | |
| download | SystemeReseaux-Projet-a3fc292095c9e29046c737c4164beab2faadc035.tar.gz SystemeReseaux-Projet-a3fc292095c9e29046c737c4164beab2faadc035.zip | |
Add pretty stuff.
| -rw-r--r-- | src/kahn_stdio.ml | 4 |
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) |