sproxy2-1.96.0: src/Main.hs

{-# LANGUAGE QuasiQuotes #-}

module Main
  ( main
  ) where

import Data.Maybe (fromJust)
import Data.Version (showVersion)
import Paths_sproxy2 (version) -- from cabal
import qualified System.Console.Docopt.NoTH as O
import System.Environment (getArgs)
import Text.InterpolatedString.Perl6 (qc)

import Sproxy.Server (server)

usage :: String
usage =
  "sproxy2 " ++
  showVersion version ++
  " - HTTP proxy for authenticating users via OAuth2" ++
  [qc|

Usage:
  sproxy2 [options]

Options:
  -c, --config=FILE        Configuration file [default: sproxy.yml]
  -h, --help               Show this message

|]

main :: IO ()
main = do
  doco <- O.parseUsageOrExit usage
  args <- O.parseArgsOrExit doco =<< getArgs
  if args `O.isPresent` O.longOption "help"
    then putStrLn $ O.usage doco
    else do
      let configFile = fromJust . O.getArg args $ O.longOption "config"
      server configFile