X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=dirwatcher.ml;h=f01cb3324dacab4f22848dd019d5b19cb14b9363;hb=892d26d4e05de55ae94d21a586e6a0bfa724e327;hp=3808e8bde2fcd97aa988bc19625b3afbd573443c;hpb=a9f606051125de2acc9140074f91054755fa67b4;p=vsys.git

diff --git a/dirwatcher.ml b/dirwatcher.ml
index 3808e8b..f01cb33 100644
--- a/dirwatcher.ml
+++ b/dirwatcher.ml
@@ -34,7 +34,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->