aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2016-08-29 14:10:56 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2016-08-29 14:10:56 +0200
commit153970bef5068f5a82943cc7a2bec79f04d31ae9 (patch)
treed1d9bb674d844f4d59013b32712552352c5fea27 /tests
parentbed5f700ceb91365018a4de6afea8a7c331688ae (diff)
downloadpandoc-153970bef5068f5a82943cc7a2bec79f04d31ae9.tar.gz
Org reader: read markup only for special meta keys
Most meta-keys should be read as normal string values, only a few are interpreted as marked-up text.
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Org.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index 0a3f9c222..61c222919 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -478,8 +478,8 @@ tests =
, "Description" =:
"#+DESCRIPTION: Explanatory text" =?>
- let description = toList . spcSep $ [ "Explanatory", "text" ]
- meta = setMeta "description" (MetaInlines description) $ nullMeta
+ let description = "Explanatory text"
+ meta = setMeta "description" (MetaString description) $ nullMeta
in Pandoc meta mempty
, "Properties drawer" =: