|
|
@@ -29,7 +29,7 @@ newtype NoBidder = NoBidder Hand |
|
|
-- | no bidding from that player |
|
|
-- | no bidding from that player |
|
|
instance Bidder NoBidder where |
|
|
instance Bidder NoBidder where |
|
|
hand (NoBidder h) = h |
|
|
hand (NoBidder h) = h |
|
|
askBid _ _ bid = return $ Just 120 |
|
|
|
|
|
|
|
|
askBid _ _ bid = return Nothing |
|
|
askResponse _ _ bid = if bid < 24 then return True else return False |
|
|
askResponse _ _ bid = if bid < 24 then return True else return False |
|
|
askGame _ _ = return $ Grand Hand |
|
|
askGame _ _ = return $ Grand Hand |
|
|
askHand _ _ = return True |
|
|
askHand _ _ = return True |
|
|
|