From 4b5d2aa48505c255b8e3bada1c1a76ab3b638ce8 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 21 May 2020 14:08:08 -0700 Subject: FB2 writer: properly handle cover-image containing spaces. Closes #6391. --- src/Text/Pandoc/Writers/FB2.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs index 746e56436..441684682 100644 --- a/src/Text/Pandoc/Writers/FB2.hs +++ b/src/Text/Pandoc/Writers/FB2.hs @@ -40,7 +40,7 @@ import Text.Pandoc.Definition import Text.Pandoc.Logging import Text.Pandoc.Options (HTMLMathMethod (..), WriterOptions (..), def) import Text.Pandoc.Shared (capitalize, isURI, orderedListMarkers, - makeSections, tshow) + makeSections, tshow, stringify) import Text.Pandoc.Writers.Shared (lookupMetaString, toLegacyTable) -- | Data to be written at the end of the document: @@ -116,7 +116,7 @@ description meta' = do im <- insertImage InlineImage img return [el "coverpage" im] coverpage <- case lookupMeta "cover-image" meta' of - Just (MetaInlines [Str s]) -> coverimage s + Just (MetaInlines ils) -> coverimage (stringify ils) Just (MetaString s) -> coverimage s _ -> return [] return $ el "description" -- cgit v1.2.3