diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-02-17 15:58:21 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-02-17 15:58:21 -0800 |
| commit | 0edc084c5064694544e32e24006d5b7e90d637a7 (patch) | |
| tree | 0d3eb7d231534253ccf0a3bdd1dfc804555b28a5 /src/Text | |
| parent | 3493d6afaa6586c46898cf8bdb0c45bb70d31f28 (diff) | |
| download | pandoc-0edc084c5064694544e32e24006d5b7e90d637a7.tar.gz | |
Revert "Allow specifying string value in metadata using `!!literal` tag."
This reverts commit 3493d6afaa6586c46898cf8bdb0c45bb70d31f28.
This might be worth considering in the future, but let's not do
it yet...the additional complexity needs a better justification.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Metadata.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index d91c4a406..23ceb40f9 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -99,12 +99,10 @@ yamlToMetaValue pBlocks (YAML.Scalar _ x) = YAML.SBool b -> return $ return $ MetaBool b YAML.SFloat d -> return $ return $ MetaString $ tshow d YAML.SInt i -> return $ return $ MetaString $ tshow i - YAML.SUnknown tag t - | (T.takeWhileEnd (/= ':') <$> YE.tagToText tag) == - Just "literal" -> return $ return $ MetaString t - | otherwise -> case checkBoolean t of - Just b -> return $ return $ MetaBool b - Nothing -> toMetaValue pBlocks t + YAML.SUnknown _ t -> + case checkBoolean t of + Just b -> return $ return $ MetaBool b + Nothing -> toMetaValue pBlocks t YAML.SNull -> return $ return $ MetaString "" yamlToMetaValue pBlocks (YAML.Sequence _ _ xs) = do |