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

Used stylish-haskell on all source files

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

18
src/RSS.hs
View file

@ -2,15 +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 (getCurrentTime, UTCTime)
import Network.URI
import Text.RSS
import Data.Maybe (fromMaybe)
import Data.Time (UTCTime, getCurrentTime)
import Network.URI
import Text.RSS
import Locales
import BlogDB hiding (Title)
import BlogDB hiding (Title)
import Locales
createChannel :: BlogLang -> UTCTime -> [ChannelElem]
createChannel l now = [ Language $ show l
@ -23,7 +23,7 @@ createRSS :: BlogLang -> UTCTime -> [Item] -> RSS
createRSS l t i = RSS (rssTitle l) (rssLink l) (rssDesc l) (createChannel l t) i
createItem :: Entry -> Item
createItem Entry{..} = [ Title $ T.unpack title
createItem Entry{..} = [ Title $ T.unpack title
, Link $ makeLink lang entryId
, Description $ T.unpack btext
, PubDate edate]
@ -39,4 +39,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 = createFeed l e >>= (\feed -> return $ showXML $ rssToXML feed)