diff options
Diffstat (limited to 'lib/G4fClient/ModelLens.hs')
| -rw-r--r-- | lib/G4fClient/ModelLens.hs | 858 |
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) +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 |