fix whitespace

Thanks to a compile warning from new ghc
This commit is contained in:
Joey Hess 2023-08-01 18:36:54 -04:00
parent 11db986781
commit aa5e333cb7
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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. -}