From 65ed6b9425a0a8c271edcff234e94aefff887bfa Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 11 Feb 2023 21:22:36 +0100
Subject: [PATCH] - flush the socket buffer to ensure the successful
 autorization message is delivered to the browser.

---
 src/api-client.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/api-client.lisp b/src/api-client.lisp
index a7f5e87..717a223 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -164,7 +164,8 @@ authorization code."
                       (let* ((endline (format nil "~C~C" #\return #\linefeed))
                              (headers (join-with-strings *http-auth-reply-headers* 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 socket)))