Fix loading configuration from JSON in GS64

ba-st · Sep 20, 2023 · 75da14f · 75da14f
1 parent a2df8d3
commit 75da14f
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/source/Launchpad-Configuration/ConfigurationFromJsonSettingsFileProvider.class.st b/source/Launchpad-Configuration/ConfigurationFromJsonSettingsFileProvider.class.st
@@ -21,6 +21,13 @@ ConfigurationFromJsonSettingsFileProvider class >> loading: aJsonFileReference c
 	^ self new initializeLoading: aJsonFileReference chainedWith: aConfigurationProvider
 ]
 
+{ #category : #private }
+ConfigurationFromJsonSettingsFileProvider >> asJsonPath: aConfigurationParameter [
+
+	^ (aConfigurationParameter sectionsAsAttributeNames copyWith:
+		   aConfigurationParameter attributeName) collect: #asSymbol
+]
+
 { #category : #initialization }
 ConfigurationFromJsonSettingsFileProvider >> initializeLoading: aFileReference chainedWith: aConfigurationProvider [
 
@@ -46,9 +53,11 @@ ConfigurationFromJsonSettingsFileProvider >> reloadConfiguration [
 { #category : #resolving }
 ConfigurationFromJsonSettingsFileProvider >> valueFor: aConfigurationParameter ifFound: aPresentBlock ifNone: aFailBlock [
 
-	^ ( json atPath:
-		    ( aConfigurationParameter sectionsAsAttributeNames copyWith:
-			      aConfigurationParameter attributeName ) ) ifNil: [ 
-		  nextProvider valueFor: aConfigurationParameter ifFound: aPresentBlock ifNone: aFailBlock ]
+	^ (json atPath: (self asJsonPath: aConfigurationParameter))
+		  ifNil: [
+			  nextProvider
+				  valueFor: aConfigurationParameter
+				  ifFound: aPresentBlock
+				  ifNone: aFailBlock ]
 		  ifNotNil: aPresentBlock
 ]