Moved formatW3 to web-encodings package

Web/Restful/Response.hs

@@ -40,7 +40,7 @@ import Data.Object
 import qualified Data.ByteString.Lazy as B
 import Data.Object.Instances
 
-import Web.Restful.Utils (formatW3)
+import Web.Encodings (formatW3)
 
 import Test.Framework (testGroup, Test)
 

Web/Restful/Response/AtomFeed.hs

@@ -18,7 +18,6 @@ module Web.Restful.Response.AtomFeed
     ) where
 
 import Web.Restful.Response
-import Web.Restful.Utils
 
 import Data.Time.Clock
 import Web.Encodings

Web/Restful/Response/Sitemap.hs

@@ -21,7 +21,6 @@ module Web.Restful.Response.Sitemap
 
 import Web.Restful.Handler
 import Web.Restful.Response
-import Web.Restful.Utils
 import Web.Encodings
 import qualified Hack
 import Web.Restful.Request

Web/Restful/Utils.hs

@@ -15,17 +15,12 @@
 module Web.Restful.Utils
     ( parseHttpAccept
     , tryLookup
-    , formatW3
     , testSuite
     ) where
 
 import Data.List.Split (splitOneOf)
 import Data.Maybe (fromMaybe)
 
-import Data.Time.Clock
-import System.Locale
-import Data.Time.Format
-
 import Test.Framework (testGroup, Test)
 import Test.Framework.Providers.HUnit
 import Test.HUnit hiding (Test)
@@ -43,10 +38,6 @@ specialHttpAccept _ = False
 tryLookup :: Eq k => v -> k -> [(k, v)] -> v
 tryLookup def key = fromMaybe def . lookup key
 
--- | Format a 'UTCTime' in W3 format; useful for setting cookies.
-formatW3 :: UTCTime -> String
-formatW3 = formatTime defaultTimeLocale "%FT%X-00:00"
-
 ----- Testing
 testSuite :: Test
 testSuite = testGroup "Web.Restful.Response"

restful.cabal

@@ -29,8 +29,8 @@ library
                      bytestring-class,
                      web-encodings >= 0.0.1,
                      mtl >= 1.1.0.2,
-                     data-object,
+                     data-object >= 0.0.2,
-                     yaml >= 0.0.1,
+                     yaml >= 0.0.4,
                      test-framework,
                      test-framework-quickcheck,
                      test-framework-hunit,