diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Drop.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index 4e81c284a..1fc2f75d9 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -45,7 +45,11 @@ handleDropsFrom :: [UUID] -> [Remote] -> Reason -> Bool -> Key -> AssociatedFile handleDropsFrom _ _ _ _ _ Nothing _ = noop handleDropsFrom locs rs reason fromhere key (Just afile) knownpresentremote = do fs <- liftAnnex $ ifM isDirect - ( associatedFilesRelative key + ( do + l <- associatedFilesRelative key + if null l + then return [afile] + else return l , return [afile] ) n <- getcopies fs |