git.iko.soy/text
on master help sign in
Disallow a buffer size of zero
04e8ac8Bryan O'Sullivan
tests/Properties.hs+1−1
compare with master
unifiedsplit
@@ -646,7 +646,7 @@ instance Arbitrary BufferMode where
646 arbitrary = oneof [ return NoBuffering,
646 arbitrary = oneof [ return NoBuffering,
647 return LineBuffering,
647 return LineBuffering,
648 return (BlockBuffering Nothing),
648 return (BlockBuffering Nothing),
649− (BlockBuffering . Just . fromIntegral) `fmap` arb16 ]
649+ (BlockBuffering . Just . (+1) . fromIntegral) `fmap` arb16 ]
650 where arb16 = arbitrary :: Gen Word16
650 where arb16 = arbitrary :: Gen Word16
651
651
652-- This test harness is complex! What property are we checking?
652-- This test harness is complex! What property are we checking?