fullContent :: Site -> SiteTemplates -> Page -> Text
fullContent site templates page =
  P.renderTemplate
    (_templateBase templates)
    (object [ "body" .= renderedAfterFeed ])
  where
    renderedAfterFeed :: Text
    renderedAfterFeed =
      P.renderTemplate
        (_templatePageAfterFeed templates)
        (object [ "body"   .= coreContent site page
                , "pageId" .= idString page
                ])
fullContent :: Site -> SiteTemplates -> Page -> Text
fullContent site templates page =
  P.renderTemplate
    (_templateBase templates)
    (object [ "body" .= renderedAfterFeed ])
  where
    renderedAfterFeed :: Text
    renderedAfterFeed =
      P.renderTemplate
        (_templatePageAfterFeed templates)
        (object [ "body"   .= coreContent site page
                , "pageId" .= idString page
                ])
fullContent site templates page =
  P.renderTemplate
    (_templateBase templates)
    (object [ "body" .= renderedAfterFeed ])
  where
    renderedAfterFeed :: Text
    renderedAfterFeed =
      P.renderTemplate
        (_templatePageAfterFeed templates)
        (object [ "body"   .= coreContent site page
                , "pageId" .= idString page
                ])