Merge pull request #50 from zweidenker/fix-initialization-from-cinic

fix initialization from cinic
zweidenker · Jun 23, 2020 · e10dfa0 · e10dfa0
2 parents 78e9f07 + ce55e0f
commit e10dfa0
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 13 deletions.
diff --git a/source/SnapDump-Core/SDHTTPStore.class.st b/source/SnapDump-Core/SDHTTPStore.class.st
@@ -16,7 +16,7 @@ SDHTTPStore class >> storeName [
 
 { #category : #initialization }
 SDHTTPStore >> applyConfiguration: aConfig [
-	uri := aConfig uri.
+	self uri: aConfig uri.
    username := aConfig username.
    password := aConfig password.
 
@@ -175,6 +175,12 @@ SDHTTPStore >> snapshotsOfException: anException [
 		ifFalse: [ NotFound signal ]
 ]
 
+{ #category : #accessing }
+SDHTTPStore >> uri [ 
+
+	^ uri
+]
+
 { #category : #accessing }
 SDHTTPStore >> uri: anUri [
 	uri := anUri asZnUrl / SDSnapshot apiVersion

diff --git a/source/SnapDump-Core/SnapDump.class.st b/source/SnapDump-Core/SnapDump.class.st
@@ -13,7 +13,8 @@ Class {
 
 { #category : #'as yet unclassified' }
 SnapDump class >> applyConfiguration: aConfig [
-	self beOfType: aConfig type.
+
+	self setCurrent: (self withType: aConfig type) new.
 	self current applyConfiguration: aConfig
 ]
 
@@ -27,7 +28,9 @@ SnapDump class >> configuration [
 	<cinicStep>
 	^ {  
 		#section -> #SnapDump.
-		#action -> [ :config |  self applyConfiguration: config ] }
+		#action -> [ :config |  
+
+			self applyConfiguration: config ] }
 ]
 
 { #category : #accessing }
@@ -79,8 +82,14 @@ SnapDump class >> uri: aUri username: aUsername password: aPassword [
 		yourself 
 ]
 
+{ #category : #accessing }
+SnapDump class >> withType: aString [
+	^ self allSubclasses detect: [ :each | each type = aString ]
+]
+
 { #category : #initialization }
 SnapDump >> applyConfiguration: aConfig [
+
 	store := (SDStore withName: aConfig store) new.
 	store applyConfiguration: aConfig
 ]

diff --git a/source/SnapDump-Handler/SDBasicHTTPStore.class.st b/source/SnapDump-Handler/SDBasicHTTPStore.class.st