diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-23 02:16:10 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-23 02:16:10 +0000 |
| commit | e29e5c5944723074f11b1b8a54f7123971a82f6b (patch) | |
| tree | dfc0ff9949c16daae0ca359d49aedf28a20940be /src | |
| parent | 4a0e02dab7a78a04ab9bd391b28299d3563eaff9 (diff) | |
| download | pandoc-e29e5c5944723074f11b1b8a54f7123971a82f6b.tar.gz | |
Use UTF8 conversion on the extra files loaded in Main.hs
(header, before, after). This fixes problems with unicode
characters in these files.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@879 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index b808074e5..dd9a560af 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -229,7 +229,7 @@ options = (ReqArg (\arg opt -> do text <- readFile arg - return opt { optIncludeInHeader = text, + return opt { optIncludeInHeader = fromUTF8 text, optStandalone = True }) "FILENAME") "" -- "File to include at end of header (implies -s)" @@ -238,7 +238,7 @@ options = (ReqArg (\arg opt -> do text <- readFile arg - return opt { optIncludeBeforeBody = text }) + return opt { optIncludeBeforeBody = fromUTF8 text }) "FILENAME") "" -- "File to include before document body" @@ -246,7 +246,7 @@ options = (ReqArg (\arg opt -> do text <- readFile arg - return opt { optIncludeAfterBody = text }) + return opt { optIncludeAfterBody = fromUTF8 text }) "FILENAME") "" -- "File to include after document body" @@ -254,7 +254,7 @@ options = (ReqArg (\arg opt -> do text <- readFile arg - return opt { optCustomHeader = text, + return opt { optCustomHeader = fromUTF8 text, optStandalone = True }) "FILENAME") "" -- "File to use for custom header (implies -s)" |