summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-01 17:14:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-01 17:14:38 -0400
commitf936e91ef1f494ff475dd62f13711e673e475b3c (patch)
tree8f9591da5426f393660722d3d7202a6cb022a8e9 /Annex
parent4ffd404de75d6452e850c1ad6f94aa8dabc19621 (diff)
remove some monkey faces
Diffstat (limited to 'Annex')
-rw-r--r--Annex/Drop.hs8
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