Commit 47844197 authored by bos's avatar bos
Browse files

Fix the easier of the QuickCheck 2.7 breakages :-(

parent 5f913b63
......@@ -94,9 +94,7 @@ tl_utf32LE = forAll genUnicode $ (EL.decodeUtf32LE . EL.encodeUtf32LE) `eq` id
t_utf32BE = forAll genUnicode $ (E.decodeUtf32BE . E.encodeUtf32BE) `eq` id
tl_utf32BE = forAll genUnicode $ (EL.decodeUtf32BE . EL.encodeUtf32BE) `eq` id
t_utf8_incr = do
Positive n <- arbitrary
forAll genUnicode $ recode n `eq` id
t_utf8_incr = forAll genUnicode $ \s (Positive n) -> (recode n `eq` id) s
where recode n = T.concat . map fst . feedChunksOf n E.streamDecodeUtf8 .
E.encodeUtf8
......
......@@ -47,7 +47,7 @@ import Data.Text.Foreign (I16)
import Data.Word (Word8, Word16)
import Debug.Trace (trace)
import System.Random (Random (..), RandomGen)
import Test.QuickCheck hiding ((.&.))
import Test.QuickCheck hiding (Small (..), (.&.))
import Test.QuickCheck.Monadic (assert, monadicIO, run)
import Tests.Utils
import qualified Data.ByteString as B
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment