git.iko.soy/typeable/attoparsec
on master help sign in
Fix stupid compiler warning
0cc7fb9Bryan O'Sullivan
tests/QC/Rechunked.hs+2−1
compare with master
unifiedsplit
@@ -29,7 +29,8 @@ rechunk_ split len xs = (unfoldr go . (,) xs) `fmap` rechunkSizes (len xs)
29
29
30rechunkSizes :: Int -> Gen [Int]
30rechunkSizes :: Int -> Gen [Int]
31rechunkSizes n0 = shuffle =<< loop [] (0:repeat 1) n0
31rechunkSizes n0 = shuffle =<< loop [] (0:repeat 1) n0
32+ where loop _ [] _ = error "it's 2014, where's my Stream type?"
32− where loop acc (lb:lbs) n
33+ loop acc (lb:lbs) n
33 | n <= 0 = shuffle (reverse acc)
34 | n <= 0 = shuffle (reverse acc)
34 | otherwise = do
35 | otherwise = do
35 !i <- choose (lb,n)
36 !i <- choose (lb,n)
tests/QC/Simple.hs−3
@@ -15,9 +15,6 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
15import Test.QuickCheck (Property, counterexample, forAll)
15import Test.QuickCheck (Property, counterexample, forAll)
16import qualified Data.Attoparsec.ByteString.Char8 as A
16import qualified Data.Attoparsec.ByteString.Char8 as A
17
17
18−data Expect a b = Expect a b
19− deriving (Show)
20−
21t_issue75 = expect issue75 "ab" (A.Done "" "b")
18t_issue75 = expect issue75 "ab" (A.Done "" "b")
22
19
23issue75 :: A.Parser ByteString
20issue75 :: A.Parser ByteString