Add http error message to updateMessagesList

imclerran · Jan 3, 2025 · 933f565 · 933f565
1 parent 15ac5ba
commit 933f565
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/package/Chat.roc b/package/Chat.roc
@@ -256,8 +256,12 @@ updateMessageList = \responseRes, messages->
                 Err NoChoices -> appendSystemMessage messages "No choices in API response" {}
                 Err (BadJson str) -> appendSystemMessage messages "Could not decode JSON response:\n$(str)" {}
                 Err DecodingError -> appendSystemMessage messages "Error decoding API response" {}
+
+        Err (HttpErr (BadStatus { code }) ) ->
+            appendSystemMessage messages "Http error: $(Num.toStr code)" {}
 
-        Err (HttpErr _) -> messages
+        Err (HttpErr _) -> 
+            appendSystemMessage messages "Http error" {}
 
 ## Encode the request body to be sent in the Http request.
 encodeRequestBody : ChatRequestBody -> List U8