lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-21 15:05:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Convert command-line arguments to UTF8.

Browse Source 
Resolves Issue #234.
This commit is contained in:
John MacFarlane
2010-05-04 23:36:03 -07:00
parent d253955a7e
commit f20c4ae928
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/pandoc.hs
+2 -1
View File
@@ -61,6 +61,7 @@ import Control.Monad (when, unless, liftM)
import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
import Network.URI (parseURI, isURI)
import Data.ByteString.Lazy.UTF8 (toString)
import Codec.Binary.UTF8.String (decodeString)
copyrightMessage :: String
copyrightMessage = "\nCopyright (C) 2006-2010 John MacFarlane\n" ++
@@ -592,7 +593,7 @@ defaultWriterName x =
main :: IO ()
main = do
rawArgs <- getArgs
rawArgs <- liftM (map decodeString) getArgs
prg <- getProgName
let compatMode = (prg == "hsmarkdown")