christian/skat
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add current bid to json instance

Browse Source
This commit is contained in:
christian
2020-03-28 23:22:55 +01:00
parent 030b3defd0
commit 696c76887e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Skat/AI/Online.hs
+1 -1
View File
@@ -158,7 +158,7 @@ instance ToJSON Query where
object ["query" .= ("start_game" :: String), "trumps" .= show trumps, object ["query" .= ("start_game" :: String), "trumps" .= show trumps,
"hand" .= toInt handNo, "single" .= toInt sglPlayer ] "hand" .= toInt handNo, "single" .= toInt sglPlayer ]
toJSON (BidQuery hand bid) = toJSON (BidQuery hand bid) =
object ["query" .= ("bid" :: String), "whom" .= show hand ] object ["query" .= ("bid" :: String), "whom" .= show hand, "current" .= bid]
toJSON (BidResponseQuery hand bid) = toJSON (BidResponseQuery hand bid) =
object ["query" .= ("bid_response" :: String), "from" .= show hand ] object ["query" .= ("bid_response" :: String), "from" .= show hand ]
toJSON (AskHandQuery) = toJSON (AskHandQuery) =