cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- flush the socket buffer to ensure the successful autorization message is delivered to the browser.

This commit is contained in:
cage 2023-02-11 21:22:36 +01:00
parent 9e7966f697
commit 65ed6b9425
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/api-client.lisp
View File

@ -164,7 +164,8 @@ authorization code."
(let* ((endline (format nil "~C~C" #\return #\linefeed)) (let* ((endline (format nil "~C~C" #\return #\linefeed))
(headers (join-with-strings *http-auth-reply-headers* endline))) (headers (join-with-strings *http-auth-reply-headers* endline)))
(format stream "~a~a~a" headers endline endline) (format stream "~a~a~a" headers endline endline)
(format stream (http-auth-reply-body-template) +program-name+)))))) (format stream (http-auth-reply-body-template) +program-name+)
(finish-output stream))))))
(usocket:socket-close client-socket))) (usocket:socket-close client-socket)))
(usocket:socket-close socket))) (usocket:socket-close socket)))