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