Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/UTF8.hs
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

4
src/pandoc.hs
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