From b3712b6047391f0823871a4e04c9e9faf1d5e4a4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Jun 2021 10:27:33 -0400 Subject: [PATCH] refactor --- Command/Mirror.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Command/Mirror.hs b/Command/Mirror.hs index b5f49b2373..bf0ecdb5f4 100644 --- a/Command/Mirror.hs +++ b/Command/Mirror.hs @@ -68,7 +68,7 @@ startKey o afile (si, key, ai) = case fromToOptions o of ToRemote r -> checkFailedTransferDirection ai Upload $ ifM (inAnnex key) ( Command.Move.toStart Command.Move.RemoveNever afile key ai si =<< getParsed r , do - (numcopies, mincopies) <- getnummincopies + (numcopies, mincopies) <- getAssociatedFileNumMinCopies afile Command.Drop.startRemote pcc afile ai si numcopies mincopies key =<< getParsed r ) FromRemote r -> checkFailedTransferDirection ai Download $ do @@ -86,7 +86,4 @@ startKey o afile (si, key, ai) = case fromToOptions o of , stop ) where - getnummincopies = case afile of - AssociatedFile Nothing -> (,) <$> getNumCopies <*> getMinCopies - AssociatedFile (Just af) -> getFileNumMinCopies af pcc = Command.Drop.PreferredContentChecked False -- 2.30.2