{-# LANGUAGE OverloadedStrings #-} module Main where import Cana import Cana.Protocol import Cana.Router import Cana.Extra 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, staticFiles "gmdocs") ]