diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-07-20 14:03:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-07-20 14:03:54 -0400 |
| commit | e97cd57e1ac72d5a240852704ebaf92716fcad94 (patch) | |
| tree | 35bd79976c25a06ba731a6da13de5db3315d73ff /Command | |
| parent | 3b35227c3b739488c7093ab4856d23358bea3f9d (diff) | |
more generic showStart'
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/DropKey.hs | 2 | ||||
| -rw-r--r-- | Command/SetPresentKey.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs index 15d5403a8..9a9d51354 100644 --- a/Command/DropKey.hs +++ b/Command/DropKey.hs @@ -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 diff --git a/Command/SetPresentKey.hs b/Command/SetPresentKey.hs index 35ede9553..73847792d 100644 --- a/Command/SetPresentKey.hs +++ b/Command/SetPresentKey.hs @@ -23,7 +23,7 @@ seek = withWords start start :: [String] -> CommandStart start (ks:us:vs:[]) = do - showStart' "setpresentkey" k Nothing + showStart' "setpresentkey" k k next $ perform k (toUUID us) s where k = fromMaybe (error "bad key") (file2key ks) |