diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-06 23:31:01 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-06 23:31:16 -0700 |
| commit | 7d18770b008c12e13c324223304c6703e06f3a4a (patch) | |
| tree | c66fa5e3a841e36eb4b855e8c81a2fd161d9b733 /src/Text/Pandoc/Readers | |
| parent | 802a78bbf24a95817621ab2bfe665c235231b367 (diff) | |
| download | pandoc-7d18770b008c12e13c324223304c6703e06f3a4a.tar.gz | |
Added support for MetaBool.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 076706b4e..a880c09de 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -278,7 +278,7 @@ toMetaValue opts x = yamlToMeta :: ReaderOptions -> Yaml.Value -> MetaValue yamlToMeta opts (Yaml.String t) = toMetaValue opts t yamlToMeta _ (Yaml.Number n) = MetaString $ show n -yamlToMeta _ (Yaml.Bool b) = MetaString $ map toLower $ show b +yamlToMeta _ (Yaml.Bool b) = MetaBool b yamlToMeta opts (Yaml.Array xs) = B.toMetaValue $ map (yamlToMeta opts) $ V.toList xs yamlToMeta opts (Yaml.Object o) = MetaMap $ H.foldrWithKey (\k v m -> |