remove some monkey faces
This commit is contained in:
parent
c87ecaa543
commit
a542781f6a
3 changed files with 7 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue