- match handler with
- | None->fprintf logfd "Unhandled watch descriptor\n";flush logfd
- | Some(handler)->
- let fqp = String.concat "/" [dirname;purestr] in
- let mask_filter = Hashtbl.mem masks fqp in
- if (not mask_filter) then
- begin
- handler wd dirname evlist purestr
- 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