diff options
Diffstat (limited to 'Annex/Drop.hs')
| -rw-r--r-- | Annex/Drop.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Drop.hs b/Annex/Drop.hs index 7e494c374..f02f4f386 100644 --- a/Annex/Drop.hs +++ b/Annex/Drop.hs @@ -19,6 +19,7 @@ import Annex.Wanted import Config import Annex.Content.Direct import qualified Database.Keys +import Git.FilePath import qualified Data.Set as S import System.Log.Logger (debugM) @@ -49,7 +50,7 @@ handleDropsFrom :: [UUID] -> [Remote] -> Reason -> Bool -> Key -> AssociatedFile handleDropsFrom locs rs reason fromhere key afile preverified runner = do l <- ifM isDirect ( associatedFilesRelative key - , Database.Keys.getAssociatedFiles key + , mapM getTopFilePath <$> Database.Keys.getAssociatedFiles key ) let fs = if null l then maybeToList afile else l n <- getcopies fs |