--branch, stage 2
Show branch:file that is being operated on. I had to make ActionItem a type and not a type class because withKeyOptions' passed two different types of values when using the type class, and I could not get the type checker to accept that.
This commit is contained in:
parent
847944e6b1
commit
d13194b230
15 changed files with 145 additions and 102 deletions
|
@ -23,7 +23,7 @@ seek = withWords start
|
|||
|
||||
start :: [String] -> CommandStart
|
||||
start (ks:us:vs:[]) = do
|
||||
showStart' "setpresentkey" k k
|
||||
showStart' "setpresentkey" k (mkActionItem k)
|
||||
next $ perform k (toUUID us) s
|
||||
where
|
||||
k = fromMaybe (error "bad key") (file2key ks)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue