git.iko.soy/typeable/pandoc
on master help sign in
Convert command-line arguments to UTF8.
f20c4aeJohn MacFarlane
src/pandoc.hs+2−1
compare with master
unifiedsplit
@@ -61,6 +61,7 @@ import Control.Monad (when, unless, liftM)
61import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
61import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
62import Network.URI (parseURI, isURI)
62import Network.URI (parseURI, isURI)
63import Data.ByteString.Lazy.UTF8 (toString)
63import Data.ByteString.Lazy.UTF8 (toString)
64+import Codec.Binary.UTF8.String (decodeString)
64
65
65copyrightMessage :: String
66copyrightMessage :: String
66copyrightMessage = "\nCopyright (C) 2006-2010 John MacFarlane\n" ++
67copyrightMessage = "\nCopyright (C) 2006-2010 John MacFarlane\n" ++
@@ -592,7 +593,7 @@ defaultWriterName x =
592main :: IO ()
593main :: IO ()
593main = do
594main = do
594
595
595− rawArgs <- getArgs
596+ rawArgs <- liftM (map decodeString) getArgs
596 prg <- getProgName
597 prg <- getProgName
597 let compatMode = (prg == "hsmarkdown")
598 let compatMode = (prg == "hsmarkdown")
598
599