14 lines
322 B
Haskell
14 lines
322 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module Yesod.Default.Handlers
|
|
( getFaviconR
|
|
, getRobotsR
|
|
) where
|
|
|
|
import Yesod.Core
|
|
|
|
getFaviconR :: MonadHandler m => m ()
|
|
getFaviconR = sendFile "image/x-icon" "config/favicon.ico"
|
|
|
|
getRobotsR :: MonadHandler m => m ()
|
|
getRobotsR = sendFile "text/plain" "config/robots.txt"
|