summaryrefslogtreecommitdiff
path: root/Command/MetaData.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-11-28 14:40:26 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-11-28 15:14:16 -0400
commit699611cde5cda8b2f2d83a6d6ac9c1e575b74f51 (patch)
treeb502247490779aca8068684a3be42791050eff7b /Command/MetaData.hs
parentbf5de3a6f3d50028f7ac47c6cde759a6f5110b08 (diff)
showStart variant for when there's no worktree file
Clean up some uses of showStart with "" for the file, or in some cases, a non-filename description string. That would generate bad json, although none of the commands doing that supported --json. Using "" for the file resulted in output like "foo rest"; now the extra space is eliminated. This commit was sponsored by Fernando Jimenez on Patreon.
Diffstat (limited to 'Command/MetaData.hs')
-rw-r--r--Command/MetaData.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs
index fd5fd0838..9fba1097a 100644
--- a/Command/MetaData.hs
+++ b/Command/MetaData.hs
@@ -100,7 +100,7 @@ startKeys c o k ai = case getSet o of
putStrLn . fromMetaValue
stop
_ -> do
- showStart' "metadata" k ai
+ showStartKey "metadata" k ai
next $ perform c o k
perform :: VectorClock -> MetaDataOptions -> Key -> CommandPerform
@@ -164,7 +164,7 @@ startBatch (i, (MetaData m)) = case i of
Right k -> go k (mkActionItem k)
where
go k ai = do
- showStart' "metadata" k ai
+ showStartKey "metadata" k ai
let o = MetaDataOptions
{ forFiles = []
, getSet = if MetaData m == emptyMetaData