diff --git a/src/Skat/AI/Stupid.hs b/src/Skat/AI/Stupid.hs index 9d225e2..37cfbbe 100644 --- a/src/Skat/AI/Stupid.hs +++ b/src/Skat/AI/Stupid.hs @@ -29,7 +29,7 @@ newtype NoBidder = NoBidder Hand -- | no bidding from that player instance Bidder NoBidder where hand (NoBidder h) = h - askBid _ _ bid = return $ Just 120 + askBid _ _ bid = return Nothing askResponse _ _ bid = if bid < 24 then return True else return False askGame _ _ = return $ Grand Hand askHand _ _ = return True