From 901246abac4d375a99f49fabbdf3bd51a1af6855 Mon Sep 17 00:00:00 2001
From: TudbuT <forge-public@mail.tudbut.de>
Date: Fri, 15 Nov 2024 17:13:38 +0100
Subject: [PATCH] fix an http bug

---
 spl/httpserver/base.spl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/spl/httpserver/base.spl b/spl/httpserver/base.spl
index bbf020a..8fc5eaf 100644
--- a/spl/httpserver/base.spl
+++ b/spl/httpserver/base.spl
@@ -64,7 +64,7 @@ construct net:http:server:Request {
 				4 stop
 			0 } pop
 		}
-		this:head buf:sub<0 found> aadd:to-str this:=head
+		this:head buf:sub<0 found>:replace<"\r" :to-bytes 0 banew> aadd:to-str this:=head
 		buf:sub<found 4 + buf:len> this:=body
 		this
 	}