mirror of
https://code.naskya.net/repos/ndqEd
synced 2025-01-10 16:56:47 +09:00
17 lines
528 B
Haskell
17 lines
528 B
Haskell
|
-- | Common handler functions.
|
||
|
|
module Handler.Common where
|
||
|
|
|
||
|
|
import Data.FileEmbed (embedFile)
|
||
|
|
import Import
|
||
|
|
|
||
|
|
-- These handlers embed files in the executable at compile time to avoid a
|
||
|
|
-- runtime dependency, and for efficiency.
|
||
|
|
|
||
|
|
getFaviconR :: Handler TypedContent
|
||
|
|
getFaviconR = return $ TypedContent "image/x-icon"
|
||
|
|
$ toContent $(embedFile "config/favicon.ico")
|
||
|
|
|
||
|
|
getRobotsR :: Handler TypedContent
|
||
|
|
getRobotsR = return $ TypedContent typePlain
|
||
|
|
$ toContent $(embedFile "config/robots.txt")
|