21 lines
655 B
Haskell
21 lines
655 B
Haskell
{-# LANGUAGE TupleSections, OverloadedStrings #-}
|
|
module Handler.Home where
|
|
|
|
import Import
|
|
|
|
-- This is a handler function for the GET request method on the HomeR
|
|
-- resource pattern. All of your resource patterns are defined in
|
|
-- config/routes
|
|
--
|
|
-- The majority of the code you will write in Yesod lives in these handler
|
|
-- functions. You can spread them across multiple files if you are so
|
|
-- inclined, or create a single monolithic file.
|
|
getHomeR :: Handler Html
|
|
getHomeR = do
|
|
recentMedia <- runDB $ selectList [] [Desc MediaTime]
|
|
defaultLayout $ do
|
|
$(widgetFile "home")
|
|
|
|
postHomeR :: Handler Html
|
|
postHomeR = do
|
|
error "not yet implemented"
|