update command line options

agora-scripts/ScriptExport/API.hs

@@ -35,12 +35,12 @@ import Text.Printf (printf)
      @since 0.2.0
 -}
 type API =
-  -- /query-script/:name
+  -- POST /query-script/:name
   "query-script"
     :> Capture "name" Text
     :> ReqBody '[JSON] Aeson.Value
     :> Post '[JSON] Aeson.Value
-    -- /info
+    -- GET /info
     :<|> "info"
       :> Get '[JSON] ServerInfo
 
@@ -106,5 +106,5 @@ runServer revision builders options = do
   printf "[info] Running 'agora-scripts' on :%d\n" (Warp.getPort settings)
 
   Servant.serve (Proxy @API) handler
-    & corsMiddleware
+    & (if options.enableCorsMiddleware then corsMiddleware else id)
     & Warp.runSettings settings

agora-scripts/ScriptExport/Options.hs

@@ -11,8 +11,9 @@ import Network.Wai.Handler.Warp qualified as Warp
 import Options.Applicative ((<**>))
 import Options.Applicative qualified as Opt
 
-newtype Options = Options
+data Options = Options
   { port :: Warp.Port
+  , enableCorsMiddleware :: Bool
   }
   deriving stock (Show, Eq)
 
@@ -25,7 +26,18 @@ opt =
           <> Opt.short 'p'
           <> Opt.metavar "PORT"
           <> Opt.value 3939
-          <> Opt.help "The path where the script configuration is."
+          <> Opt.help "The port to run the server on."
+      )
+    <*> Opt.switch
+      ( Opt.long "enable-cors-middleware"
+          <> Opt.short 'c'
+          <> Opt.help
+            ( unwords
+                [ "Enable cors middleware."
+                , "This is usually required for some local servers."
+                , "For security reasons, this should be disabled in production."
+                ]
+            )
       )
 
 parseOptions :: IO Options