diff options
| author | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·06+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·07+0100 |
| commit | 1247848d76712bad1e47b2b67969db3456f04e75 (patch) | |
| tree | 6f10329c2e2eec1ac4284dfec70676b1c5080031 /services/tazblog/src/RSS.hs | |
| parent | 561ed1fbbb624ddc51f5a97f4a81354e458e64cd (diff) | |
refactor(tazblog): Implement HLint lints in all files r/64
Diffstat (limited to 'services/tazblog/src/RSS.hs')
| -rw-r--r-- | services/tazblog/src/RSS.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/services/tazblog/src/RSS.hs b/services/tazblog/src/RSS.hs index 112dcc34388a..913aa9a4081b 100644 --- a/services/tazblog/src/RSS.hs +++ b/services/tazblog/src/RSS.hs @@ -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) |