From 3395db86042076889973e668c7190db978b58731 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 25 May 2022 16:11:17 -0600
Subject: [PATCH] cleans up docs

---
 src/Cli/Cli.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/Cli/Cli.hs b/src/Cli/Cli.hs
index 4a27440..49e6078 100644
--- a/src/Cli/Cli.hs
+++ b/src/Cli/Cli.hs
@@ -177,10 +177,12 @@ cfgLocation :: IO FilePath
 cfgLocation = getHomeDirectory <&> \d -> d </> ".embassy/publish.dhall"
 
 parseInit :: Parser ()
-parseInit = subparser $ command "init" (info (pure ()) $ progDesc "Initializes embassy-publish config")
+parseInit =
+    subparser $ command "init" (info (pure ()) $ progDesc "Initializes embassy-publish config") <> metavar "init"
 
 parsePublish :: Parser Upload
-parsePublish = subparser $ command "upload" (info go $ progDesc "Publishes a .s9pk to a remote registry")
+parsePublish = subparser $ command "upload" (info go $ progDesc "Publishes a .s9pk to a remote registry") <> metavar
+    "upload"
     where
         go = liftA3
             Upload
@@ -231,7 +233,7 @@ parseIndex =
 parseDeindex :: Parser Command
 parseDeindex =
     subparser
-        $  command "deindex" (info (parseIndexHelper False) $ progDesc "Indexes an existing package version")
+        $  command "deindex" (info (parseIndexHelper False) $ progDesc "Deindexes an existing package version")
         <> metavar "deindex"
 
 parseIndexHelper :: Bool -> Parser Command
@@ -246,7 +248,7 @@ parseCommand :: Parser Command
 parseCommand =
     (parseInit $> CmdInit)
         <|> (CmdUpload <$> parsePublish)
-        <|> subparser (command "reg" (info reg $ progDesc "Manage configured registries"))
+        <|> subparser (command "reg" (info reg $ progDesc "Manage configured registries") <> metavar "reg")
         <|> parseIndex
         <|> parseDeindex
     where reg = parseRepoAdd <|> (CmdRegDel <$> parseRepoDel) <|> (parseRepoList $> CmdRegList)