module Rules.Blog.Feed.Atom (
    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
".xml" Context Snapshot
ctx Render
FE.renderAtom