From 4cf3aaecde9705069a46c23dcd19b32e60f9f3f4 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 25 Jun 2012 14:27:22 -0700 Subject: Test for base 4.4.0 instead of 4.5.0 for argument/filename encoding. --- src/Text/Pandoc/UTF8.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') 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 -- cgit v1.2.3