diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs index a6b206c27c953782e5597bbeacbd02103587c2ef..ad66ee0d9996434a36b3747aa1f1a48b5cc91e38 100644 --- a/src/PaymentServer/Main.hs +++ b/src/PaymentServer/Main.hs @@ -53,6 +53,7 @@ import Options.Applicative , ParserInfo , strOption , option + , many , auto , str , optional @@ -166,11 +167,13 @@ sample = ServerConfig <*> option str ( long "stripe-key-path" <> help "Path to Stripe Secret key" ) - <*> option auto - ( long "allow-origin" - <> help "For the charge endpoint, a list of CORS origins to allow." - <> showDefault - <> value [] ) + <*> many + ( option str + ( long "allow-origin" + <> help "For the charge endpoint, a CORS origin to allow." + <> showDefault + ) + ) opts :: ParserInfo ServerConfig opts = info (sample <**> helper)