fix spacing

unisonweb · Nov 19, 2023 · 167c7d0 · 167c7d0
1 parent 68d6f93
commit 167c7d0
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/unison-cli/src/Unison/CommandLine/InputPatterns.hs b/unison-cli/src/Unison/CommandLine/InputPatterns.hs
@@ -2474,15 +2474,13 @@ createAuthor =
     []
     I.Visible
     [(Required, noCompletionsArg), (Required, noCompletionsArg)]
-    ( makeExample createAuthor ["alicecoder", "\"Alice McGee\""]
-        <> "creates"
+    ( makeExample createAuthor ["alicecoder", "\"Alice McGee\""] <> " "
+        <> P.wrap (" creates "
         <> backtick "alicecoder"
         <> "values in"
         <> backtick "metadata.authors"
         <> "and"
-        <> backtick "metadata.copyrightHolders"
-        <> "."
-    )
+        <> backtick (P.group ("metadata.copyrightHolders" <> "."))))
     ( \case
         symbolStr : authorStr@(_ : _) -> first fromString $ do
           symbol <- Path.definitionNameSegment symbolStr