git.iko.soy/typeable/pandoc
on master help sign in
UTF8: Export decodeArg.
4d65063John MacFarlane
src/Text/Pandoc/UTF8.hs+5−1
compare with master
unifiedsplit
@@ -36,13 +36,14 @@ module Text.Pandoc.UTF8 ( readFile
36 , hPutStrLn
36 , hPutStrLn
37 , hGetContents
37 , hGetContents
38 , encodePath
38 , encodePath
39+ , decodeArg
39 )
40 )
40
41
41where
42where
42
43
43#if MIN_VERSION_base(4,4,0)
44#if MIN_VERSION_base(4,4,0)
44#else
45#else
45−import Codec.Binary.UTF8.String (encodeString)
46+import Codec.Binary.UTF8.String (encodeString, decodeString)
46#endif
47#endif
47
48
48#if MIN_VERSION_base(4,2,0)
49#if MIN_VERSION_base(4,2,0)
@@ -121,8 +122,11 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
121#endif
122#endif
122
123
123encodePath :: FilePath -> FilePath
124encodePath :: FilePath -> FilePath
125+decodeArg :: String -> String
124#if MIN_VERSION_base(4,4,0)
126#if MIN_VERSION_base(4,4,0)
125encodePath = id
127encodePath = id
128+decodeArg = id
126#else
129#else
127encodePath = encodeString
130encodePath = encodeString
131+decodeArg = decodeString
128#endif
132#endif