Remove unnecessary templates for Handler.Entries - this allows it not to use TH at all :)
This commit is contained in:
parent
474ed3cf28
commit
c184136f8a
3 changed files with 2 additions and 5 deletions
|
@ -1,6 +1,5 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
module Handler.Entries where
|
||||
|
||||
import Import
|
||||
|
@ -22,7 +21,7 @@ getEntriesR kind = do
|
|||
defaultLayout $ do
|
||||
setTitle . toHtml . K.pluralise $ kind
|
||||
atomLink (FeedKindR kind) $ T.concat [K.pluralise kind, " ~ ", title]
|
||||
$(widgetFile "entries")
|
||||
hFeed entries
|
||||
|
||||
getEntryR :: a -> EntryId -> Handler Html
|
||||
getEntryR _ = renderEntry <=< getCached
|
||||
|
@ -38,4 +37,4 @@ renderEntry entry = do
|
|||
redirectWith movedPermanently301 correctRoute
|
||||
defaultLayout $ do
|
||||
setTitle . toHtml . entryTitle . entityVal $ entry
|
||||
$(widgetFile "entry")
|
||||
hEntry entry
|
||||
|
|
|
@ -1 +0,0 @@
|
|||
^{hFeed entries}
|
|
@ -1 +0,0 @@
|
|||
^{hEntry entry}
|
Loading…
Reference in a new issue