more generic showStart'

This commit is contained in:
Joey Hess 2016-07-20 14:03:54 -04:00
parent 4236dc83a8
commit 847944e6b1
Failed to extract signature
3 changed files with 26 additions and 6 deletions

View file

@ -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