vger/Vger.hs

import Gemini

main :: IO ()
main = do
    url <- get_request
    let request = parse_to_gemini (parse_url url)
    content <- read_file (file request)
    putStr (get_reply (mime request) 20)
    putStr content