11 lines
263 B
Haskell
11 lines
263 B
Haskell
-- | Common handler functions.
|
|
module Handler.Common where
|
|
|
|
import Import
|
|
|
|
getFaviconR :: Handler ()
|
|
getFaviconR = redirectWith movedPermanently301 $ StaticR favicon_ico
|
|
|
|
getRobotsR :: Handler ()
|
|
getRobotsR = redirectWith movedPermanently301 $ StaticR robots_txt
|