about summary refs log tree commit diff
path: root/src/RSS.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/RSS.hs')
-rw-r--r--src/RSS.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/RSS.hs b/src/RSS.hs
index 05ae40ece58f..50531c3f8065 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)