add current bid to json instance

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) =