hercules-ci-api-0.8.2.0: hercules-gen-swagger/Main.hs

module Main
  ( main,
  )
where

import Data.Aeson (encode)
import Data.String.Conv (toS)
import Hercules.API (openapi3, swagger)
import System.Environment (getArgs)
import System.IO (hPutStrLn, stderr)
import Prelude

main :: IO ()
main = do
  args <- getArgs
  case args of
    ["--experimental-openapi3"] -> putStrLn $ toS $ encode openapi3
    [] -> putStrLn $ toS $ encode swagger
    _ -> do
      hPutStrLn stderr "Usage: hercules-gen-swagger [--experimental-openapi3] > swagger.json"
      error $ "Unknown arguments" <> show args