From fb1f76ddee89114a0cd1be2b2ec0c3abbad80dca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Agust=C3=ADn=20Mart=C3=ADn=20Barbero?=
<agusmbaterra@gmail.com>
Date: Fri, 18 Jan 2019 01:09:25 +0100
Subject: [PATCH] odt writer: fix typo in custom properties (#5231)
fixes #2839
---
src/Text/Pandoc/Writers/ODT.hs | 4 ++--
1 file 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