{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Page.BlogPage where import Clckwrks import Clckwrks.Page.API import Clckwrks.Page.Monad import Clckwrks.Page.Types import Clckwrks.Page.URL import Control.Monad.State (get) postsHTML :: XMLGenT PageM XML postsHTML = do posts <- getPosts