mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

really add non-date metadata too

Browse source
This commit is contained in:
Joey Hess 2014-07-03 14:35:20 -04:00
parent 4565b5263d
commit fc80956092
Failed to extract signature
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/ImportFeed.hs
View file

@ -228,7 +228,7 @@ feedFile tmpl i extension = Utility.Format.format tmpl $
extractMetaData :: ToDownload -> MetaData
extractMetaData i = case getItemPublishDate (item i) :: Maybe (Maybe UTCTime) of
Just (Just d) -> addDateMetaData d meta
Just (Just d) -> unionMetaData meta (dateMetaData d meta)
_ -> meta
where
tometa (k, v) = (mkMetaFieldUnchecked k, S.singleton (toMetaValue v))