vger/app/Vger.hs

{-# Language ApplicativeDo #-}
{-# Language RecordWildCards #-}
import Gemini
import Options.Applicative


data Sample = Sample
  { baseDir :: String
  , language  :: String
  , virtualhost :: Bool
  }

sample :: Parser Sample
sample = do
       baseDir <- strOption
          ( long "baseDir"
         <> short 'd'
         <> help "base directory to serve files from"
         <> value "/var/gemini/")
       language <- strOption
          ( long "language"
         <> short 'l'
         <> help "language to use in the response for gemini files"
         <> value "")
       virtualhost <- switch
          ( long "virtualhost"
         <> short 'v'
         <> help "virtualhost support")
       pure Sample{..}

opts :: ParserInfo Sample
opts = info (sample <**> helper)
  (fullDesc)

main :: IO ()
main = do
    options <- execParser opts
    request <- get_request
    answer <- create_answer request (language options) (baseDir options) (virtualhost options)
    putStr (make_reply answer)
    putStr (content answer)