event-list-0.0.6: src-2/Test/Instances.hs

module Test.Instances where

import Test.QuickCheck (Arbitrary(..))

import Control.Monad (liftM)
import Data.Char (chr)


instance Arbitrary Char where
   arbitrary = liftM (chr . (32+) . flip mod 96) arbitrary
   coarbitrary = undefined