add Key to all ActionItem constructors
This commit is contained in:
parent
3893d84764
commit
258a7c5cd1
15 changed files with 70 additions and 52 deletions
|
@ -64,10 +64,10 @@ seek o = allowConcurrentOutput $ do
|
|||
=<< workTreeItems (moveFiles o)
|
||||
|
||||
start :: FromToHereOptions -> RemoveWhen -> FilePath -> Key -> CommandStart
|
||||
start fromto removewhen f k =
|
||||
start' fromto removewhen afile k (mkActionItem afile)
|
||||
start fromto removewhen f k = start' fromto removewhen afile k ai
|
||||
where
|
||||
afile = AssociatedFile (Just f)
|
||||
ai = mkActionItem (k, afile)
|
||||
|
||||
startKey :: FromToHereOptions -> RemoveWhen -> (Key, ActionItem) -> CommandStart
|
||||
startKey fromto removewhen =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue