module Stack.Sig
( module Sig
, sigCmdName
, sigSignCmdName
, sigSignHackageCmdName
, sigSignHackageOpts
, sigSignSdistCmdName
, sigSignSdistOpts
)
where
import Options.Applicative
import Stack.Sig.GPG as Sig
import Stack.Sig.Sign as Sig
sigCmdName :: String
sigCmdName = "sig"
sigSignCmdName :: String
sigSignCmdName = "sign"
sigSignSdistCmdName :: String
sigSignSdistCmdName = "sdist"
sigSignHackageCmdName :: String
sigSignHackageCmdName = "hackage"
url :: Parser String
url = strOption
(long "url" <>
short 'u' <>
metavar "URL" <>
showDefault <>
value "https://sig.commercialhaskell.org")
sigSignSdistOpts :: Parser (String, String)
sigSignSdistOpts = helper <*>
((,) <$> url <*>
argument str (metavar "PATH"))
sigSignHackageOpts :: Parser (String, String)
sigSignHackageOpts = helper <*>
((,) <$> url <*>
argument str (metavar "USER"))