add Key to all ActionItem constructors
This commit is contained in:
parent
3893d84764
commit
258a7c5cd1
15 changed files with 70 additions and 52 deletions
|
@ -48,7 +48,7 @@ seek o = do
|
|||
=<< workTreeItems (whereisFiles o)
|
||||
|
||||
start :: M.Map UUID Remote -> FilePath -> Key -> CommandStart
|
||||
start remotemap file key = startKeys remotemap (key, mkActionItem afile)
|
||||
start remotemap file key = startKeys remotemap (key, mkActionItem (key, afile))
|
||||
where
|
||||
afile = AssociatedFile (Just file)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue