Change http Timeout error to specify duration

roc-lang · Feb 21, 2024 · e99ada0 · e99ada0
1 parent 2117413
commit e99ada0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/platform/Http.roc b/platform/Http.roc
@@ -125,7 +125,7 @@ handleStringResponse : Response -> Result Str Error
 handleStringResponse = \response ->
     when response is
         BadRequest err -> Err (BadRequest err)
-        Timeout -> Err Timeout
+        Timeout ms -> Err (Timeout ms)
         NetworkError -> Err NetworkError
         BadStatus metadata _ -> Err (BadStatus metadata.statusCode)
         GoodStatus _ bodyBytes ->
@@ -141,7 +141,7 @@ errorToString : Error -> Str
 errorToString = \err ->
     when err is
         BadRequest e -> "Invalid Request: $(e)"
-        Timeout -> "Request timed out"
+        Timeout ms -> "Request timed out ($(Num.toStr ms)ms)"
         NetworkError -> "Network error"
         BadStatus code -> Str.concat "Request failed with status " (Num.toStr code)
         BadBody details -> Str.concat "Request failed. Invalid body. " details

diff --git a/platform/InternalHttp.roc b/platform/InternalHttp.roc
@@ -26,7 +26,7 @@ Body : [
 
 Response : [
     BadRequest Str,
-    Timeout,
+    Timeout U64,
     NetworkError,
     BadStatus Metadata (List U8),
     GoodStatus Metadata (List U8),
@@ -41,7 +41,7 @@ Metadata : {
 
 Error : [
     BadRequest Str,
-    Timeout,
+    Timeout U64,
     NetworkError,
     BadStatus U16,
     BadBody Str,