diff options
| author | "Vincent Ambo ext:(%22) <tazjin@gmail.com> | 2013-04-28T12·30+0200 |
|---|---|---|
| committer | "Vincent Ambo ext:(%22) <tazjin@gmail.com> | 2013-04-28T12·30+0200 |
| commit | 9719b5a62de0795a5cb62778de06c3aa7f206e95 (patch) | |
| tree | eb0b7800b9eff48c34a7b0c985d4e4663b94366e /src/RSS.hs | |
| parent | 8f1b6b5c4e34c59d7ceb19ef2fe552a104d7bf62 (diff) | |
Used stylish-haskell on all source files
Diffstat (limited to 'src/RSS.hs')
| -rw-r--r-- | src/RSS.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/RSS.hs b/src/RSS.hs index 05ae40ece5..50531c3f80 100644 --- a/src/RSS.hs +++ b/src/RSS.hs @@ -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) \ No newline at end of file +renderFeed l e = createFeed l e >>= (\feed -> return $ showXML $ rssToXML feed) |