{-# LANGUAGE OverloadedStrings #-} module Yesod.Default.Handlers ( getFaviconR , getRobotsR ) where import Yesod.Core getFaviconR :: MonadHandler m => m () getFaviconR :: forall (m :: * -> *). MonadHandler m => m () getFaviconR = 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 = forall (m :: * -> *) a. MonadHandler m => ContentType -> FilePath -> m a sendFile ContentType "text/plain" FilePath "config/robots.txt"