slyfox 14/07/20 07:35:01 Added: git-annex-5.20140717-old-feed.patch Log: Fix build failure against older feed from upstream (bug #517350 by Fabian Köster). (Portage version: 2.2.10_p39/cvs/Linux x86_64, signed Manifest commit with key 611FF3AA)
Revision Changes Path 1.1 dev-vcs/git-annex/files/git-annex-5.20140717-old-feed.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-vcs/git-annex/files/git-annex-5.20140717-old-feed.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-vcs/git-annex/files/git-annex-5.20140717-old-feed.patch?rev=1.1&content-type=text/plain Index: git-annex-5.20140717-old-feed.patch =================================================================== commit d15bfc9061d370b22ba4de8146fab92d3fa3ff02 Author: Joey Hess <j...@kitenet.net> Date: Sat Jul 19 18:30:08 2014 -0400 fix build with old feed diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index e785885..1fdba46 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
