let add_watch dir events handler =
  let wd = Inotify.add_watch fd dir events in
    Hashtbl.add wdmap wd (dir,Some(handler))