Recherche:

Un truc comme ça :

module TestCribbage where

import Test.QuickCheck
import Cribbage
import Control.Monad

newtype CribbageHand = CH Hand
deriving (Show)

Petite remarque d'abord :

instance Arbitrary Suit where
arbitrary = do
suit <- oneof $ map return [Clubs, Diamond, Heart, Spade]
return suit
peut-être écrit :

instance...