diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-05-21 14:08:08 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-05-21 14:08:08 -0700 |
| commit | 4b5d2aa48505c255b8e3bada1c1a76ab3b638ce8 (patch) | |
| tree | 98c574ab1e7ea68078f6aa2fdf58f71320606aeb | |
| parent | 7902ac5256a3c25bb6318113da6b231588ef2d5a (diff) | |
| download | pandoc-4b5d2aa48505c255b8e3bada1c1a76ab3b638ce8.tar.gz | |
FB2 writer: properly handle cover-image containing spaces.
Closes #6391.
| -rw-r--r-- | src/Text/Pandoc/Writers/FB2.hs | 4 |
1 files 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" |