diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-11-01 02:48:20 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-11-01 02:48:20 +0000 |
| commit | 683b8e10b5e2267d99c88909ab7b20662d414b09 (patch) | |
| tree | 73e0a49a15fb65a3f53e349ca82e690b9292373d /src/Text/Pandoc | |
| parent | 313d2e40b8b6d4457a70dc22e14da1e48e0bd6b1 (diff) | |
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
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Texinfo.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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" $$ |