1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-11 22:35:20 +01:00

- [GUI] ensured setting the status of an exhausted stream.

This commit is contained in:
cage 2024-11-11 18:38:55 +01:00
parent f58e0e036c
commit a7e8e6f0e7

View File

@ -88,7 +88,7 @@
(force-output file-stream)
(if (download-completed-p buffer read-so-far)
(progn
(setf (gemini-viewer:stream-status wrapper-object) :completed)
(setf (gw:stream-status wrapper-object) :completed)
(gemini-client:close-ssl-socket socket))
(%fill-buffer))))))
(%fill-buffer))))))
@ -165,6 +165,7 @@
(_ "Gemini stream error: ~a")
e))))
(append-parsed-line wrapper-object (list message)))))
(setf (gw:stream-status wrapper-object) :completed)
(maybe-render-preformat-wrapper file-stream wrapper-object)
(gemini-client:close-ssl-socket download-socket))))))))