@@ -61,6 +61,7 @@ import Control.Monad (when, unless, liftM)
6161import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
6262import Network.URI (parseURI, isURI)
6363import Data.ByteString.Lazy.UTF8 (toString)
64+import Codec.Binary.UTF8.String (decodeString)
6465
6566copyrightMessage :: String
6667copyrightMessage = "\nCopyright (C) 2006-2010 John MacFarlane\n" ++
@@ -592,7 +593,7 @@ defaultWriterName x =
592593main :: IO ()
593594main = do
594595
595− rawArgs <- getArgs
596+ rawArgs <- liftM (map decodeString) getArgs
596597 prg <- getProgName
597598 let compatMode = (prg == "hsmarkdown")
598599