{- 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) providerResponseModelIdL f ProviderResponseModel{..} = (\providerResponseModelId -> ProviderResponseModel { providerResponseModelId, ..} ) <$> f providerResponseModelId {-# INLINE providerResponseModelIdL #-} -- | 'providerResponseModelObject' Lens providerResponseModelObjectL :: Lens_' ProviderResponseModel (Maybe Text) providerResponseModelObjectL f ProviderResponseModel{..} = (\providerResponseModelObject -> ProviderResponseModel { providerResponseModelObject, ..} ) <$> f providerResponseModelObject {-# INLINE providerResponseModelObjectL #-} -- | 'providerResponseModelCreated' Lens providerResponseModelCreatedL :: Lens_' ProviderResponseModel (Int) providerResponseModelCreatedL f ProviderResponseModel{..} = (\providerResponseModelCreated -> ProviderResponseModel { providerResponseModelCreated, ..} ) <$> f providerResponseModelCreated {-# INLINE providerResponseModelCreatedL #-} -- | 'providerResponseModelUrl' Lens providerResponseModelUrlL :: Lens_' ProviderResponseModel (Text) providerResponseModelUrlL f ProviderResponseModel{..} = (\providerResponseModelUrl -> ProviderResponseModel { providerResponseModelUrl, ..} ) <$> f providerResponseModelUrl {-# INLINE providerResponseModelUrlL #-} -- | 'providerResponseModelLabel' Lens providerResponseModelLabelL :: Lens_' ProviderResponseModel (Text) providerResponseModelLabelL f ProviderResponseModel{..} = (\providerResponseModelLabel -> ProviderResponseModel { providerResponseModelLabel, ..} ) <$> f providerResponseModelLabel {-# INLINE providerResponseModelLabelL #-} -- * Stop -- * ToolCallModel -- | 'toolCallModelId' Lens toolCallModelIdL :: Lens_' ToolCallModel (Text) toolCallModelIdL f ToolCallModel{..} = (\toolCallModelId -> ToolCallModel { toolCallModelId, ..} ) <$> f toolCallModelId {-# INLINE toolCallModelIdL #-} -- | 'toolCallModelType' Lens toolCallModelTypeL :: Lens_' ToolCallModel (Text) toolCallModelTypeL f ToolCallModel{..} = (\toolCallModelType -> ToolCallModel { toolCallModelType, ..} ) <$> f toolCallModelType {-# INLINE toolCallModelTypeL #-} -- | 'toolCallModelFunction' Lens toolCallModelFunctionL :: Lens_' ToolCallModel (ToolFunctionModel) toolCallModelFunctionL f ToolCallModel{..} = (\toolCallModelFunction -> ToolCallModel { toolCallModelFunction, ..} ) <$> f toolCallModelFunction {-# INLINE toolCallModelFunctionL #-} -- * ToolFunctionModel -- | 'toolFunctionModelName' Lens toolFunctionModelNameL :: Lens_' ToolFunctionModel (Text) toolFunctionModelNameL f ToolFunctionModel{..} = (\toolFunctionModelName -> ToolFunctionModel { toolFunctionModelName, ..} ) <$> f toolFunctionModelName {-# INLINE toolFunctionModelNameL #-} -- | 'toolFunctionModelArguments' Lens toolFunctionModelArgumentsL :: Lens_' ToolFunctionModel (Text) toolFunctionModelArgumentsL f ToolFunctionModel{..} = (\toolFunctionModelArguments -> ToolFunctionModel { toolFunctionModelArguments, ..} ) <$> f toolFunctionModelArguments {-# INLINE toolFunctionModelArgumentsL #-} -- * TranscriptionResponseModel -- | 'transcriptionResponseModelText' Lens transcriptionResponseModelTextL :: Lens_' TranscriptionResponseModel (Text) transcriptionResponseModelTextL f TranscriptionResponseModel{..} = (\transcriptionResponseModelText -> TranscriptionResponseModel { transcriptionResponseModelText, ..} ) <$> f transcriptionResponseModelText {-# INLINE transcriptionResponseModelTextL #-} -- | 'transcriptionResponseModelModel' Lens transcriptionResponseModelModelL :: Lens_' TranscriptionResponseModel (Text) transcriptionResponseModelModelL f TranscriptionResponseModel{..} = (\transcriptionResponseModelModel -> TranscriptionResponseModel { transcriptionResponseModelModel, ..} ) <$> f transcriptionResponseModelModel {-# INLINE transcriptionResponseModelModelL #-} -- | 'transcriptionResponseModelProvider' Lens transcriptionResponseModelProviderL :: Lens_' TranscriptionResponseModel (Text) transcriptionResponseModelProviderL f TranscriptionResponseModel{..} = (\transcriptionResponseModelProvider -> TranscriptionResponseModel { transcriptionResponseModelProvider, ..} ) <$> f transcriptionResponseModelProvider {-# INLINE transcriptionResponseModelProviderL #-} -- * UsageModel -- | 'usageModelPromptTokens' Lens usageModelPromptTokensL :: Lens_' UsageModel (Int) usageModelPromptTokensL f UsageModel{..} = (\usageModelPromptTokens -> UsageModel { usageModelPromptTokens, ..} ) <$> f usageModelPromptTokens {-# INLINE usageModelPromptTokensL #-} -- | 'usageModelCompletionTokens' Lens usageModelCompletionTokensL :: Lens_' UsageModel (Int) usageModelCompletionTokensL f UsageModel{..} = (\usageModelCompletionTokens -> UsageModel { usageModelCompletionTokens, ..} ) <$> f usageModelCompletionTokens {-# INLINE usageModelCompletionTokensL #-} -- | 'usageModelTotalTokens' Lens usageModelTotalTokensL :: Lens_' UsageModel (Int) usageModelTotalTokensL f UsageModel{..} = (\usageModelTotalTokens -> UsageModel { usageModelTotalTokens, ..} ) <$> f usageModelTotalTokens {-# INLINE usageModelTotalTokensL #-} -- | 'usageModelPromptTokensDetails' Lens usageModelPromptTokensDetailsL :: Lens_' UsageModel (PromptTokenDetails) usageModelPromptTokensDetailsL f UsageModel{..} = (\usageModelPromptTokensDetails -> UsageModel { usageModelPromptTokensDetails, ..} ) <$> f usageModelPromptTokensDetails {-# INLINE usageModelPromptTokensDetailsL #-} -- | 'usageModelCompletionTokensDetails' Lens usageModelCompletionTokensDetailsL :: Lens_' UsageModel (CompletionTokenDetails) usageModelCompletionTokensDetailsL f UsageModel{..} = (\usageModelCompletionTokensDetails -> UsageModel { usageModelCompletionTokensDetails, ..} ) <$> f usageModelCompletionTokensDetails {-# INLINE usageModelCompletionTokensDetailsL #-} -- | 'usageModelCache' Lens usageModelCacheL :: Lens_' UsageModel (Maybe Text) usageModelCacheL f UsageModel{..} = (\usageModelCache -> UsageModel { usageModelCache, ..} ) <$> f usageModelCache {-# INLINE usageModelCacheL #-} -- * ValidationError -- | 'validationErrorLoc' Lens validationErrorLocL :: Lens_' ValidationError ([ValidationErrorLocInner]) validationErrorLocL f ValidationError{..} = (\validationErrorLoc -> ValidationError { validationErrorLoc, ..} ) <$> f validationErrorLoc {-# INLINE validationErrorLocL #-} -- | 'validationErrorMsg' Lens validationErrorMsgL :: Lens_' ValidationError (Text) validationErrorMsgL f ValidationError{..} = (\validationErrorMsg -> ValidationError { validationErrorMsg, ..} ) <$> f validationErrorMsg {-# INLINE validationErrorMsgL #-} -- | 'validationErrorType' Lens validationErrorTypeL :: Lens_' ValidationError (Text) validationErrorTypeL f ValidationError{..} = (\validationErrorType -> ValidationError { validationErrorType, ..} ) <$> f validationErrorType {-# INLINE validationErrorTypeL #-} -- | 'validationErrorInput' Lens validationErrorInputL :: Lens_' ValidationError (AnyType) validationErrorInputL f ValidationError{..} = (\validationErrorInput -> ValidationError { validationErrorInput, ..} ) <$> f validationErrorInput {-# INLINE validationErrorInputL #-} -- | 'validationErrorCtx' Lens validationErrorCtxL :: Lens_' ValidationError (AnyType) validationErrorCtxL f ValidationError{..} = (\validationErrorCtx -> ValidationError { validationErrorCtx, ..} ) <$> f validationErrorCtx {-# INLINE validationErrorCtxL #-} -- * ValidationErrorLocInner