set stupid bidding to 0

2022-01-19 11:47:40 +01:00
parent 444e50cdb1
commit 0984a188db
1 changed files with 1 additions and 1 deletions
@@ -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