Made more standard. Also, options to vsys changed and it looks like this script...

[vsys.git] / dirwatcher.ml

diff --git a/dirwatcher.ml b/dirwatcher.ml
index 3808e8b..b33b890 100644 (file)
--- a/dirwatcher.ml
+++ b/dirwatcher.ml
@@ -1,3 +1,5 @@
+(** Watches directories for events. Agnostic to vsys semantics of backends and
+frontends *)
 open Inotify
 open Fdwatcher
 open Printf
@@ -34,7 +36,7 @@ let asciiz s =
   let nulterm = findfirstnul s 0 (String.length s) in
     String.sub s 0 nulterm
 
-let receive_event (eventdescriptor:fd_and_fname) (bla:fd_and_fname) =
+let receive_event (eventdescriptor:fname_and_fd) (bla:fname_and_fd) =
   let (_,fd) = eventdescriptor in
       let evs = Inotify.read fd in
         List.iter (fun x->