From 8f73e2ab8dfccd337a3116dfcd5575f05355be96 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 17 Jan 2011 08:18:07 +0200
Subject: [PATCH] Moved some functions to yesod-core

---
 Yesod/Helpers/RssFeed.hs | 12 ------------
 yesod-newsfeed.cabal     |  4 ++--
 2 files changed, 2 insertions(+), 14 deletions(-)

diff --git a/Yesod/Helpers/RssFeed.hs b/Yesod/Helpers/RssFeed.hs
index aaacdf5c..d418cae2 100644
--- a/Yesod/Helpers/RssFeed.hs
+++ b/Yesod/Helpers/RssFeed.hs
@@ -25,18 +25,6 @@ import Yesod.Widget
 import Text.Hamlet
 import Data.Time.Clock  (UTCTime)
 
--- | FIXME unneeded if formatRFC822 moves
-import Data.Time.Format (formatTime)
-import System.Locale    (defaultTimeLocale)
-
--- | FIXME move this to Yesod.Content
-formatRFC822 :: UTCTime -> String
-formatRFC822 = formatTime defaultTimeLocale "%a, %d %b %Y %H:%M:%S %z"
-
--- | FIXME move this to Yesod.Content
-typeRss :: ContentType
-typeRss = "application/rss+xml"
-
 newtype RepRss = RepRss Content
 instance HasReps RepRss where
     chooseRep (RepRss c) _ = return (typeRss, c)
diff --git a/yesod-newsfeed.cabal b/yesod-newsfeed.cabal
index 72bab07f..8ba2034f 100644
--- a/yesod-newsfeed.cabal
+++ b/yesod-newsfeed.cabal
@@ -16,8 +16,8 @@ library
                    , yesod-core                >= 0.7      && < 0.8
                    , time                      >= 1.1.4    && < 1.3
                    , hamlet                    >= 0.7      && < 0.8
-                   , old-locale                >= 1.0      && < 1.1
-    exposed-modules: Yesod.Helpers.AtomFeed, Yesod.Helpers.RssFeed
+    exposed-modules: Yesod.Helpers.AtomFeed
+                   , Yesod.Helpers.RssFeed
     ghc-options:     -Wall
 
 source-repository head