diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-03 14:35:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-03 14:35:20 -0400 |
| commit | 4e339e8a4183254b20d621696d69c6ccf08dab5b (patch) | |
| tree | c01e8a4e22f4014fa61edf416d7ff3d38d75387a /Command/ImportFeed.hs | |
| parent | 58d8c9a36f7971550c1d9d71ff9e30e1325920bc (diff) | |
really add non-date metadata too
Diffstat (limited to 'Command/ImportFeed.hs')
| -rw-r--r-- | Command/ImportFeed.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index 71cd0dc82..4bd02e062 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -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)) |