remove some monkey faces

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