use _source not fields

metacpan · Sep 28, 2024 · 17f0107 · 17f0107
1 parent 10767e4
commit 17f0107
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/lib/MetaCPAN/V0Shim.pm b/lib/MetaCPAN/V0Shim.pm
@@ -418,8 +418,12 @@ sub release_data {
         ],
       },
     },
-    _source => [ 'stat' ],
-    fields => [ 'download_url', 'status', 'version' ],
+    _source => [ qw(
+      download_url
+      stat
+      status
+      version
+    ) ],
   };
 
   my $ua = $self->ua;
@@ -437,10 +441,10 @@ sub release_data {
   my $hits = $data->{hits}{hits} || die $data;
 
   map +{
-    download_url => $_->{fields}{download_url},
-    status => $_->{fields}{status},
+    download_url => $_->{_sources}{download_url},
+    status => $_->{_source}{status},
     stat => $_->{_source}{stat},
-    version => $_->{fields}{version},
+    version => $_->{_source}{version},
   }, @$hits;
 }