00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Set title for EntriesR

Browse source
This commit is contained in:
Danielle McLean 2017-10-09 10:08:23 +11:00
parent c554715df7
commit 2fd0ff850b
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Handler/Entries.hs
View file

@ -13,7 +13,9 @@ import Widget.Feed ( hFeed )
getEntriesR :: K.EntryKind -> Handler Html getEntriesR :: K.EntryKind -> Handler Html
getEntriesR kind = do getEntriesR kind = do
entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished] entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished]
defaultLayout $(widgetFile "entries") defaultLayout $ do
setTitle . toHtml . K.pluralise $ kind
$(widgetFile "entries")
checkMatching :: K.EntryKind -> Slug -> Entry -> Bool checkMatching :: K.EntryKind -> Slug -> Entry -> Bool
checkMatching kind slug entry = (kind == entryKind entry) && (slug == entrySlug entry) checkMatching kind slug entry = (kind == entryKind entry) && (slug == entrySlug entry)