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.
commit4cf3aaecde9705069a46c23dcd19b32e60f9f3f4 authorJohn MacFarlane <jgm@berkeley.edu> dateMon 25 Jun 2012, 14:27 (14 years ago) parentcf4db74
2 files changed+4−4
compare with master
unifiedsplit
src/Text/Pandoc/UTF8.hs+2−2 src/pandoc.hs+2−2
src/Text/Pandoc/UTF8.hs+2−2
@@ -39,7 +39,7 @@ module Text.Pandoc.UTF8 ( readFile
3939
4040where
4141
42−#if MIN_VERSION_base(4,5,0)
42+#if MIN_VERSION_base(4,4,0)
4343#else
4444import Codec.Binary.UTF8.String (encodeString)
4545#endif
@@ -120,7 +120,7 @@ hPutStrLn h s = hPutStr h (s ++ "\n")
120120#endif
121121
122122encodePath :: FilePath -> FilePath
123−#if MIN_VERSION_base(4,5,0)
123+#if MIN_VERSION_base(4,4,0)
124124encodePath = id
125125#else
126126encodePath = encodeString
src/pandoc.hs+2−2
@@ -58,13 +58,13 @@ import Network.URI (parseURI, isURI, URI(..))
5858import qualified Data.ByteString.Lazy as B
5959import Data.ByteString.Lazy.UTF8 (toString )
6060import Text.CSL.Reference (Reference(..))
61−#if MIN_VERSION_base(4,5,0)
61+#if MIN_VERSION_base(4,4,0)
6262#else
6363import Codec.Binary.UTF8.String (decodeString, encodeString)
6464#endif
6565
6666encodePath, decodeArg :: FilePath -> FilePath
67−#if MIN_VERSION_base(4,5,0)
67+#if MIN_VERSION_base(4,4,0)
6868encodePath = id
6969decodeArg = id
7070#else