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
|
||||
return $ MetaInlines (B.toList p')
|
||||
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
|
||||
=> Yaml.Value -> MarkdownParser m (F MetaValue)
|
||||
|
|
Loading…
Reference in a new issue