13 lines
325 B
Haskell
13 lines
325 B
Haskell
|
{-# LANGUAGE TemplateHaskell #-}
|
||
|
|
module Handler.Entries where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
import qualified Entry.Kind as K
|
||
|
|
import Widget.Feed ( hFeed )
|
||
|
|
|
||
|
|
getEntriesR :: K.EntryKind -> Handler Html
|
||
|
|
getEntriesR kind = do
|
||
|
|
entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished]
|
||
|
|
defaultLayout $(widgetFile "entries")
|