fix(streaming): properly writhe space and crlf

SeasideSt · Jun 4, 2022 · c998a30 · c998a30
1 parent 75d49b2
commit c998a30
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 2 deletions.
diff --git a/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st b/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st
@@ -2,10 +2,10 @@ writing
 writeStatusOn: aStream 
 	aStream nextPutAll: self httpVersion.
 	aStream
-		nextPut: $ ;
+		space;
 		nextPutAll: self status greaseString.
 	self message isNil ifFalse:  [
 		aStream
-			nextPut: $ ;
+			space;
 			nextPutAll: self message ].
 	aStream crlf
diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside-Pharo
+crlf
+	self nextPutAll: String crlf
diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside-Pharo
+space
+	self nextPut: Character space asciiValue
diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "ZdcAbstractSocketStream"
+}