mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
be5a3519c3
@snoyberg Okay, this type checks. E.like requires an IsString constraint (pity, as Slug is technically string-like, but smart-constructored)
34 lines
1.3 KiB
Haskell
34 lines
1.3 KiB
Haskell
{-# LANGUAGE TupleSections, OverloadedStrings #-}
|
|
module Handler.Home where
|
|
|
|
import Data.Slug
|
|
import qualified Database.Esqueleto as E
|
|
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
|
|
fpHandle <- mkSlug "fpcomplete"
|
|
stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do
|
|
E.on (stackage E.^. StackageUser E.==. user E.^. UserId)
|
|
E.orderBy [E.desc $ stackage E.^. StackageUploaded]
|
|
E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||.
|
|
user E.^. UserHandle E.==. E.val fpHandle)
|
|
E.limit 4
|
|
return
|
|
( stackage E.^. StackageIdent
|
|
, stackage E.^. StackageTitle
|
|
, stackage E.^. StackageUploaded
|
|
, user E.^. UserDisplay
|
|
, user E.^. UserHandle
|
|
)
|
|
defaultLayout $ do
|
|
setTitle "Stackage Server"
|
|
$(widgetFile "homepage")
|