Update scripts to the new API

Corion · Apr 13, 2024 · 6a46366 · 6a46366
1 parent 8b79fdc
commit 6a46366
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/scripts/code-completion.pl b/scripts/code-completion.pl
@@ -23,12 +23,14 @@ package main;
 my @prompts = @ARGV ? @ARGV : (qq{fetch an url and print its content with Mojolicious; write concise code <PRE> sub fetch {\n <SUF> } <MID>});
 
 for my $prompt (@prompts) {
-    my $responses = $ol->generateCompletion(
+    my $response = $ol->generateCompletion(
         model => $model,
         prompt => $prompt,
+        system => 'You are a helpful concise coding assistant',
     );
 
     my $code;
+    my $responses = $response->get;
     repeat {
         my ($res) = $responses->shift;
         my $info;

diff --git a/scripts/describe-image.pl b/scripts/describe-image.pl
@@ -16,13 +16,14 @@ package main;
 my @images = @ARGV ? @ARGV : ('t/testdata/objectdetection.jpg');
 
 for my $image (@images) {
-    my $responses = $ol->generateCompletion(
+    my $response = $ol->generateCompletion(
         model => 'llava:latest',
         prompt => 'You are tagging images. Please list all the objects in this image as tags. Also list the location where it was taken.',
         images => [
             { filename => $image },
         ],
     );
+    my $responses = $response->get;
 
     repeat {
         my ($res) = $responses->shift;