diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-06-25 14:27:22 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-06-25 14:27:22 -0700 |
| commit | 4cf3aaecde9705069a46c23dcd19b32e60f9f3f4 (patch) | |
| tree | cff2c4beee6d002312d6cac41bb6f412aae9e590 /src | |
| parent | cf4db74400a17a10e572c3cc9f486085871c9c11 (diff) | |
Test for base 4.4.0 instead of 4.5.0 for argument/filename encoding.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/UTF8.hs | 4 | ||||
| -rw-r--r-- | src/pandoc.hs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/UTF8.hs b/src/Text/Pandoc/UTF8.hs index 929bc3f89..e2959eae7 100644 --- a/src/Text/Pandoc/UTF8.hs +++ b/src/Text/Pandoc/UTF8.hs @@ -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 diff --git a/src/pandoc.hs b/src/pandoc.hs index 7e9646c94..0eb64c9ba 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -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 |