@@ -7,12 +7,12 @@ module QC.Simple (
77
88import Control.Applicative ((<|>))
99import Data.ByteString (ByteString)
10−import Data.List
11−import Data.Maybe
12−import QC.Rechunked
10+import Data.List (foldl')
11+import Data.Maybe (fromMaybe)
12+import QC.Rechunked (rechunkBS)
1313import Test.Framework (Test)
1414import Test.Framework.Providers.QuickCheck2 (testProperty)
15−import Test.QuickCheck
15+import Test.QuickCheck (Property, counterexample, forAll)
1616import qualified Data.Attoparsec.ByteString.Char8 as A
1717
1818data Expect a b = Expect a b