mirror of
https://github.com/malob/prefmanager.git
synced 2024-12-14 11:57:49 +00:00
Remove periods
This commit is contained in:
parent
eae1c9dc58
commit
4907b56b7d
1 changed files with 6 additions and 6 deletions
12
app/Main.hs
12
app/Main.hs
|
@ -26,32 +26,32 @@ commands = hsubparser
|
|||
( watch . fromList <$> some
|
||||
(DomainName <$> strArgument
|
||||
( metavar "DOMAIN..."
|
||||
<> help "Domain(s) that will be watched."
|
||||
<> help "Domain(s) that will be watched"
|
||||
<> completer domainCompleter
|
||||
)
|
||||
)
|
||||
<|> flag' (watch =<< domains)
|
||||
( long "all"
|
||||
<> short 'a'
|
||||
<> help "Watch all domains including NSGlobalDomain."
|
||||
<> help "Watch all domains including NSGlobalDomain"
|
||||
)
|
||||
)
|
||||
$ progDesc "Watch domain(s) for changes."
|
||||
$ progDesc "Watch domain(s) for changes"
|
||||
)
|
||||
<> command "domains"
|
||||
(info
|
||||
(pure printDomains)
|
||||
(progDesc "List all domains.")
|
||||
(progDesc "List all domains")
|
||||
)
|
||||
<> command "keys"
|
||||
(info
|
||||
(printKeys . DomainName <$> strArgument
|
||||
( metavar "DOMAIN"
|
||||
<> help "A domain for which to list keys."
|
||||
<> help "A domain for which to list keys"
|
||||
<> completer domainCompleter
|
||||
)
|
||||
)
|
||||
$ progDesc "List the current keys in a domain."
|
||||
$ progDesc "List the current keys in a domain"
|
||||
)
|
||||
)
|
||||
where
|
||||
|
|
Loading…
Reference in a new issue