@@ -1,4 +1,4 @@
1−{-# LANGUAGE ViewPatterns, DeriveDataTypeable, GeneralizedNewtypeDeriving #-}
1+{-# LANGUAGE CPP, ViewPatterns, DeriveDataTypeable, GeneralizedNewtypeDeriving #-}
3------------------------------------------------------------------------------
3------------------------------------------------------------------------------
@@ -23,6 +23,9 @@ import qualified Data.Attoparsec.ByteString.Char8 as P (isSpace_w8)
23import qualified Data.ByteString as BS
23import qualified Data.ByteString as BS
24import Data.ByteString.Internal (c2w, w2c)
24import Data.ByteString.Internal (c2w, w2c)
25import qualified Data.ByteString.Lazy as BL
25import qualified Data.ByteString.Lazy as BL
26+#if !MIN_VERSION_bytestring(0,10,0)
27+import qualified Data.ByteString.Lazy.Internal as BL (foldrChunks)
26import Data.Map(Map)
29import Data.Map(Map)
27import qualified Data.Map as Map
30import qualified Data.Map as Map
28import Data.Text(Text)
31import Data.Text(Text)