@@ -293,9 +293,9 @@ constructWithCons cons op len =
293293 withMaxSuccess maxTestCount $
294294 monadicIO $ do
295295 strm <-
296− run $
297− S.toList . op . S.take (fromIntegral len) $
298− foldr cons S.nil (repeat 0)
296+ run
297+ $ S.toList . op . S.take (fromIntegral len)
298+ $ foldr cons S.nil (repeat 0)
299299 let list = replicate (fromIntegral len) 0
300300 listEquals (==) strm list
301301
@@ -387,8 +387,8 @@ constructWithUnfoldr listT op len =
387387 where
388388 unfoldStep seed =
389389 if seed > fromIntegral len
390− then Nothing
391− else Just (seed, seed + 1)
390+ then Nothing
391+ else Just (seed, seed + 1)
392392
393393constructWithYield ::
394394 (IsStream t
@@ -404,9 +404,9 @@ constructWithYield listT op len =
404404 withMaxSuccess maxTestCount $
405405 monadicIO $ do
406406 strm <-
407− run $
408− S.toList . op . S.take (fromIntegral len) $
409− foldMap S.yield (repeat 0)
407+ run
408+ $ S.toList . op . S.take (fromIntegral len)
409+ $ foldMap S.yield (repeat 0)
410410 let list = replicate (fromIntegral len) 0
411411 listEquals (==) (listT strm) list
412412
@@ -424,9 +424,9 @@ constructWithYieldM listT op len =
424424 withMaxSuccess maxTestCount $
425425 monadicIO $ do
426426 strm <-
427− run $
428− S.toList . op . S.take (fromIntegral len) $
429− foldMap S.yieldM (repeat (return 0))
427+ run
428+ $ S.toList . op . S.take (fromIntegral len)
429+ $ foldMap S.yieldM (repeat (return 0))
430430 let list = replicate (fromIntegral len) 0
431431 listEquals (==) (listT strm) list
432432