add Key to all ActionItem constructors
This commit is contained in:
parent
3893d84764
commit
258a7c5cd1
15 changed files with 70 additions and 52 deletions
|
@ -125,10 +125,12 @@ handleDropsFrom locs rs reason fromhere key afile preverified runner = do
|
|||
)
|
||||
|
||||
dropl fs n = checkdrop fs n Nothing $ \numcopies ->
|
||||
Command.Drop.startLocal afile (mkActionItem afile) numcopies key preverified
|
||||
Command.Drop.startLocal afile ai numcopies key preverified
|
||||
|
||||
dropr fs r n = checkdrop fs n (Just $ Remote.uuid r) $ \numcopies ->
|
||||
Command.Drop.startRemote afile (mkActionItem afile) numcopies key r
|
||||
Command.Drop.startRemote afile ai numcopies key r
|
||||
|
||||
ai = mkActionItem (key, afile)
|
||||
|
||||
slocs = S.fromList locs
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue