remove some monkey faces

This commit is contained in:
Joey Hess 2014-02-01 17:14:38 -04:00
parent c87ecaa543
commit a542781f6a
3 changed files with 7 additions and 7 deletions

View file

@ -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