Merge pull request #21 from fukamachi/fix/utf-8-content-length

Fix the wrong Content-Length for UTF-8 response bodies.
coalton-lang · Jan 14, 2025 · 6cb0b62 · 6cb0b62
2 parents 65787ad + 3f84a64
commit 6cb0b62
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -14,6 +14,7 @@ following Lisp libraries:
 - bordeaux-threads
 - com.inuoe.jzon
 - usocket
+- trivial-utf-8
 
 ## Current Status
 

diff --git a/coalton-lsp.asd b/coalton-lsp.asd
@@ -5,7 +5,8 @@
                #:bordeaux-threads
                #:coalton
                #:com.inuoe.jzon
-               #:usocket)
+               #:usocket
+               #:trivial-utf-8)
   :pathname "src/"
   :serial t
   :components ((:file "package")

diff --git a/src/lib/rpc.lisp b/src/lib/rpc.lisp
@@ -138,7 +138,7 @@
 (defun %write-rpc (message stream)
   (let ((content (message-content message)))
     (write-headers stream
-                   `(("Content-Length" . ,(length content))
+                   `(("Content-Length" . ,(trivial-utf-8:utf-8-byte-length content))
                      ("Content-Type" . "application/json-rpc")))
     (write-sequence content stream)
     (force-output stream)))