mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
14 lines
417 B
Haskell
14 lines
417 B
Haskell
module Handler.StackageHome where
|
|
|
|
import Import
|
|
|
|
getStackageHomeR :: PackageSetIdent -> Handler Html
|
|
getStackageHomeR ident = do
|
|
(stackage, user) <- runDB $ do
|
|
Entity _ stackage <- getBy404 $ UniqueStackage ident
|
|
user <- get404 $ stackageUser stackage
|
|
return (stackage, user)
|
|
defaultLayout $ do
|
|
setTitle $ toHtml $ stackageTitle stackage
|
|
$(widgetFile "stackage-home")
|