git.iko.soy/typeable/pandoc
on master help sign in
Test for base 4.4.0 instead of 4.5.0 for argument/filename encoding.
4cf3aaeJohn MacFarlane
src/Text/Pandoc/UTF8.hs+2−2
compare with master
unifiedsplit
@@ -39,7 +39,7 @@ module Text.Pandoc.UTF8 ( readFile
39
39
40where
40where
41
41
42−#if MIN_VERSION_base(4,5,0)
42+#if MIN_VERSION_base(4,4,0)
43#else
43#else
44import Codec.Binary.UTF8.String (encodeString)
44import Codec.Binary.UTF8.String (encodeString)
45#endif
45#endif
@@ -120,7 +120,7 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
120#endif
120#endif
121
121
122encodePath :: FilePath -> FilePath
122encodePath :: FilePath -> FilePath
123−#if MIN_VERSION_base(4,5,0)
123+#if MIN_VERSION_base(4,4,0)
124encodePath = id
124encodePath = id
125#else
125#else
126encodePath = encodeString
126encodePath = encodeString
src/pandoc.hs+2−2
@@ -58,13 +58,13 @@ import Network.URI (parseURI, isURI, URI(..))
58import qualified Data.ByteString.Lazy as B
58import qualified Data.ByteString.Lazy as B
59import Data.ByteString.Lazy.UTF8 (toString )
59import Data.ByteString.Lazy.UTF8 (toString )
60import Text.CSL.Reference (Reference(..))
60import Text.CSL.Reference (Reference(..))
61−#if MIN_VERSION_base(4,5,0)
61+#if MIN_VERSION_base(4,4,0)
62#else
62#else
63import Codec.Binary.UTF8.String (decodeString, encodeString)
63import Codec.Binary.UTF8.String (decodeString, encodeString)
64#endif
64#endif
65
65
66encodePath, decodeArg :: FilePath -> FilePath
66encodePath, decodeArg :: FilePath -> FilePath
67−#if MIN_VERSION_base(4,5,0)
67+#if MIN_VERSION_base(4,4,0)
68encodePath = id
68encodePath = id
69decodeArg = id
69decodeArg = id
70#else
70#else