{-# LANGUAGE OverloadedStrings #-}
module Main where

import Cana
import Cana.Protocol
import Cana.Router

defaultResponse :: GeminiResponse
defaultResponse = GeminiResponse
  { responseStatus = codeSuccess
  , responseMeta   = "text/gemini"
  , responseData   = "# Hello World\nThis page was served by Cana."
  }

main :: IO ()
main = runGeminiServer Nothing defaultGeminiPort "certificate.crt" "private.key"
  [ (anyRoute, const $ return defaultResponse)
  ]