Merge pull request #953 from WolframResearch/bugfix/handle-http-100-s…

…tatus-code Bugfix: Handle HTTP status code 100 in responses
WolframResearch · Nov 25, 2024 · c0e3dc2 · c0e3dc2
2 parents 7761527 + 70b066b
commit c0e3dc2
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/PacletInfo.wl b/PacletInfo.wl
@@ -1,7 +1,7 @@
 PacletObject[ <|
     "Name"           -> "Wolfram/Chatbook",
     "PublisherID"    -> "Wolfram",
-    "Version"        -> "1.5.2.4",
+    "Version"        -> "1.5.2.5",
     "WolframVersion" -> "14.1+",
     "Description"    -> "Wolfram Notebooks + LLMs",
     "License"        -> "MIT",

diff --git a/Source/Chatbook/LLMUtilities.wl b/Source/Chatbook/LLMUtilities.wl
@@ -238,7 +238,7 @@ extractBodyChunks0 // endDefinition;
 (* ::Subsubsection::Closed:: *)
 (*apiFailureQ*)
 apiFailureQ // beginDefinition;
-apiFailureQ[ Failure[ "APIError", KeyValuePattern[ "StatusCode" -> Except[ 200, _Integer ] ] ] ] := True;
+apiFailureQ[ Failure[ "APIError", KeyValuePattern[ "StatusCode" -> Except[ 100|200, _Integer ] ] ] ] := True;
 apiFailureQ[ _ ] := False;
 apiFailureQ // endDefinition;
 

diff --git a/Source/Chatbook/SendChat.wl b/Source/Chatbook/SendChat.wl
@@ -1060,7 +1060,7 @@ writeResult[ settings_, container_, cell_, as_Association ] := Enclose[
 
         $lastFullResponseData = <| "Body" -> body, "Processed" -> processed, "Data" -> data |>;
 
-        Which[ MatchQ[ as[ "StatusCode" ], Except[ 200, _Integer ] ] || (processed === "" && AssociationQ @ data),
+        Which[ MatchQ[ as[ "StatusCode" ], Except[ 100|200, _Integer ] ] || (processed === "" && AssociationQ @ data),
                writeErrorCell[ cell, $badResponse = Association[ as, "Body" -> body, "BodyJSON" -> data ] ]
                ,
                processed === body === "",
@@ -2793,7 +2793,7 @@ errorBoxes[ as: KeyValuePattern[ "Error" -> "ServerResponseEmpty" ] ] :=
 errorBoxes[ as: KeyValuePattern[ "StatusCode" -> 429 ] ] :=
     ToBoxes @ messageFailure[ "RateLimitReached", as ];
 
-errorBoxes[ as: KeyValuePattern[ "StatusCode" -> code: Except[ 200 ] ] ] :=
+errorBoxes[ as: KeyValuePattern[ "StatusCode" -> code: Except[ 100|200 ] ] ] :=
     ToBoxes @ messageFailure[ "UnknownStatusCode", as ];
 
 errorBoxes[ failure_Failure ] :=