module Rules.Blog.Feed.RSS (
    build
) where

import           Hakyll
import qualified Hakyll.Web.Feed.Extra as FE

import           Rules.Blog.Feed.Utils
import           Rules.Blog.Type

build :: Snapshot
    -> Context String
    -> BlogConfReader n Rules ()
build :: forall (n :: * -> *).
Snapshot -> Context Snapshot -> BlogConfReader n Rules ()
build Snapshot
feedSSName Context Snapshot
ctx = Snapshot
-> Snapshot
-> Context Snapshot
-> Render
-> BlogConfReader n Rules ()
forall (n :: * -> *).
Snapshot
-> Snapshot
-> Context Snapshot
-> Render
-> BlogConfReader n Rules ()
buildFeed Snapshot
feedSSName Snapshot
"-rss.xml" Context Snapshot
ctx Render
FE.renderRss