Fix OpamStd.Sys.etc on Windows

Returns %ProgramData%\opam now
dra27 · Jun 2, 2024 · 61c94b7 · 61c94b7
1 parent 0221943
commit 61c94b7
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/core/opamStd.ml b/src/core/opamStd.ml
@@ -993,7 +993,14 @@ module OpamSys = struct
     ) in
     fun () -> Lazy.force home
 
-  let etc () = "/etc"
+  let etc =
+    if Sys.win32 then
+      fun () ->
+        (* CSIDL_COMMON_APPDATA = 0x23 *)
+        let root = OpamStubs.(shGetFolderPath 0x23 SHGFP_TYPE_CURRENT) in
+        Filename.concat root "opam"
+    else
+      fun () -> "/etc"
 
   let uname =
     let memo = Hashtbl.create 7 in