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:
parent
f58e0e036c
commit
a7e8e6f0e7
@ -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))))))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user