From 8deab8f0983626ea6b34332e947658c03f95c0b4 Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 19 Feb 2023 16:20:10 +0100 Subject: [PATCH] - [RPC] added iri for failed stream when signalling an error. --- src/gui/server/public-api-gemini-stream.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/gui/server/public-api-gemini-stream.lisp b/src/gui/server/public-api-gemini-stream.lisp index f5f23f8..ee5ff00 100644 --- a/src/gui/server/public-api-gemini-stream.lisp +++ b/src/gui/server/public-api-gemini-stream.lisp @@ -262,10 +262,13 @@ (json:with-object-element (k) (json:encode v))))))))) +(defun make-no-such-stream-error (iri) + (error (_ "no such stream ~s") iri)) + (defun gemini-stream-parsed-line (iri line-number) (let ((stream-wrapper (gw:find-db-stream-url iri))) (if (null stream-wrapper) - (error "no such stream") + (make-no-such-stream-error iri) (let ((parsed-lines (gw:parsed-lines stream-wrapper))) (cond ((or (not (integerp line-number)) @@ -296,7 +299,7 @@ (defun gemini-stream-parsed-line-slice (iri line-number-start line-number-end) (let ((stream-wrapper (gw:find-db-stream-url iri))) (if (null stream-wrapper) - (error "no such stream") + (make-no-such-stream-error iri) (let ((parsed-lines (gw:parsed-lines stream-wrapper))) (cond ((or (not (integerp line-number-start)) @@ -324,7 +327,7 @@ (let ((stream-wrapper (gw:find-db-stream-url iri))) (if stream-wrapper stream-wrapper - (error "no such stream")))) + (make-no-such-stream-error iri)))) (defun gemini-all-stream-info () gw:*gemini-streams-db*)