- match handler with
- | None->logprint "Unhandled watch descriptor\n"
- | Some(handler)->
- let fqp = String.concat "/" [dirname;purestr] in
- logprint "Received event from %s\n" fqp;
- let mask_filter = Hashtbl.mem masks fqp in
- begin
- if ((not mask_filter)) then
- begin
- (*
- logprint "Received event for - %s\n"
- fqp;*)
- handler wd dirname evlist
- purestr
- end
- else
- begin
- (*logprint "Unmasking %s\n"
- * fqp;*)
- unmask_watch fqp
- end
- end
+ match handler with
+ | None->
+ logprint "Unhandled watch descriptor\n"
+ | Some(handler)->
+ let fqp = String.concat "/" [dirname;purestr] in
+ begin
+ handler wd dirname evlist
+ purestr
+ end