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

ran hlint

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-28 14:44:14 +02:00
parent 9719b5a62d
commit c5206173e6
4 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/RSS.hs
View file

@ -2,14 +2,15 @@
module RSS (renderFeed) where
import qualified Data.Text as T
import qualified Data.Text as T
import Data.Maybe (fromMaybe)
import Data.Time (UTCTime, getCurrentTime)
import Control.Monad (liftM)
import Data.Maybe (fromMaybe)
import Data.Time (UTCTime, getCurrentTime)
import Network.URI
import Text.RSS
import BlogDB hiding (Title)
import BlogDB hiding (Title)
import Locales
createChannel :: BlogLang -> UTCTime -> [ChannelElem]
@ -20,7 +21,7 @@ createChannel l now = [ Language $ show l
]
createRSS :: BlogLang -> UTCTime -> [Item] -> RSS
createRSS l t i = RSS (rssTitle l) (rssLink l) (rssDesc l) (createChannel l t) i
createRSS l t = RSS (rssTitle l) (rssLink l) (rssDesc l) (createChannel l t)
createItem :: Entry -> Item
createItem Entry{..} = [ Title $ T.unpack title
@ -39,4 +40,4 @@ createFeed :: BlogLang -> [Entry] -> IO RSS
createFeed l e = getCurrentTime >>= (\t -> return $ createRSS l t $ createItems e )
renderFeed :: BlogLang -> [Entry] -> IO String
renderFeed l e = createFeed l e >>= (\feed -> return $ showXML $ rssToXML feed)
renderFeed l e = liftM (showXML . rssToXML) (createFeed l e)