    {-# LANGUAGE OverloadedStrings #-}
    module Yesod.Default.Handlers
        ( getFaviconR
        , getRobotsR
        ) where

    import Yesod.Core

    getFaviconR :: MonadHandler m => m ()
    getFaviconR :: m ()
    getFaviconR = ContentType -> FilePath -> m ()
    forall (m :: * -> *) a.
    MonadHandler m =>
    ContentType -> FilePath -> m a
    sendFile "image/x-icon" "config/favicon.ico"

    getRobotsR :: MonadHandler m => m ()
    getRobotsR :: m ()
    getRobotsR = ContentType -> FilePath -> m ()
    forall (m :: * -> *) a.
    MonadHandler m =>
    ContentType -> FilePath -> m a
    sendFile "text/plain" "config/robots.txt"