vger/Vger.hs

import Gemini
import Options.Applicative

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

sample :: Parser Sample
sample = Sample
      <$> strOption
          ( long "baseDir"
         <> short 'd'
         <> help "base directory to serve files from"
         <> value "/var/gemini/")
      <*> strOption
          ( long "language"
         <> short 'l'
         <> help "language to use in the response for gemini files"
         <> value "")

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

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