diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 11:01:09 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 11:01:09 -0700 |
| commit | 4d65063592beb2e1d2bf3ab7e8768536b6e2028c (patch) | |
| tree | ccba9a7b4fa3abc255943a80c4d18bd5bf998794 | |
| parent | 51178dda976fd358bcd091f833254542006cebcc (diff) | |
| download | pandoc-4d65063592beb2e1d2bf3ab7e8768536b6e2028c.tar.gz | |
UTF8: Export decodeArg.
| -rw-r--r-- | src/Text/Pandoc/UTF8.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/UTF8.hs b/src/Text/Pandoc/UTF8.hs index 506686972..1d0eb4aee 100644 --- a/src/Text/Pandoc/UTF8.hs +++ b/src/Text/Pandoc/UTF8.hs @@ -36,13 +36,14 @@ module Text.Pandoc.UTF8 ( readFile , hPutStrLn , hGetContents , encodePath + , decodeArg ) where #if MIN_VERSION_base(4,4,0) #else -import Codec.Binary.UTF8.String (encodeString) +import Codec.Binary.UTF8.String (encodeString, decodeString) #endif #if MIN_VERSION_base(4,2,0) @@ -121,8 +122,11 @@ hPutStrLn h s = hPutStr h (s ++ "\n") #endif encodePath :: FilePath -> FilePath +decodeArg :: String -> String #if MIN_VERSION_base(4,4,0) encodePath = id +decodeArg = id #else encodePath = encodeString +decodeArg = decodeString #endif |