diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 000726d..50ca151 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -4,6 +4,7 @@ module Main where import Cana import Cana.Protocol import Cana.Router +import Cana.Extra defaultResponse :: GeminiResponse defaultResponse = GeminiResponse @@ -14,5 +15,5 @@ defaultResponse = GeminiResponse main :: IO () main = runGeminiServer Nothing defaultGeminiPort "certificate.crt" "private.key" - [ (anyRoute, const $ return defaultResponse) + [ (anyRoute, staticFiles "gmdocs") ] |