refactor(pkg): fetch with --no-write-fetch-head (#10066)

This file is going to be over-written by other fetches anyway Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Feb 19, 2024 · 9dd29f7 · 9dd29f7
1 parent 99f47c9
commit 9dd29f7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/dune_pkg/rev_store.ml b/src/dune_pkg/rev_store.ml
@@ -663,7 +663,12 @@ module Remote = struct
   type uninit = t
 
   let update ({ repo; handle; source = _; default_branch = _; add_remote = _ } as t) =
-    let+ () = run repo ~display:!Dune_engine.Clflags.display [ "fetch"; handle ] in
+    let+ () =
+      run
+        repo
+        ~display:!Dune_engine.Clflags.display
+        [ "fetch"; "--no-write-fetch-head"; handle ]
+    in
     t
   ;;
 

diff --git a/test/blackbox-tests/test-cases/pkg/opam-repository-download.t b/test/blackbox-tests/test-cases/pkg/opam-repository-download.t
@@ -42,7 +42,6 @@ Make a mock repo tarball that will get used by dune to download the package
 Our cache folder should be populated with a revision store:
 
   $ find $XDG_CACHE_HOME | grep HEAD | sort
-  $TESTCASE_ROOT/.cache/dune/git-repo/FETCH_HEAD
   $TESTCASE_ROOT/.cache/dune/git-repo/HEAD
 
 Make sure lock.dune contains the repo hash: