]> Git — Sourcephile - comptalang.git/blob - web/Handler/Common.hs
Ajout : CLI.Lib.Shakespeare.Leijen : et demain L’Internationale...
[comptalang.git] / web / Handler / Common.hs
1 -- | Common handler functions.
2 module Handler.Common where
3
4 import Data.FileEmbed (embedFile)
5 import Import
6
7 -- These handlers embed files in the executable at compile time to avoid a
8 -- runtime dependency, and for efficiency.
9
10 getFaviconR :: Handler TypedContent
11 getFaviconR = return $ TypedContent "image/x-icon"
12 $ toContent $(embedFile "config/favicon.ico")
13
14 getRobotsR :: Handler TypedContent
15 getRobotsR = return $ TypedContent typePlain
16 $ toContent $(embedFile "config/robots.txt")