really add non-date metadata too
This commit is contained in:
parent
4565b5263d
commit
fc80956092
2 changed files with 5 additions and 5 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue