create initial POC script generating API

This commit is contained in:
Emily Martins 2022-06-21 14:48:31 +02:00
parent 564b1c4e66
commit e862de7e59
9 changed files with 210 additions and 82 deletions

View file

@ -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"