(no commit message)

diff --git a/directfifowatcher.ml b/directfifowatcher.ml
index 7fa9192..29694ec 100644 (file)
--- a/directfifowatcher.ml
+++ b/directfifowatcher.ml
@@ -122,7 +122,6 @@ let sigchld_handle s =
   let pid,_=Unix.waitpid [Unix.WNOHANG] 0 in
     try
       let fqp_in = Hashtbl.find pidmap pid in
-        printf "Reopening fifo\n";flush Pervasives.stdout;
         reopenentry fqp_in
     with _ -> ()
 

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
-                         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;