fix whitespace
Thanks to a compile warning from new ghc
This commit is contained in:
parent
11db986781
commit
aa5e333cb7
1 changed files with 1 additions and 1 deletions
|
@ -531,7 +531,7 @@ minimalMetaData :: ToDownload -> MetaData
|
|||
minimalMetaData i = case getItemId (item i) of
|
||||
(Nothing) -> emptyMetaData
|
||||
(Just (_, itemid)) -> MetaData $ M.singleton itemIdField
|
||||
(S.singleton $ toMetaValue $fromFeedText itemid)
|
||||
(S.singleton $ toMetaValue $ fromFeedText itemid)
|
||||
|
||||
{- Extract fields from the feed and item, that are both used as metadata,
|
||||
- and to generate the filename. -}
|
||||
|
|
Loading…
Reference in a new issue