git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(no commit message)
[vsys.git]
/
dirwatcher.ml
diff --git
a/dirwatcher.ml
b/dirwatcher.ml
index
4131023
..
918a06a
100644
(file)
--- a/
dirwatcher.ml
+++ b/
dirwatcher.ml
@@
-69,7
+69,6
@@
let receive_event (eventdescriptor:fname_and_fd) (bla:fname_and_fd) =
let (dirname,handler,oneshot) =
try Hashtbl.find wdmap wd with Not_found->("",None,false)
in
let (dirname,handler,oneshot) =
try Hashtbl.find wdmap wd with Not_found->("",None,false)
in
- printf "Received event: %s " dirname;
List.iter (fun l->printf "%s " (string_of_event l)) evlist;
printf "\n";flush Pervasives.stdout;
if (oneshot) then Hashtbl.remove wdmap wd;
List.iter (fun l->printf "%s " (string_of_event l)) evlist;
printf "\n";flush Pervasives.stdout;
if (oneshot) then Hashtbl.remove wdmap wd;