diff options
Diffstat (limited to 'Assistant/Drop.hs')
| -rw-r--r-- | Assistant/Drop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index 8098300ae..4dd13f2fa 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -58,7 +58,7 @@ handleDropsFrom locs rs fromhere key (Just f) knownpresentremote | checkcopies n = dropr r n >>= go rest | otherwise = noop - checkdrop n@(_, numcopies) u a = ifM (wantDrop u (Just f)) + checkdrop n@(_, numcopies) u a = ifM (wantDrop True u (Just f)) ( ifM (safely $ doCommand $ a (Just numcopies)) ( return $ decrcopies n , return n |