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

Remove unnecessary templates for Handler.Entries - this allows it not to use TH at all :)

Browse source
This commit is contained in:
Danielle McLean 2017-10-14 15:04:01 +11:00
parent 474ed3cf28
commit c184136f8a
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
3 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Handler/Entries.hs
View file

@ -1,6 +1,5 @@
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Handler.Entries where module Handler.Entries where
import Import import Import
@ -22,7 +21,7 @@ getEntriesR kind = do
defaultLayout $ do defaultLayout $ do
setTitle . toHtml . K.pluralise $ kind setTitle . toHtml . K.pluralise $ kind
atomLink (FeedKindR kind) $ T.concat [K.pluralise kind, " ~ ", title] atomLink (FeedKindR kind) $ T.concat [K.pluralise kind, " ~ ", title]
$(widgetFile "entries") hFeed entries
getEntryR :: a -> EntryId -> Handler Html getEntryR :: a -> EntryId -> Handler Html
getEntryR _ = renderEntry <=< getCached getEntryR _ = renderEntry <=< getCached
@ -38,4 +37,4 @@ renderEntry entry = do
redirectWith movedPermanently301 correctRoute redirectWith movedPermanently301 correctRoute
defaultLayout $ do defaultLayout $ do
setTitle . toHtml . entryTitle . entityVal $ entry setTitle . toHtml . entryTitle . entityVal $ entry
$(widgetFile "entry") hEntry entry

1
templates/entries.hamlet
View file

@ -1 +0,0 @@
^{hFeed entries}

1
templates/entry.hamlet
View file

@ -1 +0,0 @@
^{hEntry entry}