git.iko.soy/streamly
on master help sign in
Fix formatting.
dd30e2fPranay Sashank
test/Streamly/Test/Prelude/Common.hs+11−11
compare with master
unifiedsplit
@@ -293,9 +293,9 @@ constructWithCons cons op len =
293 withMaxSuccess maxTestCount $
293 withMaxSuccess maxTestCount $
294 monadicIO $ do
294 monadicIO $ do
295 strm <-
295 strm <-
296− run $
296+ run
297− S.toList . op . S.take (fromIntegral len) $
297+ $ S.toList . op . S.take (fromIntegral len)
298− foldr cons S.nil (repeat 0)
298+ $ foldr cons S.nil (repeat 0)
299 let list = replicate (fromIntegral len) 0
299 let list = replicate (fromIntegral len) 0
300 listEquals (==) strm list
300 listEquals (==) strm list
301
301
@@ -387,8 +387,8 @@ constructWithUnfoldr listT op len =
387 where
387 where
388 unfoldStep seed =
388 unfoldStep seed =
389 if seed > fromIntegral len
389 if seed > fromIntegral len
390− then Nothing
390+ then Nothing
391− else Just (seed, seed + 1)
391+ else Just (seed, seed + 1)
392
392
393constructWithYield ::
393constructWithYield ::
394 (IsStream t
394 (IsStream t
@@ -404,9 +404,9 @@ constructWithYield listT op len =
404 withMaxSuccess maxTestCount $
404 withMaxSuccess maxTestCount $
405 monadicIO $ do
405 monadicIO $ do
406 strm <-
406 strm <-
407− run $
407+ run
408− S.toList . op . S.take (fromIntegral len) $
408+ $ S.toList . op . S.take (fromIntegral len)
409− foldMap S.yield (repeat 0)
409+ $ foldMap S.yield (repeat 0)
410 let list = replicate (fromIntegral len) 0
410 let list = replicate (fromIntegral len) 0
411 listEquals (==) (listT strm) list
411 listEquals (==) (listT strm) list
412
412
@@ -424,9 +424,9 @@ constructWithYieldM listT op len =
424 withMaxSuccess maxTestCount $
424 withMaxSuccess maxTestCount $
425 monadicIO $ do
425 monadicIO $ do
426 strm <-
426 strm <-
427− run $
427+ run
428− S.toList . op . S.take (fromIntegral len) $
428+ $ S.toList . op . S.take (fromIntegral len)
429− foldMap S.yieldM (repeat (return 0))
429+ $ foldMap S.yieldM (repeat (return 0))
430 let list = replicate (fromIntegral len) 0
430 let list = replicate (fromIntegral len) 0
431 listEquals (==) (listT strm) list
431 listEquals (==) (listT strm) list
432
432