more generic showStart'
This commit is contained in:
parent
4236dc83a8
commit
847944e6b1
3 changed files with 26 additions and 6 deletions
|
@ -42,7 +42,7 @@ seek o = do
|
|||
|
||||
start :: Key -> CommandStart
|
||||
start key = do
|
||||
showStart' "dropkey" key Nothing
|
||||
showStart' "dropkey" key key
|
||||
next $ perform key
|
||||
|
||||
perform :: Key -> CommandPerform
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue