Merge pull request #73 from ba-st/push_up_content_language

Move addContentLanguage: and contentLanguageTags to ZnMessage
ba-st · Aug 23, 2024 · 5bf3ea2 · 5bf3ea2
2 parents 4a1065f + 0307b7d
commit 5bf3ea2
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 [