generate initial commit

Generate haskell-http-client from running g4f v-7.1.4.

Server started like this:

    python -m g4f --port 8080 --debug

Code generated like this:

    openapi-generator-cli generate \
        -i http://localhost:8080/openapi.json \
        -g haskell-http-client \
        --skip-validate-spec \
        -o g4f-client \
        --additional-properties=cabalPackage=g4f-client,cabalVersion=7.1.4,baseModule=G4fApi

1 files changed, 858 insertions, 0 deletions

diff --git a/lib/G4fClient/ModelLens.hs b/lib/G4fClient/ModelLens.hs
new file mode 100644
index 0000000..c138add
--- /dev/null
+++ b/lib/G4fClient/ModelLens.hs
@@ -0,0 +1,858 @@
+{-
+   FastAPI
+
+   No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator)
+
+   OpenAPI Version: 3.1.0
+   FastAPI API version: 0.1.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
+-}
+
+{-|
+Module : G4fClient.Lens
+-}
+
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module G4fClient.ModelLens where
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Data, Typeable)
+import qualified Data.Map as Map
+import qualified Data.Set as Set
+import qualified Data.Time as TI
+
+import Data.Text (Text)
+
+import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+import G4fClient.Model
+import G4fClient.Core
+
+
+-- * ApiKey
+
+
+
+-- * AudioResponseModel
+
+-- | 'audioResponseModelData' Lens
+audioResponseModelDataL :: Lens_' AudioResponseModel (Text)
+audioResponseModelDataL f AudioResponseModel{..} = (\audioResponseModelData -> AudioResponseModel { audioResponseModelData, ..} ) <$> f audioResponseModelData
+{-# INLINE audioResponseModelDataL #-}
+
+-- | 'audioResponseModelTranscript' Lens
+audioResponseModelTranscriptL :: Lens_' AudioResponseModel (Maybe Text)
+audioResponseModelTranscriptL f AudioResponseModel{..} = (\audioResponseModelTranscript -> AudioResponseModel { audioResponseModelTranscript, ..} ) <$> f audioResponseModelTranscript
+{-# INLINE audioResponseModelTranscriptL #-}
+
+
+
+-- * AudioSpeechConfig
+
+-- | 'audioSpeechConfigInput' Lens
+audioSpeechConfigInputL :: Lens_' AudioSpeechConfig (Text)
+audioSpeechConfigInputL f AudioSpeechConfig{..} = (\audioSpeechConfigInput -> AudioSpeechConfig { audioSpeechConfigInput, ..} ) <$> f audioSpeechConfigInput
+{-# INLINE audioSpeechConfigInputL #-}
+
+-- | 'audioSpeechConfigModel' Lens
+audioSpeechConfigModelL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigModelL f AudioSpeechConfig{..} = (\audioSpeechConfigModel -> AudioSpeechConfig { audioSpeechConfigModel, ..} ) <$> f audioSpeechConfigModel
+{-# INLINE audioSpeechConfigModelL #-}
+
+-- | 'audioSpeechConfigProvider' Lens
+audioSpeechConfigProviderL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigProviderL f AudioSpeechConfig{..} = (\audioSpeechConfigProvider -> AudioSpeechConfig { audioSpeechConfigProvider, ..} ) <$> f audioSpeechConfigProvider
+{-# INLINE audioSpeechConfigProviderL #-}
+
+-- | 'audioSpeechConfigVoice' Lens
+audioSpeechConfigVoiceL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigVoiceL f AudioSpeechConfig{..} = (\audioSpeechConfigVoice -> AudioSpeechConfig { audioSpeechConfigVoice, ..} ) <$> f audioSpeechConfigVoice
+{-# INLINE audioSpeechConfigVoiceL #-}
+
+-- | 'audioSpeechConfigInstrcutions' Lens
+audioSpeechConfigInstrcutionsL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigInstrcutionsL f AudioSpeechConfig{..} = (\audioSpeechConfigInstrcutions -> AudioSpeechConfig { audioSpeechConfigInstrcutions, ..} ) <$> f audioSpeechConfigInstrcutions
+{-# INLINE audioSpeechConfigInstrcutionsL #-}
+
+-- | 'audioSpeechConfigResponseFormat' Lens
+audioSpeechConfigResponseFormatL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigResponseFormatL f AudioSpeechConfig{..} = (\audioSpeechConfigResponseFormat -> AudioSpeechConfig { audioSpeechConfigResponseFormat, ..} ) <$> f audioSpeechConfigResponseFormat
+{-# INLINE audioSpeechConfigResponseFormatL #-}
+
+-- | 'audioSpeechConfigLanguage' Lens
+audioSpeechConfigLanguageL :: Lens_' AudioSpeechConfig (Maybe Text)
+audioSpeechConfigLanguageL f AudioSpeechConfig{..} = (\audioSpeechConfigLanguage -> AudioSpeechConfig { audioSpeechConfigLanguage, ..} ) <$> f audioSpeechConfigLanguage
+{-# INLINE audioSpeechConfigLanguageL #-}
+
+-- | 'audioSpeechConfigDownloadMedia' Lens
+audioSpeechConfigDownloadMediaL :: Lens_' AudioSpeechConfig (Maybe Bool)
+audioSpeechConfigDownloadMediaL f AudioSpeechConfig{..} = (\audioSpeechConfigDownloadMedia -> AudioSpeechConfig { audioSpeechConfigDownloadMedia, ..} ) <$> f audioSpeechConfigDownloadMedia
+{-# INLINE audioSpeechConfigDownloadMediaL #-}
+
+
+
+-- * ChatCompletion
+
+-- | 'chatCompletionId' Lens
+chatCompletionIdL :: Lens_' ChatCompletion (Text)
+chatCompletionIdL f ChatCompletion{..} = (\chatCompletionId -> ChatCompletion { chatCompletionId, ..} ) <$> f chatCompletionId
+{-# INLINE chatCompletionIdL #-}
+
+-- | 'chatCompletionObject' Lens
+chatCompletionObjectL :: Lens_' ChatCompletion (Text)
+chatCompletionObjectL f ChatCompletion{..} = (\chatCompletionObject -> ChatCompletion { chatCompletionObject, ..} ) <$> f chatCompletionObject
+{-# INLINE chatCompletionObjectL #-}
+
+-- | 'chatCompletionCreated' Lens
+chatCompletionCreatedL :: Lens_' ChatCompletion (Int)
+chatCompletionCreatedL f ChatCompletion{..} = (\chatCompletionCreated -> ChatCompletion { chatCompletionCreated, ..} ) <$> f chatCompletionCreated
+{-# INLINE chatCompletionCreatedL #-}
+
+-- | 'chatCompletionModel' Lens
+chatCompletionModelL :: Lens_' ChatCompletion (Text)
+chatCompletionModelL f ChatCompletion{..} = (\chatCompletionModel -> ChatCompletion { chatCompletionModel, ..} ) <$> f chatCompletionModel
+{-# INLINE chatCompletionModelL #-}
+
+-- | 'chatCompletionProvider' Lens
+chatCompletionProviderL :: Lens_' ChatCompletion (Text)
+chatCompletionProviderL f ChatCompletion{..} = (\chatCompletionProvider -> ChatCompletion { chatCompletionProvider, ..} ) <$> f chatCompletionProvider
+{-# INLINE chatCompletionProviderL #-}
+
+-- | 'chatCompletionChoices' Lens
+chatCompletionChoicesL :: Lens_' ChatCompletion ([ChatCompletionChoice])
+chatCompletionChoicesL f ChatCompletion{..} = (\chatCompletionChoices -> ChatCompletion { chatCompletionChoices, ..} ) <$> f chatCompletionChoices
+{-# INLINE chatCompletionChoicesL #-}
+
+-- | 'chatCompletionUsage' Lens
+chatCompletionUsageL :: Lens_' ChatCompletion (UsageModel)
+chatCompletionUsageL f ChatCompletion{..} = (\chatCompletionUsage -> ChatCompletion { chatCompletionUsage, ..} ) <$> f chatCompletionUsage
+{-# INLINE chatCompletionUsageL #-}
+
+-- | 'chatCompletionConversation' Lens
+chatCompletionConversationL :: Lens_' ChatCompletion ((Map.Map String AnyType))
+chatCompletionConversationL f ChatCompletion{..} = (\chatCompletionConversation -> ChatCompletion { chatCompletionConversation, ..} ) <$> f chatCompletionConversation
+{-# INLINE chatCompletionConversationL #-}
+
+
+
+-- * ChatCompletionChoice
+
+-- | 'chatCompletionChoiceIndex' Lens
+chatCompletionChoiceIndexL :: Lens_' ChatCompletionChoice (Int)
+chatCompletionChoiceIndexL f ChatCompletionChoice{..} = (\chatCompletionChoiceIndex -> ChatCompletionChoice { chatCompletionChoiceIndex, ..} ) <$> f chatCompletionChoiceIndex
+{-# INLINE chatCompletionChoiceIndexL #-}
+
+-- | 'chatCompletionChoiceMessage' Lens
+chatCompletionChoiceMessageL :: Lens_' ChatCompletionChoice (ChatCompletionMessage)
+chatCompletionChoiceMessageL f ChatCompletionChoice{..} = (\chatCompletionChoiceMessage -> ChatCompletionChoice { chatCompletionChoiceMessage, ..} ) <$> f chatCompletionChoiceMessage
+{-# INLINE chatCompletionChoiceMessageL #-}
+
+-- | 'chatCompletionChoiceFinishReason' Lens
+chatCompletionChoiceFinishReasonL :: Lens_' ChatCompletionChoice (Text)
+chatCompletionChoiceFinishReasonL f ChatCompletionChoice{..} = (\chatCompletionChoiceFinishReason -> ChatCompletionChoice { chatCompletionChoiceFinishReason, ..} ) <$> f chatCompletionChoiceFinishReason
+{-# INLINE chatCompletionChoiceFinishReasonL #-}
+
+
+
+-- * ChatCompletionMessage
+
+-- | 'chatCompletionMessageRole' Lens
+chatCompletionMessageRoleL :: Lens_' ChatCompletionMessage (Text)
+chatCompletionMessageRoleL f ChatCompletionMessage{..} = (\chatCompletionMessageRole -> ChatCompletionMessage { chatCompletionMessageRole, ..} ) <$> f chatCompletionMessageRole
+{-# INLINE chatCompletionMessageRoleL #-}
+
+-- | 'chatCompletionMessageContent' Lens
+chatCompletionMessageContentL :: Lens_' ChatCompletionMessage (Text)
+chatCompletionMessageContentL f ChatCompletionMessage{..} = (\chatCompletionMessageContent -> ChatCompletionMessage { chatCompletionMessageContent, ..} ) <$> f chatCompletionMessageContent
+{-# INLINE chatCompletionMessageContentL #-}
+
+-- | 'chatCompletionMessageReasoning' Lens
+chatCompletionMessageReasoningL :: Lens_' ChatCompletionMessage (Maybe Text)
+chatCompletionMessageReasoningL f ChatCompletionMessage{..} = (\chatCompletionMessageReasoning -> ChatCompletionMessage { chatCompletionMessageReasoning, ..} ) <$> f chatCompletionMessageReasoning
+{-# INLINE chatCompletionMessageReasoningL #-}
+
+-- | 'chatCompletionMessageToolCalls' Lens
+chatCompletionMessageToolCallsL :: Lens_' ChatCompletionMessage (Maybe [ToolCallModel])
+chatCompletionMessageToolCallsL f ChatCompletionMessage{..} = (\chatCompletionMessageToolCalls -> ChatCompletionMessage { chatCompletionMessageToolCalls, ..} ) <$> f chatCompletionMessageToolCalls
+{-# INLINE chatCompletionMessageToolCallsL #-}
+
+-- | 'chatCompletionMessageAudio' Lens
+chatCompletionMessageAudioL :: Lens_' ChatCompletionMessage (Maybe AudioResponseModel)
+chatCompletionMessageAudioL f ChatCompletionMessage{..} = (\chatCompletionMessageAudio -> ChatCompletionMessage { chatCompletionMessageAudio, ..} ) <$> f chatCompletionMessageAudio
+{-# INLINE chatCompletionMessageAudioL #-}
+
+
+
+-- * ChatCompletionsConfig
+
+-- | 'chatCompletionsConfigModel' Lens
+chatCompletionsConfigModelL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigModelL f ChatCompletionsConfig{..} = (\chatCompletionsConfigModel -> ChatCompletionsConfig { chatCompletionsConfigModel, ..} ) <$> f chatCompletionsConfigModel
+{-# INLINE chatCompletionsConfigModelL #-}
+
+-- | 'chatCompletionsConfigProvider' Lens
+chatCompletionsConfigProviderL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigProviderL f ChatCompletionsConfig{..} = (\chatCompletionsConfigProvider -> ChatCompletionsConfig { chatCompletionsConfigProvider, ..} ) <$> f chatCompletionsConfigProvider
+{-# INLINE chatCompletionsConfigProviderL #-}
+
+-- | 'chatCompletionsConfigMedia' Lens
+chatCompletionsConfigMediaL :: Lens_' ChatCompletionsConfig (Maybe [[AnyType]])
+chatCompletionsConfigMediaL f ChatCompletionsConfig{..} = (\chatCompletionsConfigMedia -> ChatCompletionsConfig { chatCompletionsConfigMedia, ..} ) <$> f chatCompletionsConfigMedia
+{-# INLINE chatCompletionsConfigMediaL #-}
+
+-- | 'chatCompletionsConfigModalities' Lens
+chatCompletionsConfigModalitiesL :: Lens_' ChatCompletionsConfig (Maybe [Text])
+chatCompletionsConfigModalitiesL f ChatCompletionsConfig{..} = (\chatCompletionsConfigModalities -> ChatCompletionsConfig { chatCompletionsConfigModalities, ..} ) <$> f chatCompletionsConfigModalities
+{-# INLINE chatCompletionsConfigModalitiesL #-}
+
+-- | 'chatCompletionsConfigTemperature' Lens
+chatCompletionsConfigTemperatureL :: Lens_' ChatCompletionsConfig (Maybe Double)
+chatCompletionsConfigTemperatureL f ChatCompletionsConfig{..} = (\chatCompletionsConfigTemperature -> ChatCompletionsConfig { chatCompletionsConfigTemperature, ..} ) <$> f chatCompletionsConfigTemperature
+{-# INLINE chatCompletionsConfigTemperatureL #-}
+
+-- | 'chatCompletionsConfigPresencePenalty' Lens
+chatCompletionsConfigPresencePenaltyL :: Lens_' ChatCompletionsConfig (Maybe Double)
+chatCompletionsConfigPresencePenaltyL f ChatCompletionsConfig{..} = (\chatCompletionsConfigPresencePenalty -> ChatCompletionsConfig { chatCompletionsConfigPresencePenalty, ..} ) <$> f chatCompletionsConfigPresencePenalty
+{-# INLINE chatCompletionsConfigPresencePenaltyL #-}
+
+-- | 'chatCompletionsConfigFrequencyPenalty' Lens
+chatCompletionsConfigFrequencyPenaltyL :: Lens_' ChatCompletionsConfig (Maybe Double)
+chatCompletionsConfigFrequencyPenaltyL f ChatCompletionsConfig{..} = (\chatCompletionsConfigFrequencyPenalty -> ChatCompletionsConfig { chatCompletionsConfigFrequencyPenalty, ..} ) <$> f chatCompletionsConfigFrequencyPenalty
+{-# INLINE chatCompletionsConfigFrequencyPenaltyL #-}
+
+-- | 'chatCompletionsConfigTopP' Lens
+chatCompletionsConfigTopPL :: Lens_' ChatCompletionsConfig (Maybe Double)
+chatCompletionsConfigTopPL f ChatCompletionsConfig{..} = (\chatCompletionsConfigTopP -> ChatCompletionsConfig { chatCompletionsConfigTopP, ..} ) <$> f chatCompletionsConfigTopP
+{-# INLINE chatCompletionsConfigTopPL #-}
+
+-- | 'chatCompletionsConfigMaxTokens' Lens
+chatCompletionsConfigMaxTokensL :: Lens_' ChatCompletionsConfig (Maybe Int)
+chatCompletionsConfigMaxTokensL f ChatCompletionsConfig{..} = (\chatCompletionsConfigMaxTokens -> ChatCompletionsConfig { chatCompletionsConfigMaxTokens, ..} ) <$> f chatCompletionsConfigMaxTokens
+{-# INLINE chatCompletionsConfigMaxTokensL #-}
+
+-- | 'chatCompletionsConfigStop' Lens
+chatCompletionsConfigStopL :: Lens_' ChatCompletionsConfig (Maybe Stop)
+chatCompletionsConfigStopL f ChatCompletionsConfig{..} = (\chatCompletionsConfigStop -> ChatCompletionsConfig { chatCompletionsConfigStop, ..} ) <$> f chatCompletionsConfigStop
+{-# INLINE chatCompletionsConfigStopL #-}
+
+-- | 'chatCompletionsConfigApiKey' Lens
+chatCompletionsConfigApiKeyL :: Lens_' ChatCompletionsConfig (Maybe ApiKey)
+chatCompletionsConfigApiKeyL f ChatCompletionsConfig{..} = (\chatCompletionsConfigApiKey -> ChatCompletionsConfig { chatCompletionsConfigApiKey, ..} ) <$> f chatCompletionsConfigApiKey
+{-# INLINE chatCompletionsConfigApiKeyL #-}
+
+-- | 'chatCompletionsConfigBaseUrl' Lens
+chatCompletionsConfigBaseUrlL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigBaseUrlL f ChatCompletionsConfig{..} = (\chatCompletionsConfigBaseUrl -> ChatCompletionsConfig { chatCompletionsConfigBaseUrl, ..} ) <$> f chatCompletionsConfigBaseUrl
+{-# INLINE chatCompletionsConfigBaseUrlL #-}
+
+-- | 'chatCompletionsConfigWebSearch' Lens
+chatCompletionsConfigWebSearchL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigWebSearchL f ChatCompletionsConfig{..} = (\chatCompletionsConfigWebSearch -> ChatCompletionsConfig { chatCompletionsConfigWebSearch, ..} ) <$> f chatCompletionsConfigWebSearch
+{-# INLINE chatCompletionsConfigWebSearchL #-}
+
+-- | 'chatCompletionsConfigProxy' Lens
+chatCompletionsConfigProxyL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigProxyL f ChatCompletionsConfig{..} = (\chatCompletionsConfigProxy -> ChatCompletionsConfig { chatCompletionsConfigProxy, ..} ) <$> f chatCompletionsConfigProxy
+{-# INLINE chatCompletionsConfigProxyL #-}
+
+-- | 'chatCompletionsConfigConversation' Lens
+chatCompletionsConfigConversationL :: Lens_' ChatCompletionsConfig (Maybe (Map.Map String AnyType))
+chatCompletionsConfigConversationL f ChatCompletionsConfig{..} = (\chatCompletionsConfigConversation -> ChatCompletionsConfig { chatCompletionsConfigConversation, ..} ) <$> f chatCompletionsConfigConversation
+{-# INLINE chatCompletionsConfigConversationL #-}
+
+-- | 'chatCompletionsConfigTimeout' Lens
+chatCompletionsConfigTimeoutL :: Lens_' ChatCompletionsConfig (Maybe Int)
+chatCompletionsConfigTimeoutL f ChatCompletionsConfig{..} = (\chatCompletionsConfigTimeout -> ChatCompletionsConfig { chatCompletionsConfigTimeout, ..} ) <$> f chatCompletionsConfigTimeout
+{-# INLINE chatCompletionsConfigTimeoutL #-}
+
+-- | 'chatCompletionsConfigStreamTimeout' Lens
+chatCompletionsConfigStreamTimeoutL :: Lens_' ChatCompletionsConfig (Maybe Int)
+chatCompletionsConfigStreamTimeoutL f ChatCompletionsConfig{..} = (\chatCompletionsConfigStreamTimeout -> ChatCompletionsConfig { chatCompletionsConfigStreamTimeout, ..} ) <$> f chatCompletionsConfigStreamTimeout
+{-# INLINE chatCompletionsConfigStreamTimeoutL #-}
+
+-- | 'chatCompletionsConfigToolCalls' Lens
+chatCompletionsConfigToolCallsL :: Lens_' ChatCompletionsConfig (Maybe [AnyType])
+chatCompletionsConfigToolCallsL f ChatCompletionsConfig{..} = (\chatCompletionsConfigToolCalls -> ChatCompletionsConfig { chatCompletionsConfigToolCalls, ..} ) <$> f chatCompletionsConfigToolCalls
+{-# INLINE chatCompletionsConfigToolCallsL #-}
+
+-- | 'chatCompletionsConfigReasoningEffort' Lens
+chatCompletionsConfigReasoningEffortL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigReasoningEffortL f ChatCompletionsConfig{..} = (\chatCompletionsConfigReasoningEffort -> ChatCompletionsConfig { chatCompletionsConfigReasoningEffort, ..} ) <$> f chatCompletionsConfigReasoningEffort
+{-# INLINE chatCompletionsConfigReasoningEffortL #-}
+
+-- | 'chatCompletionsConfigLogitBias' Lens
+chatCompletionsConfigLogitBiasL :: Lens_' ChatCompletionsConfig (Maybe (Map.Map String AnyType))
+chatCompletionsConfigLogitBiasL f ChatCompletionsConfig{..} = (\chatCompletionsConfigLogitBias -> ChatCompletionsConfig { chatCompletionsConfigLogitBias, ..} ) <$> f chatCompletionsConfigLogitBias
+{-# INLINE chatCompletionsConfigLogitBiasL #-}
+
+-- | 'chatCompletionsConfigAudio' Lens
+chatCompletionsConfigAudioL :: Lens_' ChatCompletionsConfig (Maybe (Map.Map String AnyType))
+chatCompletionsConfigAudioL f ChatCompletionsConfig{..} = (\chatCompletionsConfigAudio -> ChatCompletionsConfig { chatCompletionsConfigAudio, ..} ) <$> f chatCompletionsConfigAudio
+{-# INLINE chatCompletionsConfigAudioL #-}
+
+-- | 'chatCompletionsConfigResponseFormat' Lens
+chatCompletionsConfigResponseFormatL :: Lens_' ChatCompletionsConfig (Maybe (Map.Map String AnyType))
+chatCompletionsConfigResponseFormatL f ChatCompletionsConfig{..} = (\chatCompletionsConfigResponseFormat -> ChatCompletionsConfig { chatCompletionsConfigResponseFormat, ..} ) <$> f chatCompletionsConfigResponseFormat
+{-# INLINE chatCompletionsConfigResponseFormatL #-}
+
+-- | 'chatCompletionsConfigDownloadMedia' Lens
+chatCompletionsConfigDownloadMediaL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigDownloadMediaL f ChatCompletionsConfig{..} = (\chatCompletionsConfigDownloadMedia -> ChatCompletionsConfig { chatCompletionsConfigDownloadMedia, ..} ) <$> f chatCompletionsConfigDownloadMedia
+{-# INLINE chatCompletionsConfigDownloadMediaL #-}
+
+-- | 'chatCompletionsConfigRaw' Lens
+chatCompletionsConfigRawL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigRawL f ChatCompletionsConfig{..} = (\chatCompletionsConfigRaw -> ChatCompletionsConfig { chatCompletionsConfigRaw, ..} ) <$> f chatCompletionsConfigRaw
+{-# INLINE chatCompletionsConfigRawL #-}
+
+-- | 'chatCompletionsConfigExtraBody' Lens
+chatCompletionsConfigExtraBodyL :: Lens_' ChatCompletionsConfig (Maybe (Map.Map String AnyType))
+chatCompletionsConfigExtraBodyL f ChatCompletionsConfig{..} = (\chatCompletionsConfigExtraBody -> ChatCompletionsConfig { chatCompletionsConfigExtraBody, ..} ) <$> f chatCompletionsConfigExtraBody
+{-# INLINE chatCompletionsConfigExtraBodyL #-}
+
+-- | 'chatCompletionsConfigToolEmulation' Lens
+chatCompletionsConfigToolEmulationL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigToolEmulationL f ChatCompletionsConfig{..} = (\chatCompletionsConfigToolEmulation -> ChatCompletionsConfig { chatCompletionsConfigToolEmulation, ..} ) <$> f chatCompletionsConfigToolEmulation
+{-# INLINE chatCompletionsConfigToolEmulationL #-}
+
+-- | 'chatCompletionsConfigMessages' Lens
+chatCompletionsConfigMessagesL :: Lens_' ChatCompletionsConfig ([Message])
+chatCompletionsConfigMessagesL f ChatCompletionsConfig{..} = (\chatCompletionsConfigMessages -> ChatCompletionsConfig { chatCompletionsConfigMessages, ..} ) <$> f chatCompletionsConfigMessages
+{-# INLINE chatCompletionsConfigMessagesL #-}
+
+-- | 'chatCompletionsConfigStream' Lens
+chatCompletionsConfigStreamL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigStreamL f ChatCompletionsConfig{..} = (\chatCompletionsConfigStream -> ChatCompletionsConfig { chatCompletionsConfigStream, ..} ) <$> f chatCompletionsConfigStream
+{-# INLINE chatCompletionsConfigStreamL #-}
+
+-- | 'chatCompletionsConfigImage' Lens
+chatCompletionsConfigImageL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigImageL f ChatCompletionsConfig{..} = (\chatCompletionsConfigImage -> ChatCompletionsConfig { chatCompletionsConfigImage, ..} ) <$> f chatCompletionsConfigImage
+{-# INLINE chatCompletionsConfigImageL #-}
+
+-- | 'chatCompletionsConfigImageName' Lens
+chatCompletionsConfigImageNameL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigImageNameL f ChatCompletionsConfig{..} = (\chatCompletionsConfigImageName -> ChatCompletionsConfig { chatCompletionsConfigImageName, ..} ) <$> f chatCompletionsConfigImageName
+{-# INLINE chatCompletionsConfigImageNameL #-}
+
+-- | 'chatCompletionsConfigImages' Lens
+chatCompletionsConfigImagesL :: Lens_' ChatCompletionsConfig (Maybe [[AnyType]])
+chatCompletionsConfigImagesL f ChatCompletionsConfig{..} = (\chatCompletionsConfigImages -> ChatCompletionsConfig { chatCompletionsConfigImages, ..} ) <$> f chatCompletionsConfigImages
+{-# INLINE chatCompletionsConfigImagesL #-}
+
+-- | 'chatCompletionsConfigTools' Lens
+chatCompletionsConfigToolsL :: Lens_' ChatCompletionsConfig (Maybe [AnyType])
+chatCompletionsConfigToolsL f ChatCompletionsConfig{..} = (\chatCompletionsConfigTools -> ChatCompletionsConfig { chatCompletionsConfigTools, ..} ) <$> f chatCompletionsConfigTools
+{-# INLINE chatCompletionsConfigToolsL #-}
+
+-- | 'chatCompletionsConfigParallelToolCalls' Lens
+chatCompletionsConfigParallelToolCallsL :: Lens_' ChatCompletionsConfig (Maybe Bool)
+chatCompletionsConfigParallelToolCallsL f ChatCompletionsConfig{..} = (\chatCompletionsConfigParallelToolCalls -> ChatCompletionsConfig { chatCompletionsConfigParallelToolCalls, ..} ) <$> f chatCompletionsConfigParallelToolCalls
+{-# INLINE chatCompletionsConfigParallelToolCallsL #-}
+
+-- | 'chatCompletionsConfigToolChoice' Lens
+chatCompletionsConfigToolChoiceL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigToolChoiceL f ChatCompletionsConfig{..} = (\chatCompletionsConfigToolChoice -> ChatCompletionsConfig { chatCompletionsConfigToolChoice, ..} ) <$> f chatCompletionsConfigToolChoice
+{-# INLINE chatCompletionsConfigToolChoiceL #-}
+
+-- | 'chatCompletionsConfigConversationId' Lens
+chatCompletionsConfigConversationIdL :: Lens_' ChatCompletionsConfig (Maybe Text)
+chatCompletionsConfigConversationIdL f ChatCompletionsConfig{..} = (\chatCompletionsConfigConversationId -> ChatCompletionsConfig { chatCompletionsConfigConversationId, ..} ) <$> f chatCompletionsConfigConversationId
+{-# INLINE chatCompletionsConfigConversationIdL #-}
+
+
+
+-- * CompletionTokenDetails
+
+-- | 'completionTokenDetailsReasoningTokens' Lens
+completionTokenDetailsReasoningTokensL :: Lens_' CompletionTokenDetails (Int)
+completionTokenDetailsReasoningTokensL f CompletionTokenDetails{..} = (\completionTokenDetailsReasoningTokens -> CompletionTokenDetails { completionTokenDetailsReasoningTokens, ..} ) <$> f completionTokenDetailsReasoningTokens
+{-# INLINE completionTokenDetailsReasoningTokensL #-}
+
+-- | 'completionTokenDetailsImageTokens' Lens
+completionTokenDetailsImageTokensL :: Lens_' CompletionTokenDetails (Int)
+completionTokenDetailsImageTokensL f CompletionTokenDetails{..} = (\completionTokenDetailsImageTokens -> CompletionTokenDetails { completionTokenDetailsImageTokens, ..} ) <$> f completionTokenDetailsImageTokens
+{-# INLINE completionTokenDetailsImageTokensL #-}
+
+-- | 'completionTokenDetailsAudioTokens' Lens
+completionTokenDetailsAudioTokensL :: Lens_' CompletionTokenDetails (Int)
+completionTokenDetailsAudioTokensL f CompletionTokenDetails{..} = (\completionTokenDetailsAudioTokens -> CompletionTokenDetails { completionTokenDetailsAudioTokens, ..} ) <$> f completionTokenDetailsAudioTokens
+{-# INLINE completionTokenDetailsAudioTokensL #-}
+
+
+
+-- * Content
+
+
+
+-- * ContentPart
+
+-- | 'contentPartType' Lens
+contentPartTypeL :: Lens_' ContentPart (Maybe Text)
+contentPartTypeL f ContentPart{..} = (\contentPartType -> ContentPart { contentPartType, ..} ) <$> f contentPartType
+{-# INLINE contentPartTypeL #-}
+
+-- | 'contentPartText' Lens
+contentPartTextL :: Lens_' ContentPart (Maybe Text)
+contentPartTextL f ContentPart{..} = (\contentPartText -> ContentPart { contentPartText, ..} ) <$> f contentPartText
+{-# INLINE contentPartTextL #-}
+
+-- | 'contentPartImageUrl' Lens
+contentPartImageUrlL :: Lens_' ContentPart (Maybe (Map.Map String Text))
+contentPartImageUrlL f ContentPart{..} = (\contentPartImageUrl -> ContentPart { contentPartImageUrl, ..} ) <$> f contentPartImageUrl
+{-# INLINE contentPartImageUrlL #-}
+
+-- | 'contentPartInputAudio' Lens
+contentPartInputAudioL :: Lens_' ContentPart (Maybe (Map.Map String Text))
+contentPartInputAudioL f ContentPart{..} = (\contentPartInputAudio -> ContentPart { contentPartInputAudio, ..} ) <$> f contentPartInputAudio
+{-# INLINE contentPartInputAudioL #-}
+
+-- | 'contentPartBucketId' Lens
+contentPartBucketIdL :: Lens_' ContentPart (Maybe Text)
+contentPartBucketIdL f ContentPart{..} = (\contentPartBucketId -> ContentPart { contentPartBucketId, ..} ) <$> f contentPartBucketId
+{-# INLINE contentPartBucketIdL #-}
+
+-- | 'contentPartName' Lens
+contentPartNameL :: Lens_' ContentPart (Maybe Text)
+contentPartNameL f ContentPart{..} = (\contentPartName -> ContentPart { contentPartName, ..} ) <$> f contentPartName
+{-# INLINE contentPartNameL #-}
+
+
+
+-- * ErrorResponseMessageModel
+
+-- | 'errorResponseMessageModelMessage' Lens
+errorResponseMessageModelMessageL :: Lens_' ErrorResponseMessageModel (Text)
+errorResponseMessageModelMessageL f ErrorResponseMessageModel{..} = (\errorResponseMessageModelMessage -> ErrorResponseMessageModel { errorResponseMessageModelMessage, ..} ) <$> f errorResponseMessageModelMessage
+{-# INLINE errorResponseMessageModelMessageL #-}
+
+
+
+-- * ErrorResponseModel
+
+-- | 'errorResponseModelError' Lens
+errorResponseModelErrorL :: Lens_' ErrorResponseModel (ErrorResponseMessageModel)
+errorResponseModelErrorL f ErrorResponseModel{..} = (\errorResponseModelError -> ErrorResponseModel { errorResponseModelError, ..} ) <$> f errorResponseModelError
+{-# INLINE errorResponseModelErrorL #-}
+
+-- | 'errorResponseModelModel' Lens
+errorResponseModelModelL :: Lens_' ErrorResponseModel (Maybe Text)
+errorResponseModelModelL f ErrorResponseModel{..} = (\errorResponseModelModel -> ErrorResponseModel { errorResponseModelModel, ..} ) <$> f errorResponseModelModel
+{-# INLINE errorResponseModelModelL #-}
+
+-- | 'errorResponseModelProvider' Lens
+errorResponseModelProviderL :: Lens_' ErrorResponseModel (Maybe Text)
+errorResponseModelProviderL f ErrorResponseModel{..} = (\errorResponseModelProvider -> ErrorResponseModel { errorResponseModelProvider, ..} ) <$> f errorResponseModelProvider
+{-# INLINE errorResponseModelProviderL #-}
+
+
+
+-- * FileResponseModel
+
+-- | 'fileResponseModelFilename' Lens
+fileResponseModelFilenameL :: Lens_' FileResponseModel (Text)
+fileResponseModelFilenameL f FileResponseModel{..} = (\fileResponseModelFilename -> FileResponseModel { fileResponseModelFilename, ..} ) <$> f fileResponseModelFilename
+{-# INLINE fileResponseModelFilenameL #-}
+
+
+
+-- * HTTPValidationError
+
+-- | 'hTTPValidationErrorDetail' Lens
+hTTPValidationErrorDetailL :: Lens_' HTTPValidationError (Maybe [ValidationError])
+hTTPValidationErrorDetailL f HTTPValidationError{..} = (\hTTPValidationErrorDetail -> HTTPValidationError { hTTPValidationErrorDetail, ..} ) <$> f hTTPValidationErrorDetail
+{-# INLINE hTTPValidationErrorDetailL #-}
+
+
+
+-- * Image
+
+-- | 'imageUrl' Lens
+imageUrlL :: Lens_' Image (Text)
+imageUrlL f Image{..} = (\imageUrl -> Image { imageUrl, ..} ) <$> f imageUrl
+{-# INLINE imageUrlL #-}
+
+-- | 'imageB64Json' Lens
+imageB64JsonL :: Lens_' Image (Text)
+imageB64JsonL f Image{..} = (\imageB64Json -> Image { imageB64Json, ..} ) <$> f imageB64Json
+{-# INLINE imageB64JsonL #-}
+
+-- | 'imageRevisedPrompt' Lens
+imageRevisedPromptL :: Lens_' Image (Text)
+imageRevisedPromptL f Image{..} = (\imageRevisedPrompt -> Image { imageRevisedPrompt, ..} ) <$> f imageRevisedPrompt
+{-# INLINE imageRevisedPromptL #-}
+
+
+
+-- * ImageGenerationConfig
+
+-- | 'imageGenerationConfigPrompt' Lens
+imageGenerationConfigPromptL :: Lens_' ImageGenerationConfig (Text)
+imageGenerationConfigPromptL f ImageGenerationConfig{..} = (\imageGenerationConfigPrompt -> ImageGenerationConfig { imageGenerationConfigPrompt, ..} ) <$> f imageGenerationConfigPrompt
+{-# INLINE imageGenerationConfigPromptL #-}
+
+-- | 'imageGenerationConfigModel' Lens
+imageGenerationConfigModelL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigModelL f ImageGenerationConfig{..} = (\imageGenerationConfigModel -> ImageGenerationConfig { imageGenerationConfigModel, ..} ) <$> f imageGenerationConfigModel
+{-# INLINE imageGenerationConfigModelL #-}
+
+-- | 'imageGenerationConfigProvider' Lens
+imageGenerationConfigProviderL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigProviderL f ImageGenerationConfig{..} = (\imageGenerationConfigProvider -> ImageGenerationConfig { imageGenerationConfigProvider, ..} ) <$> f imageGenerationConfigProvider
+{-# INLINE imageGenerationConfigProviderL #-}
+
+-- | 'imageGenerationConfigResponseFormat' Lens
+imageGenerationConfigResponseFormatL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigResponseFormatL f ImageGenerationConfig{..} = (\imageGenerationConfigResponseFormat -> ImageGenerationConfig { imageGenerationConfigResponseFormat, ..} ) <$> f imageGenerationConfigResponseFormat
+{-# INLINE imageGenerationConfigResponseFormatL #-}
+
+-- | 'imageGenerationConfigApiKey' Lens
+imageGenerationConfigApiKeyL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigApiKeyL f ImageGenerationConfig{..} = (\imageGenerationConfigApiKey -> ImageGenerationConfig { imageGenerationConfigApiKey, ..} ) <$> f imageGenerationConfigApiKey
+{-# INLINE imageGenerationConfigApiKeyL #-}
+
+-- | 'imageGenerationConfigProxy' Lens
+imageGenerationConfigProxyL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigProxyL f ImageGenerationConfig{..} = (\imageGenerationConfigProxy -> ImageGenerationConfig { imageGenerationConfigProxy, ..} ) <$> f imageGenerationConfigProxy
+{-# INLINE imageGenerationConfigProxyL #-}
+
+-- | 'imageGenerationConfigWidth' Lens
+imageGenerationConfigWidthL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigWidthL f ImageGenerationConfig{..} = (\imageGenerationConfigWidth -> ImageGenerationConfig { imageGenerationConfigWidth, ..} ) <$> f imageGenerationConfigWidth
+{-# INLINE imageGenerationConfigWidthL #-}
+
+-- | 'imageGenerationConfigHeight' Lens
+imageGenerationConfigHeightL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigHeightL f ImageGenerationConfig{..} = (\imageGenerationConfigHeight -> ImageGenerationConfig { imageGenerationConfigHeight, ..} ) <$> f imageGenerationConfigHeight
+{-# INLINE imageGenerationConfigHeightL #-}
+
+-- | 'imageGenerationConfigNumInferenceSteps' Lens
+imageGenerationConfigNumInferenceStepsL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigNumInferenceStepsL f ImageGenerationConfig{..} = (\imageGenerationConfigNumInferenceSteps -> ImageGenerationConfig { imageGenerationConfigNumInferenceSteps, ..} ) <$> f imageGenerationConfigNumInferenceSteps
+{-# INLINE imageGenerationConfigNumInferenceStepsL #-}
+
+-- | 'imageGenerationConfigSeed' Lens
+imageGenerationConfigSeedL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigSeedL f ImageGenerationConfig{..} = (\imageGenerationConfigSeed -> ImageGenerationConfig { imageGenerationConfigSeed, ..} ) <$> f imageGenerationConfigSeed
+{-# INLINE imageGenerationConfigSeedL #-}
+
+-- | 'imageGenerationConfigGuidanceScale' Lens
+imageGenerationConfigGuidanceScaleL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigGuidanceScaleL f ImageGenerationConfig{..} = (\imageGenerationConfigGuidanceScale -> ImageGenerationConfig { imageGenerationConfigGuidanceScale, ..} ) <$> f imageGenerationConfigGuidanceScale
+{-# INLINE imageGenerationConfigGuidanceScaleL #-}
+
+-- | 'imageGenerationConfigAspectRatio' Lens
+imageGenerationConfigAspectRatioL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigAspectRatioL f ImageGenerationConfig{..} = (\imageGenerationConfigAspectRatio -> ImageGenerationConfig { imageGenerationConfigAspectRatio, ..} ) <$> f imageGenerationConfigAspectRatio
+{-# INLINE imageGenerationConfigAspectRatioL #-}
+
+-- | 'imageGenerationConfigN' Lens
+imageGenerationConfigNL :: Lens_' ImageGenerationConfig (Maybe Int)
+imageGenerationConfigNL f ImageGenerationConfig{..} = (\imageGenerationConfigN -> ImageGenerationConfig { imageGenerationConfigN, ..} ) <$> f imageGenerationConfigN
+{-# INLINE imageGenerationConfigNL #-}
+
+-- | 'imageGenerationConfigNegativePrompt' Lens
+imageGenerationConfigNegativePromptL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigNegativePromptL f ImageGenerationConfig{..} = (\imageGenerationConfigNegativePrompt -> ImageGenerationConfig { imageGenerationConfigNegativePrompt, ..} ) <$> f imageGenerationConfigNegativePrompt
+{-# INLINE imageGenerationConfigNegativePromptL #-}
+
+-- | 'imageGenerationConfigResolution' Lens
+imageGenerationConfigResolutionL :: Lens_' ImageGenerationConfig (Maybe Text)
+imageGenerationConfigResolutionL f ImageGenerationConfig{..} = (\imageGenerationConfigResolution -> ImageGenerationConfig { imageGenerationConfigResolution, ..} ) <$> f imageGenerationConfigResolution
+{-# INLINE imageGenerationConfigResolutionL #-}
+
+-- | 'imageGenerationConfigAudio' Lens
+imageGenerationConfigAudioL :: Lens_' ImageGenerationConfig (Maybe (Map.Map String AnyType))
+imageGenerationConfigAudioL f ImageGenerationConfig{..} = (\imageGenerationConfigAudio -> ImageGenerationConfig { imageGenerationConfigAudio, ..} ) <$> f imageGenerationConfigAudio
+{-# INLINE imageGenerationConfigAudioL #-}
+
+-- | 'imageGenerationConfigDownloadMedia' Lens
+imageGenerationConfigDownloadMediaL :: Lens_' ImageGenerationConfig (Maybe Bool)
+imageGenerationConfigDownloadMediaL f ImageGenerationConfig{..} = (\imageGenerationConfigDownloadMedia -> ImageGenerationConfig { imageGenerationConfigDownloadMedia, ..} ) <$> f imageGenerationConfigDownloadMedia
+{-# INLINE imageGenerationConfigDownloadMediaL #-}
+
+
+
+-- * ImagesResponse
+
+-- | 'imagesResponseData' Lens
+imagesResponseDataL :: Lens_' ImagesResponse ([Image])
+imagesResponseDataL f ImagesResponse{..} = (\imagesResponseData -> ImagesResponse { imagesResponseData, ..} ) <$> f imagesResponseData
+{-# INLINE imagesResponseDataL #-}
+
+-- | 'imagesResponseModel' Lens
+imagesResponseModelL :: Lens_' ImagesResponse (Text)
+imagesResponseModelL f ImagesResponse{..} = (\imagesResponseModel -> ImagesResponse { imagesResponseModel, ..} ) <$> f imagesResponseModel
+{-# INLINE imagesResponseModelL #-}
+
+-- | 'imagesResponseProvider' Lens
+imagesResponseProviderL :: Lens_' ImagesResponse (Text)
+imagesResponseProviderL f ImagesResponse{..} = (\imagesResponseProvider -> ImagesResponse { imagesResponseProvider, ..} ) <$> f imagesResponseProvider
+{-# INLINE imagesResponseProviderL #-}
+
+-- | 'imagesResponseCreated' Lens
+imagesResponseCreatedL :: Lens_' ImagesResponse (Int)
+imagesResponseCreatedL f ImagesResponse{..} = (\imagesResponseCreated -> ImagesResponse { imagesResponseCreated, ..} ) <$> f imagesResponseCreated
+{-# INLINE imagesResponseCreatedL #-}
+
+
+
+-- * Message
+
+-- | 'messageRole' Lens
+messageRoleL :: Lens_' Message (Text)
+messageRoleL f Message{..} = (\messageRole -> Message { messageRole, ..} ) <$> f messageRole
+{-# INLINE messageRoleL #-}
+
+-- | 'messageContent' Lens
+messageContentL :: Lens_' Message (Content)
+messageContentL f Message{..} = (\messageContent -> Message { messageContent, ..} ) <$> f messageContent
+{-# INLINE messageContentL #-}
+
+
+
+-- * ModelResponseModel
+
+-- | 'modelResponseModelId' Lens
+modelResponseModelIdL :: Lens_' ModelResponseModel (Text)
+modelResponseModelIdL f ModelResponseModel{..} = (\modelResponseModelId -> ModelResponseModel { modelResponseModelId, ..} ) <$> f modelResponseModelId
+{-# INLINE modelResponseModelIdL #-}
+
+-- | 'modelResponseModelObject' Lens
+modelResponseModelObjectL :: Lens_' ModelResponseModel (Maybe Text)
+modelResponseModelObjectL f ModelResponseModel{..} = (\modelResponseModelObject -> ModelResponseModel { modelResponseModelObject, ..} ) <$> f modelResponseModelObject
+{-# INLINE modelResponseModelObjectL #-}
+
+-- | 'modelResponseModelCreated' Lens
+modelResponseModelCreatedL :: Lens_' ModelResponseModel (Int)
+modelResponseModelCreatedL f ModelResponseModel{..} = (\modelResponseModelCreated -> ModelResponseModel { modelResponseModelCreated, ..} ) <$> f modelResponseModelCreated
+{-# INLINE modelResponseModelCreatedL #-}
+
+-- | 'modelResponseModelOwnedBy' Lens
+modelResponseModelOwnedByL :: Lens_' ModelResponseModel (Text)
+modelResponseModelOwnedByL f ModelResponseModel{..} = (\modelResponseModelOwnedBy -> ModelResponseModel { modelResponseModelOwnedBy, ..} ) <$> f modelResponseModelOwnedBy
+{-# INLINE modelResponseModelOwnedByL #-}
+
+
+
+-- * PromptTokenDetails
+
+-- | 'promptTokenDetailsCachedTokens' Lens
+promptTokenDetailsCachedTokensL :: Lens_' PromptTokenDetails (Int)
+promptTokenDetailsCachedTokensL f PromptTokenDetails{..} = (\promptTokenDetailsCachedTokens -> PromptTokenDetails { promptTokenDetailsCachedTokens, ..} ) <$> f promptTokenDetailsCachedTokens
+{-# INLINE promptTokenDetailsCachedTokensL #-}
+
+-- | 'promptTokenDetailsAudioTokens' Lens
+promptTokenDetailsAudioTokensL :: Lens_' PromptTokenDetails (Int)
+promptTokenDetailsAudioTokensL f PromptTokenDetails{..} = (\promptTokenDetailsAudioTokens -> PromptTokenDetails { promptTokenDetailsAudioTokens, ..} ) <$> f promptTokenDetailsAudioTokens
+{-# INLINE promptTokenDetailsAudioTokensL #-}
+
+
+
+-- * ProviderResponseDetailModel
+
+-- | 'providerResponseDetailModelId' Lens
+providerResponseDetailModelIdL :: Lens_' ProviderResponseDetailModel (Text)
+providerResponseDetailModelIdL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelId -> ProviderResponseDetailModel { providerResponseDetailModelId, ..} ) <$> f providerResponseDetailModelId
+{-# INLINE providerResponseDetailModelIdL #-}
+
+-- | 'providerResponseDetailModelObject' Lens
+providerResponseDetailModelObjectL :: Lens_' ProviderResponseDetailModel (Maybe Text)
+providerResponseDetailModelObjectL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelObject -> ProviderResponseDetailModel { providerResponseDetailModelObject, ..} ) <$> f providerResponseDetailModelObject
+{-# INLINE providerResponseDetailModelObjectL #-}
+
+-- | 'providerResponseDetailModelCreated' Lens
+providerResponseDetailModelCreatedL :: Lens_' ProviderResponseDetailModel (Int)
+providerResponseDetailModelCreatedL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelCreated -> ProviderResponseDetailModel { providerResponseDetailModelCreated, ..} ) <$> f providerResponseDetailModelCreated
+{-# INLINE providerResponseDetailModelCreatedL #-}
+
+-- | 'providerResponseDetailModelUrl' Lens
+providerResponseDetailModelUrlL :: Lens_' ProviderResponseDetailModel (Text)
+providerResponseDetailModelUrlL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelUrl -> ProviderResponseDetailModel { providerResponseDetailModelUrl, ..} ) <$> f providerResponseDetailModelUrl
+{-# INLINE providerResponseDetailModelUrlL #-}
+
+-- | 'providerResponseDetailModelLabel' Lens
+providerResponseDetailModelLabelL :: Lens_' ProviderResponseDetailModel (Text)
+providerResponseDetailModelLabelL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelLabel -> ProviderResponseDetailModel { providerResponseDetailModelLabel, ..} ) <$> f providerResponseDetailModelLabel
+{-# INLINE providerResponseDetailModelLabelL #-}
+
+-- | 'providerResponseDetailModelModels' Lens
+providerResponseDetailModelModelsL :: Lens_' ProviderResponseDetailModel ([Text])
+providerResponseDetailModelModelsL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelModels -> ProviderResponseDetailModel { providerResponseDetailModelModels, ..} ) <$> f providerResponseDetailModelModels
+{-# INLINE providerResponseDetailModelModelsL #-}
+
+-- | 'providerResponseDetailModelImageModels' Lens
+providerResponseDetailModelImageModelsL :: Lens_' ProviderResponseDetailModel ([Text])
+providerResponseDetailModelImageModelsL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelImageModels -> ProviderResponseDetailModel { providerResponseDetailModelImageModels, ..} ) <$> f providerResponseDetailModelImageModels
+{-# INLINE providerResponseDetailModelImageModelsL #-}
+
+-- | 'providerResponseDetailModelVisionModels' Lens
+providerResponseDetailModelVisionModelsL :: Lens_' ProviderResponseDetailModel ([Text])
+providerResponseDetailModelVisionModelsL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelVisionModels -> ProviderResponseDetailModel { providerResponseDetailModelVisionModels, ..} ) <$> f providerResponseDetailModelVisionModels
+{-# INLINE providerResponseDetailModelVisionModelsL #-}
+
+-- | 'providerResponseDetailModelParams' Lens
+providerResponseDetailModelParamsL :: Lens_' ProviderResponseDetailModel ([Text])
+providerResponseDetailModelParamsL f ProviderResponseDetailModel{..} = (\providerResponseDetailModelParams -> ProviderResponseDetailModel { providerResponseDetailModelParams, ..} ) <$> f providerResponseDetailModelParams
+{-# INLINE providerResponseDetailModelParamsL #-}
+
+
+
+-- * ProviderResponseModel
+
+-- | 'providerResponseModelId' Lens
+providerResponseModelIdL :: Lens_' ProviderResponseModel (Text)
+providerResponseMo