@@ -756,7 +756,7 @@ defaultWriterName x =
756main :: IO ()
756main :: IO ()
759− rawArgs <- liftM (map decodeArg) getArgs
759+ rawArgs <- liftM (map UTF8.decodeArg) getArgs
760 prg <- getProgName
760 prg <- getProgName
761 let compatMode = (prg == "hsmarkdown")
761 let compatMode = (prg == "hsmarkdown")