Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Remove redundant bracket.

Browse source
This commit is contained in:
John MacFarlane 2020-11-10 10:34:46 -08:00
parent 7d01887dda
commit 7d298d13d9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Metadata.hs
View file

@ -112,7 +112,7 @@ normalizeMetaValue pMetaValue x =
-- Note: a standard quoted or unquoted YAML value will -- Note: a standard quoted or unquoted YAML value will
-- not end in a newline, but a "block" set off with -- not end in a newline, but a "block" set off with
-- `|` or `>` will. -- `|` or `>` will.
if "\n" `T.isSuffixOf` (T.dropWhileEnd isSpaceChar x) -- see #6823 if "\n" `T.isSuffixOf` T.dropWhileEnd isSpaceChar x -- see #6823
then parseFromString' pMetaValue (x <> "\n") then parseFromString' pMetaValue (x <> "\n")
else parseFromString' asInlines x else parseFromString' asInlines x
where asInlines = fmap b2i <$> pMetaValue where asInlines = fmap b2i <$> pMetaValue