From e29e5c5944723074f11b1b8a54f7123971a82f6b Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 23 Aug 2007 02:16:10 +0000 Subject: 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 --- src/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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)" -- cgit v1.2.3