"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Text/Pandoc/Readers/Metadata.hs" between
pandoc-2.11.1.1.tar.gz and pandoc-2.11.2.tar.gz

About: Pandoc converts files from one markup format into another.

Metadata.hs  (pandoc-2.11.1.1):Metadata.hs  (pandoc-2.11.2)
skipping to change at line 114 skipping to change at line 114
nodeToKey _ = Nothing nodeToKey _ = Nothing
normalizeMetaValue :: PandocMonad m normalizeMetaValue :: PandocMonad m
=> ParserT Text ParserState m (F MetaValue) => ParserT Text ParserState m (F MetaValue)
-> Text -> Text
-> ParserT Text ParserState m (F MetaValue) -> ParserT Text ParserState m (F MetaValue)
normalizeMetaValue pMetaValue x = 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` x 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
b2i (MetaBlocks [Plain ils]) = MetaInlines ils b2i (MetaBlocks [Plain ils]) = MetaInlines ils
b2i (MetaBlocks [Para ils]) = MetaInlines ils b2i (MetaBlocks [Para ils]) = MetaInlines ils
b2i bs = bs b2i bs = bs
isSpaceChar ' ' = True
isSpaceChar '\t' = True
isSpaceChar _ = False
checkBoolean :: Text -> Maybe Bool checkBoolean :: Text -> Maybe Bool
checkBoolean t checkBoolean t
| t == T.pack "true" || t == T.pack "True" || t == T.pack "TRUE" = Just True | t == T.pack "true" || t == T.pack "True" || t == T.pack "TRUE" = Just True
| t == T.pack "false" || t == T.pack "False" || t == T.pack "FALSE" = Just Fal se | t == T.pack "false" || t == T.pack "False" || t == T.pack "FALSE" = Just Fal se
| otherwise = Nothing | otherwise = Nothing
yamlToMetaValue :: PandocMonad m yamlToMetaValue :: PandocMonad m
=> ParserT Text ParserState m (F MetaValue) => ParserT Text ParserState m (F MetaValue)
-> YAML.Node YE.Pos -> YAML.Node YE.Pos
 End of changes. 2 change blocks. 
1 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)