diff options
Diffstat (limited to 'Annex/Drop.hs')
| -rw-r--r-- | Annex/Drop.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Annex/Drop.hs b/Annex/Drop.hs index 8a86c0ba8..e5508b2b0 100644 --- a/Annex/Drop.hs +++ b/Annex/Drop.hs @@ -8,6 +8,7 @@ module Annex.Drop where import Annex.Common +import qualified Annex import Logs.Trust import Annex.NumCopies import Types.Remote (uuid) @@ -49,7 +50,9 @@ handleDropsFrom :: [UUID] -> [Remote] -> Reason -> Bool -> Key -> AssociatedFile handleDropsFrom locs rs reason fromhere key afile preverified runner = do l <- ifM isDirect ( associatedFilesRelative key - , mapM getTopFilePath <$> Database.Keys.getAssociatedFiles key + , do + g <- Annex.gitRepo + map (`fromTopFilePath` g) <$> Database.Keys.getAssociatedFiles key ) let fs = if null l then maybeToList afile else l n <- getcopies fs |