lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-28 11:16:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Test for base 4.4.0 instead of 4.5.0 for argument/filename encoding.

Browse Source
This commit is contained in:
John MacFarlane
2012-06-25 14:27:22 -07:00
parent cf4db74400
commit 4cf3aaecde
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/UTF8.hs
+2 -2
View File
@@ -39,7 +39,7 @@ module Text.Pandoc.UTF8 ( readFile
where
#if MIN_VERSION_base(4,5,0)
#if MIN_VERSION_base(4,4,0)
#else
import Codec.Binary.UTF8.String (encodeString)
#endif
@@ -120,7 +120,7 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
#endif
encodePath :: FilePath -> FilePath
#if MIN_VERSION_base(4,5,0)
#if MIN_VERSION_base(4,4,0)
encodePath = id
#else
encodePath = encodeString
src/pandoc.hs
+2 -2
View File
@@ -58,13 +58,13 @@ import Network.URI (parseURI, isURI, URI(..))
import qualified Data.ByteString.Lazy as B
import Data.ByteString.Lazy.UTF8 (toString )
import Text.CSL.Reference (Reference(..))
#if MIN_VERSION_base(4,5,0)
#if MIN_VERSION_base(4,4,0)
#else
import Codec.Binary.UTF8.String (decodeString, encodeString)
#endif
encodePath, decodeArg :: FilePath -> FilePath
#if MIN_VERSION_base(4,5,0)
#if MIN_VERSION_base(4,4,0)
encodePath = id
decodeArg = id
#else