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")