From 683b8e10b5e2267d99c88909ab7b20662d414b09 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 1 Nov 2009 02:48:20 +0000 Subject: Set utf-8 encoding in texinfo headers. Resolves Issue #153. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1617 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/Texinfo.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs index 305a1a8d0..840d64d71 100644 --- a/src/Text/Pandoc/Writers/Texinfo.hs +++ b/src/Text/Pandoc/Writers/Texinfo.hs @@ -104,8 +104,10 @@ texinfoHeader options (Meta title authors date) = do then empty else text $ stringToTexinfo date - let baseHeader = text $ writerHeader options - let header = baseHeader $$ extras + let baseHeader = case writerHeader options of + "" -> empty + x -> text x + let header = text "@documentencoding utf-8" $$ baseHeader $$ extras return $ text "\\input texinfo" $$ header $$ text "@ifnottex" $$ -- cgit v1.2.3