aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAgustín Martín Barbero <agusmbaterra@gmail.com>2019-01-18 01:09:25 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2019-01-17 16:09:25 -0800
commitfb1f76ddee89114a0cd1be2b2ec0c3abbad80dca (patch)
treed6493a56aa7a0656871b33c9182e5302f592fac8 /src/Text/Pandoc
parentbbf37dee8ed94a56bafeb7969f8117c8cdb2d64c (diff)
downloadpandoc-fb1f76ddee89114a0cd1be2b2ec0c3abbad80dca.tar.gz
odt writer: fix typo in custom properties (#5231)
fixes #2839
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/ODT.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs
index f8096d27d..a03575134 100644
--- a/src/Text/Pandoc/Writers/ODT.hs
+++ b/src/Text/Pandoc/Writers/ODT.hs
@@ -130,8 +130,8 @@ pandocToODT opts doc@(Pandoc meta _) = do
let escapedText = text . escapeStringForXML
let userDefinedMeta =
map (\k -> inTags False "meta:user-defined"
- [ ("meta_name", escapeStringForXML k)
- ,("meta-value-type", "string")
+ [ ("meta:name", escapeStringForXML k)
+ ,("meta:value-type", "string")
] (escapedText $ lookupMetaString k meta)) userDefinedMetaFields
let metaTag metafield = inTagsSimple metafield . escapedText
let metaEntry = toEntry "meta.xml" epochtime