path: root/lib/G4fClient/ModelLens.hs

{-
   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 :