fix build

diff --git a/Command/Mirror.hs b/Command/Mirror.hs
index bf0ecdb5f4c705d950c1a2ca904a3a73fe842317..4fe8c31f4c6787ecc7cb004706bda176dc134f86 100644 (file)
--- a/Command/Mirror.hs
+++ b/Command/Mirror.hs
@@ -81,7 +81,7 @@ startKey o afile (si, key, ai) = case fromToOptions o of
                                )
                        Right False -> ifM (inAnnex key)
                                ( do
-                                       (numcopies, mincopies) <- getnummincopies
+                                       (numcopies, mincopies) <- getAssociatedFileNumMinCopies afile
                                        Command.Drop.startLocal pcc afile ai si numcopies mincopies key []
                                , stop
                                )