maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(tazblog): Implement HLint lints in all files

Browse source
This commit is contained in:
Vincent Ambo 2019-08-25 23:06:48 +01:00
parent 561ed1fbbb
commit 1247848d76
5 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
services/tazblog/src/RSS.hs
View file

@ -6,7 +6,6 @@ module RSS
where
import BlogStore
import Control.Monad (liftM)
import Data.Maybe (fromJust)
import qualified Data.Text as T
import Data.Time (UTCTime (..), getCurrentTime, secondsToDiffTime)
@ -46,4 +45,4 @@ createFeed :: [Entry] -> IO RSS
createFeed e = getCurrentTime >>= (\t -> return $ createRSS t $ createItems e)
renderFeed :: [Entry] -> IO String
renderFeed e = liftM (showXML . rssToXML) (createFeed e)
renderFeed e = fmap (showXML . rssToXML) (createFeed e)