summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-19 18:30:08 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-19 18:30:08 -0400
commit1ae3015c24b62ee712fb647fe218c04d4f579075 (patch)
tree5da85448655c93fcdec41eef45c0e5575891be6e
parent9645b2afc0bf33102edd043eac70e2081faecf0c (diff)
fix build with old feed
-rw-r--r--Command/ImportFeed.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs
index e78588518..1fdba46a1 100644
--- a/Command/ImportFeed.hs
+++ b/Command/ImportFeed.hs
@@ -227,9 +227,13 @@ feedFile tmpl i extension = Utility.Format.format tmpl $
#endif
extractMetaData :: ToDownload -> MetaData
+#if MIN_VERSION_feed(0,3,9)
extractMetaData i = case getItemPublishDate (item i) :: Maybe (Maybe UTCTime) of
Just (Just d) -> unionMetaData meta (dateMetaData d meta)
_ -> meta
+#else
+extractMetaData i = meta
+#endif
where
tometa (k, v) = (mkMetaFieldUnchecked k, S.singleton (toMetaValue v))
meta = MetaData $ M.fromList $ map tometa $ extractFields i