Added comment in source.
This commit is contained in:
parent
5812ac0390
commit
a20302d9cf
1 changed files with 3 additions and 0 deletions
|
@ -305,6 +305,9 @@ toMetaValue x =
|
||||||
p' <- p
|
p' <- p
|
||||||
return $ MetaInlines (B.toList p')
|
return $ MetaInlines (B.toList p')
|
||||||
endsWithNewline = T.pack "\n" `T.isSuffixOf` x
|
endsWithNewline = T.pack "\n" `T.isSuffixOf` x
|
||||||
|
-- Note: a standard quoted or unquoted YAML value will
|
||||||
|
-- not end in a newline, but a "block" set off with
|
||||||
|
-- `|` or `>` will.
|
||||||
|
|
||||||
yamlToMeta :: PandocMonad m
|
yamlToMeta :: PandocMonad m
|
||||||
=> Yaml.Value -> MarkdownParser m (F MetaValue)
|
=> Yaml.Value -> MarkdownParser m (F MetaValue)
|
||||||
|
|
Loading…
Reference in a new issue