'From Squeak6.1alpha of 7 November 2023 [latest update: #22836] on 8 November 2023 at 1:19:31 pm'!

!WAWebServerAdaptor methodsFor: 'converting' stamp: 'tpr 11/8/2023 13:14'!
responseFrom: aRequestContext
	"Answer a native response from aRequestContext."

	| response |
	response := WebResponse new.
	response protocol: aRequestContext request version asString 
			code: aRequestContext response status.
	aRequestContext response headers keysAndValuesDo:[ :key :value | 
		response addHeader: key value: value greaseString.
	].
	aRequestContext response cookies do:[:cookie|
		response addHeader: 'set-cookie' value: cookie rfc6265String.
	].
	response content: aRequestContext response stream contents.
	^response! !