Issue #14: By jove I think I've got ... for real ... no kidding

GsDevKit · Mar 24, 2015 · a035669 · a035669
1 parent 40e865d
commit a035669
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 14 deletions.
diff --git a/...itory/GsUpgrader-Core.package/GsUpgrader.class/instance/patchForGsDevKitIssue60Source2.st b/...itory/GsUpgrader-Core.package/GsUpgrader.class/instance/patchForGsDevKitIssue60Source2.st
@@ -6,33 +6,26 @@ patchForGsDevKitIssue60Source2
 
   ^ 'readStreamForUrl: url user: user passwd: password do: aBlock
   | contents retries |
-Transcript cr; show: ''readStreamForUrl: [0] '', url printString.
   retries := 0.
   [ retries <= 3 ]
     whileTrue: [ 
       [ 
-retries := retries + 1.
-Transcript cr; show: ''readStreamForUrl: [1] '', retries printString.
+      retries := retries + 1.
       contents := HTTPSocket
         httpGet: url
         args: nil
         user: user
         passwd: password.
-retries := 4.
- ]
+      retries := 4 ]
         on: Error
         do: [ :ex | 
-          
-Transcript cr; show: ''readStreamForUrl: [2] '', (retries > 3) printString.          retries > 3
+          retries > 3
             ifTrue: [ ex pass ].
           Transcript
             cr;
             show:
-                ''Error: '' , ex description printString
-                    ,
-                      '' during MCPlatformSupport class>>readStreamForUrl:user:passwd:do: for ''
-                    , url printString , '' Retrying ('' , retries printString
-                    , '')'' ] ].
+                ''Retrying '' , url printString , '' ('' , retries printString , '') ''
+                    , ex description printString ] ].
   ^ contents isString
     ifTrue: [ nil ]
     ifFalse: [ aBlock value: contents ]'
diff --git a/repository/GsUpgrader-Core.package/GsUpgrader.class/methodProperties.json b/repository/GsUpgrader-Core.package/GsUpgrader.class/methodProperties.json
@@ -41,7 +41,7 @@
 		"packageReportOn:" : "dkh 09/15/2014 13:48",
 		"patchForGsDevKitIssue60" : "dkh 03/23/2015 17:14",
 		"patchForGsDevKitIssue60Source1" : "dkh 03/23/2015 16:43",
-		"patchForGsDevKitIssue60Source2" : "dkh 03/23/2015 18:19",
+		"patchForGsDevKitIssue60Source2" : "dkh 03/23/2015 18:33",
 		"projectReportOn:" : "dkh 09/11/2014 16:38",
 		"projectVersion:" : "dkh 09/15/2014 13:13",
 		"registrationFor:" : "dkh 11/16/2014 20:06",