diff --git a/yesod-default/Yesod/Default/Handlers.hs b/yesod-default/Yesod/Default/Handlers.hs new file mode 100644 index 00000000..d5b95a1c --- /dev/null +++ b/yesod-default/Yesod/Default/Handlers.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE OverloadedStrings #-} +module Yesod.Default.Handlers + ( getFaviconR + , getRobotsR + ) where + +import Yesod.Handler (GHandler, sendFile) +import Yesod.Content (RepPlain(..), ToContent(..)) + +getFaviconR :: GHandler s m () +getFaviconR = sendFile "image/x-icon" "config/favicon.ico" + +getRobotsR :: GHandler s m RepPlain +getRobotsR = return $ RepPlain $ toContent ("User-agent: *" :: String) diff --git a/yesod-default/yesod-default.cabal b/yesod-default/yesod-default.cabal index ba8a818c..ec8524aa 100644 --- a/yesod-default/yesod-default.cabal +++ b/yesod-default/yesod-default.cabal @@ -37,6 +37,7 @@ library exposed-modules: Yesod.Default.Config , Yesod.Default.Main , Yesod.Default.Util + , Yesod.Default.Handlers ghc-options: -Wall