Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

odt writer: fix typo in custom properties (#5231)

Browse source 
fixes #2839
This commit is contained in:
Agustín Martín Barbero 2019-01-18 01:09:25 +01:00 • committed by John MacFarlane
parent bbf37dee8e
commit fb1f76ddee
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/ODT.hs
View file

@ -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