@@ -36,13 +36,14 @@ module Text.Pandoc.UTF8 ( readFile
3636 , hPutStrLn
3737 , hGetContents
3838 , encodePath
39+ , decodeArg
3940 )
4041
4142where
4243
4344#if MIN_VERSION_base(4,4,0)
4445#else
45−import Codec.Binary.UTF8.String (encodeString)
46+import Codec.Binary.UTF8.String (encodeString, decodeString)
4647#endif
4748
4849#if MIN_VERSION_base(4,2,0)
@@ -121,8 +122,11 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
121122#endif
122123
123124encodePath :: FilePath -> FilePath
125+decodeArg :: String -> String
124126#if MIN_VERSION_base(4,4,0)
125127encodePath = id
128+decodeArg = id
126129#else
127130encodePath = encodeString
131+decodeArg = decodeString
128132#endif