aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/pandoc.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs
index 0560efc0a..656099ce9 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -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")