From 696c76887e5cb9d75fee8066573b7cd8cbf75181 Mon Sep 17 00:00:00 2001 From: flavis Date: Sat, 28 Mar 2020 23:22:55 +0100 Subject: [PATCH] add current bid to json instance --- src/Skat/AI/Online.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Skat/AI/Online.hs b/src/Skat/AI/Online.hs index 3408c4b..85400d8 100644 --- a/src/Skat/AI/Online.hs +++ b/src/Skat/AI/Online.hs @@ -158,7 +158,7 @@ instance ToJSON Query where object ["query" .= ("start_game" :: String), "trumps" .= show trumps, "hand" .= toInt handNo, "single" .= toInt sglPlayer ] toJSON (BidQuery hand bid) = - object ["query" .= ("bid" :: String), "whom" .= show hand ] + object ["query" .= ("bid" :: String), "whom" .= show hand, "current" .= bid] toJSON (BidResponseQuery hand bid) = object ["query" .= ("bid_response" :: String), "from" .= show hand ] toJSON (AskHandQuery) =