diff --git a/src/RSS.hs b/src/RSS.hs index 7b23a52..fd0a9d3 100644 --- a/src/RSS.hs +++ b/src/RSS.hs @@ -12,7 +12,7 @@ import Blog (Blog(urls), Renderer, URLs(..)) import Collection (Collection(..), getAll) import qualified Collection (title) import Control.Monad.IO.Class (MonadIO(..)) -import Control.Monad.Reader (MonadReader, ReaderT, asks) +import Control.Monad.Reader (ReaderT, asks) import Data.Text (Text) import Data.Map ((!)) import qualified Data.Text.Lazy.IO as TextIO (writeFile) @@ -57,7 +57,7 @@ item_ = term "item" pubDate_ :: Term arg result => arg -> result pubDate_ = term "pubDate" -articleItem :: MonadReader Blog m => String -> Article -> HtmlT m () +articleItem :: Monad m => String -> Article -> HtmlT m () articleItem siteURL (Article (Markdown {path, metadata, title})) = item_ $ do title_ $ toHtml title