Share exclude patterns

Signed-off-by: nojebar <[email protected]>

src/dune_file_watcher/dune_file_watcher.ml

@@ -160,6 +160,9 @@ let exclude_patterns =
   ; {|/#[^#]*#$|}
   ; {|^4913$|} (* https://github.com/neovim/neovim/issues/3460 *)
   ; {|/4913$|}
+  ; {|/.git|}
+  ; {|/.hg|}
+  ; {|:/windows|}
   ]
 
 module Re = Dune_re
@@ -588,29 +591,6 @@ let create_fsevents ?(latency = 0.2) ~(scheduler : Scheduler.t) () =
   ; sync_table
   }
 
-let fswatch_win_exclude_patterns =
-  Re.compile
-    (Re.alt
-       [ Re.str "/_opam"
-       ; Re.str "/_esy"
-       ; Re.str
-           "/.#" (* Such files can be created by Emacs and also Dune itself. *)
-       ; Re.seq [ Re.char '~'; Re.eos ]
-       ; Re.str "/#"
-       ; Re.str "/4913" (* https://github.com/neovim/neovim/issues/3460 *)
-       ; Re.str "/.git"
-       ; Re.str "/.hg"
-       ; Re.str ":/windows"
-       ])
-
-let fswatch_win_should_exclude path =
-  let path =
-    String.concat ~sep:"/"
-      (String.split_on_char ~sep:'\\'
-         (String.lowercase_ascii (Path.to_string path)))
-  in
-  Re.execp fswatch_win_exclude_patterns path
-
 let fswatch_win_callback ~(scheduler : Scheduler.t) ~sync_table event =
   let dir = Fswatch_win.Event.directory event in
   let filename = Filename.concat dir (Fswatch_win.Event.path event) in
@@ -628,7 +608,7 @@ let fswatch_win_callback ~(scheduler : Scheduler.t) ~sync_table event =
           scheduler.thread_safe_send_emit_events_job (fun () -> [ Sync id ]))
       | Removed | Renamed_new | Renamed_old -> ())
   | path ->
-    if not (fswatch_win_should_exclude path) then
+    if not (should_exclude filename) then
       scheduler.thread_safe_send_emit_events_job (fun () ->
           let kind =
             match Fswatch_win.Event.action event with