aboutsummaryrefslogtreecommitdiff
path: root/Command/SetPresentKey.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-07-20 14:03:54 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-07-20 14:03:54 -0400
commite97cd57e1ac72d5a240852704ebaf92716fcad94 (patch)
tree35bd79976c25a06ba731a6da13de5db3315d73ff /Command/SetPresentKey.hs
parent3b35227c3b739488c7093ab4856d23358bea3f9d (diff)
more generic showStart'
Diffstat (limited to 'Command/SetPresentKey.hs')
-rw-r--r--Command/SetPresentKey.hs2
1 files changed, 1 insertions, 1 deletions
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)