create initial POC script generating API
This commit is contained in:
parent
564b1c4e66
commit
e862de7e59
9 changed files with 210 additions and 82 deletions
|
|
@ -7,9 +7,9 @@ Command line options for 'agora-scripts'.
|
|||
-}
|
||||
module Options (Options (..), parseOptions) where
|
||||
|
||||
import Network.Wai.Handler.Warp qualified as Warp
|
||||
import Options.Applicative ((<**>))
|
||||
import Options.Applicative qualified as Opt
|
||||
import qualified Network.Wai.Handler.Warp as Warp
|
||||
|
||||
data Options = Options
|
||||
{ port :: Warp.Port
|
||||
|
|
@ -19,7 +19,8 @@ data Options = Options
|
|||
opt :: Opt.Parser Options
|
||||
opt =
|
||||
Options
|
||||
<$> Opt.option Opt.auto
|
||||
<$> Opt.option
|
||||
Opt.auto
|
||||
( Opt.long "port"
|
||||
<> Opt.short 'p'
|
||||
<> Opt.metavar "PORT"
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue