🔧 add ip address to string for gemstone compability

ba-st · Jun 25, 2024 · 07ae965 · 07ae965
1 parent 7d397b7
commit 07ae965
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/source/Hyperspace-Model/ZnEventToLogRecordAdapter.class.st b/source/Hyperspace-Model/ZnEventToLogRecordAdapter.class.st
@@ -36,11 +36,10 @@ ZnEventToLogRecordAdapter >> asStructuredResponse: aZnResponse [
 { #category : #'private - dumping' }
 ZnEventToLogRecordAdapter >> dumpConnectionEvent: aZnServerConnectionClosedEvent on: data [
 
-	 data
-		  at: #remoteAddress
-		  put: ( ZnNetworkingUtils ipAddressToString: aZnServerConnectionClosedEvent address );
-		  at: #processId put: aZnServerConnectionClosedEvent processId;
-		  at: #eventId put: aZnServerConnectionClosedEvent id
+  data
+    at: #remoteAddress put: ( self ipAddressToString: aZnServerConnectionClosedEvent );
+    at: #processId put: aZnServerConnectionClosedEvent processId;
+    at: #eventId put: aZnServerConnectionClosedEvent id
 ]
 
 { #category : #'private - dumping' }
@@ -78,6 +77,14 @@ ZnEventToLogRecordAdapter >> initialize [
 	subscriptions := OrderedCollection new
 ]
 
+{ #category : #'private - dumping' }
+ZnEventToLogRecordAdapter >> ipAddressToString: aZnServerConnectionClosedEvent [
+
+  ^ aZnServerConnectionClosedEvent address isString
+      then: [ aZnServerConnectionClosedEvent address ]
+      otherwise: [ ZnNetworkingUtils ipAddressToString: aZnServerConnectionClosedEvent address ]
+]
+
 { #category : #'private - configuring' }
 ZnEventToLogRecordAdapter >> logIncomingRequests: aBoolean [