2014-08-09 18:33:22 +00:00
|
|
|
{-# LANGUAGE TupleSections, OverloadedStrings #-}
|
|
|
|
module Handler.Home where
|
|
|
|
|
|
|
|
import Import
|
|
|
|
|
|
|
|
getHomeR :: Handler Html
|
|
|
|
getHomeR = do
|
2015-01-11 07:06:48 +00:00
|
|
|
recentMedia <- runDB $ selectList [] [Desc MediumTime, LimitTo 30]
|
|
|
|
widgetLayout <- return $ widgetFile "default-widget"
|
2014-08-12 12:37:31 +00:00
|
|
|
defaultLayout $ do
|
2014-09-24 21:03:18 +00:00
|
|
|
setTitle "Eidolon :: Home"
|
2014-08-12 12:37:31 +00:00
|
|
|
$(widgetFile "home")
|