From 9eb443638aca8ebd6d76dea87503676717175c24 Mon Sep 17 00:00:00 2001
From: flavis <christian@flavigny.de>
Date: Sun, 29 Mar 2020 00:25:05 +0100
Subject: [PATCH] add askgame query json instance

---
 src/Skat/AI/Online.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Skat/AI/Online.hs b/src/Skat/AI/Online.hs
index 85400d8..f7e8948 100644
--- a/src/Skat/AI/Online.hs
+++ b/src/Skat/AI/Online.hs
@@ -167,6 +167,8 @@ instance ToJSON Query where
         object ["query" .= ("skat" :: String), "cards" .= cards, "bid" .= bid ]
     toJSON (CardsQuery cards) =
         object ["query" .= ("cards" :: String), "cards" .= cards ]
+    toJSON (AskGameQuery bid) =
+        object ["query" .= ("ask_game" :: String), "bid" .= bid]
 
 instance FromJSON ChosenResponse where
     parseJSON = withObject "ChosenResponse" $ \v -> ChosenResponse