diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-01 17:14:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-01 17:14:38 -0400 |
| commit | f936e91ef1f494ff475dd62f13711e673e475b3c (patch) | |
| tree | 8f9591da5426f393660722d3d7202a6cb022a8e9 /Annex/Drop.hs | |
| parent | 4ffd404de75d6452e850c1ad6f94aa8dabc19621 (diff) | |
remove some monkey faces
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 |