add support for approx dates

make-pages/RSS.hs

@@ -1,5 +1,6 @@
 module RSS (make, make') where
 
+import Date
 import Info
 import BuilderQQ
 import Records ()
@@ -9,7 +10,6 @@ import Data.Maybe (isJust)
 import Data.Ord (Down (..))
 import qualified Data.Text as Strict
 import qualified Data.Text.Lazy as Lazy
-import qualified Data.Time as Time
 import System.FilePath (takeDirectory)
 
 
@@ -69,11 +69,4 @@ makeItem root prefix path (Info {title, desc, date, artist}) = [b|@4
       </description>
     |]
     else ""
-  date' = formatDate date
-
-formatDate :: Day -> Builder
-formatDate d =
-  fromString $ Time.formatTime Time.defaultTimeLocale format $
-  Time.UTCTime d 15669
- where
-  format = "%a, %d %b %_Y %T GMT"
+  date' = formatRSS date