trying to address issue source-repository-package branch failure hask…

…ell#6888
noinia · Jul 27, 2023 · 00f695a · 00f695a
1 parent 4aa5f88
commit 00f695a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cabal-install/src/Distribution/Client/VCS.hs b/cabal-install/src/Distribution/Client/VCS.hs
@@ -521,8 +521,12 @@ vcsGit =
               Nothing -> []
               Just peerLocalDir -> ["--reference", peerLocalDir]
             ++ verboseArg
+            ++ branchArg
           where
             loc = srpLocation
+            branchArg = case srpBranch of
+              Just b -> ["--branch", b]
+              Nothing -> []
         resetArgs = "reset" : verboseArg ++ ["--hard", resetTarget, "--"]
         resetTarget = fromMaybe "HEAD" (srpBranch `mplus` srpTag)
         verboseArg = ["--quiet" | verbosity < Verbosity.normal]