- match handler with
- | None->logprint "Unhandled watch descriptor\n"
- | Some(handler)->
- let fqp = String.concat "/" [dirname;purestr] in
- let mask_filter = Hashtbl.mem masks fqp in
- begin
- (*print "Received event for - %s\n"
- * fqp;*)
- if ((not mask_filter) && false) then
- handler wd dirname evlist purestr
- else
- print "%s is masked\n" fqp
- 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