add askgame query json instance

2020-03-29 00:25:05 +01:00
parent 696c76887e
commit 9eb443638a
1 changed files with 2 additions and 0 deletions
@@ -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