Tissevert/hablo
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Remove unused MonadReader constraint

Browse source
This commit is contained in:
Tissevert 2021-02-21 22:08:36 +01:00
parent b42fac59c4
commit ff7aa0ed56
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/RSS.hs
View file

@ -12,7 +12,7 @@ import Blog (Blog(urls), Renderer, URLs(..))
import Collection (Collection(..), getAll) import Collection (Collection(..), getAll)
import qualified Collection (title) import qualified Collection (title)
import Control.Monad.IO.Class (MonadIO(..)) 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.Text (Text)
import Data.Map ((!)) import Data.Map ((!))
import qualified Data.Text.Lazy.IO as TextIO (writeFile) import qualified Data.Text.Lazy.IO as TextIO (writeFile)
@ -57,7 +57,7 @@ item_ = term "item"
pubDate_ :: Term arg result => arg -> result pubDate_ :: Term arg result => arg -> result
pubDate_ = term "pubDate" 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})) = articleItem siteURL (Article (Markdown {path, metadata, title})) =
item_ $ do item_ $ do
title_ $ toHtml title title_ $ toHtml title