Fix stupid compiler warning
commit0cc7fb9f6900fadaf4444284445ca511fce2a3a5
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 27 Aug 2014, 08:43 (12 years ago)
parent7ffcbf7
tests/QC/Rechunked.hs+2−1
@@ -29,7 +29,8 @@ rechunk_ split len xs = (unfoldr go . (,) xs) `fmap` rechunkSizes (len xs)
2929
3030rechunkSizes :: Int -> Gen [Int]
3131rechunkSizes n0 = shuffle =<< loop [] (0:repeat 1) n0
32− where loop acc (lb:lbs) n
32+ where loop _ [] _ = error "it's 2014, where's my Stream type?"
33+ loop acc (lb:lbs) n
3334 | n <= 0 = shuffle (reverse acc)
3435 | otherwise = do
3536 !i <- choose (lb,n)
tests/QC/Simple.hs−3
@@ -15,9 +15,6 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
1515import Test.QuickCheck (Property, counterexample, forAll)
1616import qualified Data.Attoparsec.ByteString.Char8 as A
1717
18−data Expect a b = Expect a b
19− deriving (Show)
20−
2118t_issue75 = expect issue75 "ab" (A.Done "" "b")
2219
2320issue75 :: A.Parser ByteString