Fix JSON instance for ReasoningEffort

adinapoli · adinapoli · commit 721176558b65 · 2025-01-15T12:04:02.000+01:00
diff --git a/openai-api-servant/src/OpenAI/Resources.hs b/openai-api-servant/src/OpenAI/Resources.hs
@@ -475,7 +475,7 @@ data ReasoningEffort =
   deriving stock (Show, Eq, Generic)
   deriving anyclass NFData
 
-$(deriveJSON (jsonOpts 3) ''ReasoningEffort)
+$(deriveJSON (jsonEnumsOpts 3) ''ReasoningEffort)
 
 data ChatCompletionRequest = ChatCompletionRequest
   { chcrModel :: ModelId,
