[Confirm] Log GraphQL errors.

mysociety · Dec 3, 2024 · df9c31a · df9c31a
1 parent c7a0236
commit df9c31a
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/perllib/Integrations/Confirm.pm b/perllib/Integrations/Confirm.pm
@@ -315,13 +315,18 @@ sub perform_request_graphql {
     my $body = {
         query => $query,
     };
+    my $encoded_body = encode_json($body);
 
-    $request->content(encode_json($body));
+    $request->content($encoded_body);
 
     my $response = $self->ua->request($request);
 
     my $content = decode_json($response->content);
 
+    if ($content->{errors}) {
+        $self->logger->warn("Got errors in response to GraphQL query $encoded_body: " . $response->content);
+    }
+
     return $content;
 }