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

    import Yesod.Core

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

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