diff options
Diffstat (limited to 'Annex/Drop.hs')
| -rw-r--r-- | Annex/Drop.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Annex/Drop.hs b/Annex/Drop.hs index 61b0cf9e1..71263dc61 100644 --- a/Annex/Drop.hs +++ b/Annex/Drop.hs @@ -48,10 +48,10 @@ handleDropsFrom locs rs reason fromhere key afile knownpresentremote runner = do fs <- ifM isDirect ( do l <- associatedFilesRelative key - if null l - then return $ maybe [] (:[]) afile - else return l - , return $ maybe [] (:[]) afile + return $ if null l + then maybeToList afile + else l + , return $ maybeToList afile ) n <- getcopies fs if fromhere && checkcopies n Nothing |