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

Use UTF8 conversion on the extra files loaded in Main.hs

Browse source 
(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
This commit is contained in:
fiddlosopher 2007-08-23 02:16:10 +00:00
parent 4a0e02dab7
commit e29e5c5944
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Main.hs
View file

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