From 969da25d66b15673f68e93214d681b1617da4e68 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 21 May 2024 12:08:34 -0400 Subject: [PATCH] simplify --- CmdLine/GitRemoteAnnex.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/CmdLine/GitRemoteAnnex.hs b/CmdLine/GitRemoteAnnex.hs index de0bcb7e25..737a109443 100644 --- a/CmdLine/GitRemoteAnnex.hs +++ b/CmdLine/GitRemoteAnnex.hs @@ -266,10 +266,6 @@ fullPush :: State -> Remote -> [Ref] -> Annex (Bool, State) fullPush st rmt refs = guardPush st $ do oldmanifest <- maybe (downloadManifestWhenPresent rmt) pure (manifestCache st) - fullPush' oldmanifest st rmt refs - -fullPush' :: Manifest -> State -> Remote -> [Ref] -> Annex (Bool, State) -fullPush' oldmanifest st rmt refs =do let bs = map Git.Bundle.fullBundleSpec refs bundlekey <- generateAndUploadGitBundle rmt bs oldmanifest let manifest = mkManifest [bundlekey]