allow building with old feed lib, w/o pubdate

This commit is contained in:
Joey Hess 2014-04-21 00:37:14 -04:00
parent 238a935f9c
commit 291847bf88
Failed to extract signature
2 changed files with 5 additions and 1 deletions

View file

@ -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. -}

View file

@ -211,7 +211,7 @@ Executable git-annex
CPP-Options: -DWITH_DNS
if flag(Feed)
Build-Depends: feed (>= 0.3.9.2)
Build-Depends: feed
CPP-Options: -DWITH_FEED
if flag(Quvi)