From 67ba0c356656b60fab8520866520ee7aefdc94fb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 21 Apr 2014 00:37:14 -0400 Subject: allow building with old feed lib, w/o pubdate --- Command/ImportFeed.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Command/ImportFeed.hs') diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index 80e59b739..29f2fb148 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -224,11 +224,15 @@ feedFile tmpl i extension = Utility.Format.format tmpl $ M.fromList fieldMaybe k Nothing = (k, "none") fieldMaybe k (Just v) = field k v +#if MIN_VERSION_feed(0,3,9) pubdate itm = case getItemPublishDate itm :: Maybe (Maybe UTCTime) of Just (Just d) -> Just $ formatTime defaultTimeLocale "%F" d -- if date cannot be parsed, use the raw string _ -> replace "/" "-" <$> getItemPublishDateString itm +#else + pubdate _ = Nothing +#endif {- Called when there is a problem with a feed. - Throws an error if the feed is broken, otherwise shows a warning. -} -- cgit v1.2.3