Adressing response time errors.

2023-01-18 21:40:02 -05:00 · 2023-01-18 21:40:02 -05:00 · 6e9bb2a5f8
commit 6e9bb2a5f8
parent b3d8adec7e
1 changed files with 5 additions and 2 deletions
--- a/app/VideoWeb/Invidious.class.st
+++ b/app/VideoWeb/Invidious.class.st
@ -155,11 +155,14 @@ Invidious >> region: countryISOCode [

 { #category : #accessing }
 Invidious >> responseTime [
-	^ [ ZnClient new
+	| responseEvaluation |
+	responseEvaluation := [ ZnClient new
    	beOneShot;
    	url: self uri;
    	get;
-    	response ] timeToRun
+    	response ].
+   [ ^ responseEvaluation timeToRun ] onErrorDo: [ ^ 1 class maxVal asDuration "Internal convention for max duration when an error raises." ].
+   
 ]

 { #category : #accessing }