@@ -1,7 +1,7 @@
11-- | General quicktest properties for the text library
22--
3−{-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings,
4− ScopedTypeVariables, TypeSynonymInstances, CPP #-}
3+{-# LANGUAGE BangPatterns, CPP, FlexibleInstances, OverloadedStrings,
4+ ScopedTypeVariables, TypeSynonymInstances #-}
55{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
66{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
77module Tests.Properties
@@ -27,7 +27,6 @@ import Data.Text.Read as T
2727import Data.Text.Search (indices)
2828import Data.Word (Word, Word8, Word16, Word32, Word64)
2929import Numeric (showHex)
30−import Prelude hiding (catch, replicate)
3130import Test.Framework (Test, testGroup)
3231import Test.Framework.Providers.QuickCheck2 (testProperty)
3332import qualified Data.Bits as Bits (shiftL, shiftR)
@@ -54,6 +53,12 @@ import Tests.QuickCheckUtils
5453import Tests.Utils
5554import qualified Tests.SlowFunctions as Slow
5655
56+#if MIN_VERSION_base(4,6,0)
57+import Prelude hiding (replicate)
58+#else
59+import Prelude hiding (catch, replicate)
60+#endif
61+
5762t_pack_unpack = (T.unpack . T.pack) `eq` id
5863tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
5964t_stream_unstream = (S.unstream . S.stream) `eq` id