14 lines
306 B
Haskell
14 lines
306 B
Haskell
{-# LANGUAGE TupleSections, OverloadedStrings #-}
|
|
module Handler.Home where
|
|
|
|
import Import
|
|
|
|
getHomeR :: Handler Html
|
|
getHomeR = do
|
|
recentMedia <- runDB $ selectList [] [Desc MediumTime]
|
|
defaultLayout $ do
|
|
$(widgetFile "home")
|
|
|
|
postHomeR :: Handler Html
|
|
postHomeR = do
|
|
error "not yet implemented"
|