diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-07-20 15:22:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-07-20 15:23:43 -0400 |
| commit | 258a3356e6461e0164441bb3a3e202cb9ef889e6 (patch) | |
| tree | f198f34aaedeffb1af624f918a214527b066175a /Command/SetPresentKey.hs | |
| parent | e97cd57e1ac72d5a240852704ebaf92716fcad94 (diff) | |
--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.
Diffstat (limited to 'Command/SetPresentKey.hs')
| -rw-r--r-- | Command/SetPresentKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/SetPresentKey.hs b/Command/SetPresentKey.hs index 73847792d..20c96ae36 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 k + showStart' "setpresentkey" k (mkActionItem k) next $ perform k (toUUID us) s where k = fromMaybe (error "bad key") (file2key ks) |