Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 19:54:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

cleans up docs

Browse Source
This commit is contained in:
Keagan McClelland
2022-05-25 16:11:17 -06:00
parent 11e361fc5b
commit 3395db8604
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Cli/Cli.hs
View File

@@ -177,10 +177,12 @@ cfgLocation :: IO FilePath
cfgLocation = getHomeDirectory <&> \d -> d </> ".embassy/publish.dhall" cfgLocation = getHomeDirectory <&> \d -> d </> ".embassy/publish.dhall"
parseInit :: Parser () 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 :: 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 where
go = liftA3 go = liftA3
Upload Upload
@@ -231,7 +233,7 @@ parseIndex =
parseDeindex :: Parser Command parseDeindex :: Parser Command
parseDeindex = parseDeindex =
subparser 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" <> metavar "deindex"
parseIndexHelper :: Bool -> Parser Command parseIndexHelper :: Bool -> Parser Command
@@ -246,7 +248,7 @@ parseCommand :: Parser Command
parseCommand = parseCommand =
(parseInit $> CmdInit) (parseInit $> CmdInit)
<|> (CmdUpload <$> parsePublish) <|> (CmdUpload <$> parsePublish)
<|> subparser (command "reg" (info reg $ progDesc "Manage configured registries")) <|> subparser (command "reg" (info reg $ progDesc "Manage configured registries") <> metavar "reg")
<|> parseIndex <|> parseIndex
<|> parseDeindex <|> parseDeindex
where reg = parseRepoAdd <|> (CmdRegDel <$> parseRepoDel) <|> (parseRepoList $> CmdRegList) where reg = parseRepoAdd <|> (CmdRegDel <$> parseRepoDel) <|> (parseRepoList $> CmdRegList)