git.iko.soy/text
on master help sign in
Disallow a buffer size of zero

--HG-- extra : convert_revision : a4885fa205fb58ef245a5a1f2ee36a2af071c2fe

commit04e8ac85a97622a548e8ed04d065fad425b7ae21 authorBryan O'Sullivan <bos@serpentine.com> dateSun 29 Aug 2010, 06:09 (16 years ago) parent7743f24
1 file changed+1−1
compare with master
unifiedsplit
tests/Properties.hs+1−1
tests/Properties.hs+1−1
@@ -646,7 +646,7 @@ instance Arbitrary BufferMode where
646646 arbitrary = oneof [ return NoBuffering,
647647 return LineBuffering,
648648 return (BlockBuffering Nothing),
649− (BlockBuffering . Just . fromIntegral) `fmap` arb16 ]
649+ (BlockBuffering . Just . (+1) . fromIntegral) `fmap` arb16 ]
650650 where arb16 = arbitrary :: Gen Word16
651651
652652-- This test harness is complex! What property are we checking?