Move addContentLanguage: and contentLanguageTags to ZnMessage, becaus…

…e both are needed for requests and responses
ba-st · Aug 23, 2024 · 0307b7d · 0307b7d
1 parent 4a1065f
commit 0307b7d
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 17 deletions.
diff --git a/source/Hyperspace-Extensions/ZnMessage.extension.st b/source/Hyperspace-Extensions/ZnMessage.extension.st
@@ -0,0 +1,18 @@
+Extension { #name : 'ZnMessage' }
+
+{ #category : '*Hyperspace-Extensions' }
+ZnMessage >> addContentLanguage: aLanguageTag [
+
+	self headers at: 'Content-Language' add: aLanguageTag
+]
+
+{ #category : '*Hyperspace-Extensions' }
+ZnMessage >> contentLanguageTags [
+
+	| headerValue |
+
+	headerValue := self headers at: 'Content-Language' ifAbsent: [ ^ #() ].
+	^ headerValue isArray
+		ifTrue: [ headerValue collect: #asLanguageTag ]
+		ifFalse: [ Array with: headerValue asLanguageTag ]
+]
diff --git a/source/Hyperspace-Extensions/ZnResponse.extension.st b/source/Hyperspace-Extensions/ZnResponse.extension.st
@@ -6,12 +6,6 @@ ZnResponse >> addCachingDirective: aDirective [
 	self headers at: 'Cache-Control' add: aDirective
 ]
 
-{ #category : '*Hyperspace-Extensions' }
-ZnResponse >> addContentLanguage: aLanguageTag [
-
-	self headers at: 'Content-Language' add: aLanguageTag
-]
-
 { #category : '*Hyperspace-Extensions' }
 ZnResponse >> addLink: aLink [
 
@@ -35,17 +29,6 @@ ZnResponse >> cachingDirectives [
 		ifFalse: [ Array with: directives ]
 ]
 
-{ #category : '*Hyperspace-Extensions' }
-ZnResponse >> contentLanguageTags [
-
-	| headerValue |
-
-	headerValue := self headers at: 'Content-Language' ifAbsent: [ ^ #() ].
-	^ headerValue isArray
-		ifTrue: [ headerValue collect: #asLanguageTag ]
-		ifFalse: [ Array with: headerValue asLanguageTag ]
-]
-
 { #category : '*Hyperspace-Extensions' }
 ZnResponse >> entityTag [