home
/
code
/
dups.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove debug statements
[dups.git]
/
dups.ml
diff --git
a/dups.ml
b/dups.ml
index
6628d99
..
e340a78
100644
(file)
--- a/
dups.ml
+++ b/
dups.ml
@@
-283,7
+283,6
@@
end = struct
end
let lord t ~njobs ~vassals ~ic ~ocs =
end
let lord t ~njobs ~vassals ~ic ~ocs =
- eprintf "[debug] [lord] started\n%!";
let active_vassals = ref njobs in
let results = Queue.create () in
let rec dispatch () =
let active_vassals = ref njobs in
let results = Queue.create () in
let rec dispatch () =
@@
-316,7
+315,6
@@
end = struct
of_queue results
let vassal i ~f ~vassal_pipe_r ~lord_pipe_w =
of_queue results
let vassal i ~f ~vassal_pipe_r ~lord_pipe_w =
- eprintf "[debug] [vassal %d] started\n%!" i;
let ic = Unix.in_channel_of_descr vassal_pipe_r in
let oc = Unix.out_channel_of_descr lord_pipe_w in
let rec work msg =
let ic = Unix.in_channel_of_descr vassal_pipe_r in
let oc = Unix.out_channel_of_descr lord_pipe_w in
let rec work msg =
This page took
0.027441 seconds
and
4
git commands to generate.