Commits

Bryan O'Sullivan committed 4f41038

Disallow a buffer size of zero

  • Participants
  • Parent commits 93c6382

Comments (0)

Files changed (1)

File tests/Properties.hs

     arbitrary = oneof [ return NoBuffering,
                         return LineBuffering,
                         return (BlockBuffering Nothing),
-                        (BlockBuffering . Just . fromIntegral) `fmap` arb16 ]
+                        (BlockBuffering . Just . (+1) . fromIntegral) `fmap` arb16 ]
         where arb16 = arbitrary :: Gen Word16
 
 -- This test harness is complex!  What property are we checking?