{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.VideoIntelligence.Types.Product where
import Network.Google.Prelude
import Network.Google.VideoIntelligence.Types.Sum
newtype GoogleRpc_StatusDetailsItem = GoogleRpc_StatusDetailsItem'
{ _grsdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpc_StatusDetailsItem
:: HashMap Text JSONValue
-> GoogleRpc_StatusDetailsItem
googleRpc_StatusDetailsItem pGrsdiAddtional_ =
GoogleRpc_StatusDetailsItem'
{ _grsdiAddtional = _Coerce # pGrsdiAddtional_
}
grsdiAddtional :: Lens' GoogleRpc_StatusDetailsItem (HashMap Text JSONValue)
grsdiAddtional
= lens _grsdiAddtional
(\ s a -> s{_grsdiAddtional = a})
. _Coerce
instance FromJSON GoogleRpc_StatusDetailsItem where
parseJSON
= withObject "GoogleRpcStatusDetailsItem"
(\ o ->
GoogleRpc_StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON GoogleRpc_StatusDetailsItem where
toJSON = toJSON . _grsdiAddtional
newtype GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation = GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation'
{ _gcvvecaFrames :: Maybe [GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_ExplicitContentAnnotation
:: GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation
googleCloudVideointelligenceV1beta2_ExplicitContentAnnotation =
GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation'
{ _gcvvecaFrames = Nothing
}
gcvvecaFrames :: Lens' GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation [GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame]
gcvvecaFrames
= lens _gcvvecaFrames
(\ s a -> s{_gcvvecaFrames = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2ExplicitContentAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation'
<$> (o .:? "frames" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation
where
toJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation'{..}
= object
(catMaybes [("frames" .=) <$> _gcvvecaFrames])
data GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative = GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative'
{ _gcvvsraConfidence :: !(Maybe (Textual Double))
, _gcvvsraWords :: !(Maybe [GoogleCloudVideointelligenceV1_WordInfo])
, _gcvvsraTranscript :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_SpeechRecognitionAlternative
:: GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative
googleCloudVideointelligenceV1_SpeechRecognitionAlternative =
GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative'
{ _gcvvsraConfidence = Nothing
, _gcvvsraWords = Nothing
, _gcvvsraTranscript = Nothing
}
gcvvsraConfidence :: Lens' GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative (Maybe Double)
gcvvsraConfidence
= lens _gcvvsraConfidence
(\ s a -> s{_gcvvsraConfidence = a})
. mapping _Coerce
gcvvsraWords :: Lens' GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative [GoogleCloudVideointelligenceV1_WordInfo]
gcvvsraWords
= lens _gcvvsraWords (\ s a -> s{_gcvvsraWords = a})
. _Default
. _Coerce
gcvvsraTranscript :: Lens' GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative (Maybe Text)
gcvvsraTranscript
= lens _gcvvsraTranscript
(\ s a -> s{_gcvvsraTranscript = a})
instance FromJSON
GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1SpeechRecognitionAlternative"
(\ o ->
GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative'
<$>
(o .:? "confidence") <*> (o .:? "words" .!= mempty)
<*> (o .:? "transcript"))
instance ToJSON
GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative
where
toJSON
GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvsraConfidence,
("words" .=) <$> _gcvvsraWords,
("transcript" .=) <$> _gcvvsraTranscript])
data GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest = GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest'
{ _gcvvavrInputURI :: !(Maybe Text)
, _gcvvavrVideoContext :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_VideoContext)
, _gcvvavrInputContent :: !(Maybe Bytes)
, _gcvvavrFeatures :: !(Maybe [Text])
, _gcvvavrLocationId :: !(Maybe Text)
, _gcvvavrOutputURI :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest
:: GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest
googleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest =
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest'
{ _gcvvavrInputURI = Nothing
, _gcvvavrVideoContext = Nothing
, _gcvvavrInputContent = Nothing
, _gcvvavrFeatures = Nothing
, _gcvvavrLocationId = Nothing
, _gcvvavrOutputURI = Nothing
}
gcvvavrInputURI :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest (Maybe Text)
gcvvavrInputURI
= lens _gcvvavrInputURI
(\ s a -> s{_gcvvavrInputURI = a})
gcvvavrVideoContext :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest (Maybe GoogleCloudVideointelligenceV1p1beta1_VideoContext)
gcvvavrVideoContext
= lens _gcvvavrVideoContext
(\ s a -> s{_gcvvavrVideoContext = a})
gcvvavrInputContent :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest (Maybe ByteString)
gcvvavrInputContent
= lens _gcvvavrInputContent
(\ s a -> s{_gcvvavrInputContent = a})
. mapping _Bytes
gcvvavrFeatures :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest [Text]
gcvvavrFeatures
= lens _gcvvavrFeatures
(\ s a -> s{_gcvvavrFeatures = a})
. _Default
. _Coerce
gcvvavrLocationId :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest (Maybe Text)
gcvvavrLocationId
= lens _gcvvavrLocationId
(\ s a -> s{_gcvvavrLocationId = a})
gcvvavrOutputURI :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest (Maybe Text)
gcvvavrOutputURI
= lens _gcvvavrOutputURI
(\ s a -> s{_gcvvavrOutputURI = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1AnnotateVideoRequest"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest'
<$>
(o .:? "inputUri") <*> (o .:? "videoContext") <*>
(o .:? "inputContent")
<*> (o .:? "features" .!= mempty)
<*> (o .:? "locationId")
<*> (o .:? "outputUri"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoRequest'{..}
= object
(catMaybes
[("inputUri" .=) <$> _gcvvavrInputURI,
("videoContext" .=) <$> _gcvvavrVideoContext,
("inputContent" .=) <$> _gcvvavrInputContent,
("features" .=) <$> _gcvvavrFeatures,
("locationId" .=) <$> _gcvvavrLocationId,
("outputUri" .=) <$> _gcvvavrOutputURI])
newtype GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse = GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse'
{ _gcvvavrAnnotationResults :: Maybe [GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_AnnotateVideoResponse
:: GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse
googleCloudVideointelligenceV1beta2_AnnotateVideoResponse =
GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse'
{ _gcvvavrAnnotationResults = Nothing
}
gcvvavrAnnotationResults :: Lens' GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse [GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults]
gcvvavrAnnotationResults
= lens _gcvvavrAnnotationResults
(\ s a -> s{_gcvvavrAnnotationResults = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2AnnotateVideoResponse"
(\ o ->
GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse'
<$> (o .:? "annotationResults" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse
where
toJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoResponse'{..}
= object
(catMaybes
[("annotationResults" .=) <$>
_gcvvavrAnnotationResults])
data GoogleCloudVideointelligenceV1_WordInfo = GoogleCloudVideointelligenceV1_WordInfo'
{ _gcvvwiStartTime :: !(Maybe GDuration)
, _gcvvwiConfidence :: !(Maybe (Textual Double))
, _gcvvwiEndTime :: !(Maybe GDuration)
, _gcvvwiWord :: !(Maybe Text)
, _gcvvwiSpeakerTag :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_WordInfo
:: GoogleCloudVideointelligenceV1_WordInfo
googleCloudVideointelligenceV1_WordInfo =
GoogleCloudVideointelligenceV1_WordInfo'
{ _gcvvwiStartTime = Nothing
, _gcvvwiConfidence = Nothing
, _gcvvwiEndTime = Nothing
, _gcvvwiWord = Nothing
, _gcvvwiSpeakerTag = Nothing
}
gcvvwiStartTime :: Lens' GoogleCloudVideointelligenceV1_WordInfo (Maybe Scientific)
gcvvwiStartTime
= lens _gcvvwiStartTime
(\ s a -> s{_gcvvwiStartTime = a})
. mapping _GDuration
gcvvwiConfidence :: Lens' GoogleCloudVideointelligenceV1_WordInfo (Maybe Double)
gcvvwiConfidence
= lens _gcvvwiConfidence
(\ s a -> s{_gcvvwiConfidence = a})
. mapping _Coerce
gcvvwiEndTime :: Lens' GoogleCloudVideointelligenceV1_WordInfo (Maybe Scientific)
gcvvwiEndTime
= lens _gcvvwiEndTime
(\ s a -> s{_gcvvwiEndTime = a})
. mapping _GDuration
gcvvwiWord :: Lens' GoogleCloudVideointelligenceV1_WordInfo (Maybe Text)
gcvvwiWord
= lens _gcvvwiWord (\ s a -> s{_gcvvwiWord = a})
gcvvwiSpeakerTag :: Lens' GoogleCloudVideointelligenceV1_WordInfo (Maybe Int32)
gcvvwiSpeakerTag
= lens _gcvvwiSpeakerTag
(\ s a -> s{_gcvvwiSpeakerTag = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1_WordInfo where
parseJSON
= withObject "GoogleCloudVideointelligenceV1WordInfo"
(\ o ->
GoogleCloudVideointelligenceV1_WordInfo' <$>
(o .:? "startTime") <*> (o .:? "confidence") <*>
(o .:? "endTime")
<*> (o .:? "word")
<*> (o .:? "speakerTag"))
instance ToJSON
GoogleCloudVideointelligenceV1_WordInfo where
toJSON GoogleCloudVideointelligenceV1_WordInfo'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcvvwiStartTime,
("confidence" .=) <$> _gcvvwiConfidence,
("endTime" .=) <$> _gcvvwiEndTime,
("word" .=) <$> _gcvvwiWord,
("speakerTag" .=) <$> _gcvvwiSpeakerTag])
data GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame = GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame'
{ _gcvvecfTimeOffSet :: !(Maybe GDuration)
, _gcvvecfPornographyLikelihood :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFramePornographyLikelihood)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_ExplicitContentFrame
:: GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame
googleCloudVideointelligenceV1p1beta1_ExplicitContentFrame =
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame'
{ _gcvvecfTimeOffSet = Nothing
, _gcvvecfPornographyLikelihood = Nothing
}
gcvvecfTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame (Maybe Scientific)
gcvvecfTimeOffSet
= lens _gcvvecfTimeOffSet
(\ s a -> s{_gcvvecfTimeOffSet = a})
. mapping _GDuration
gcvvecfPornographyLikelihood :: Lens' GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame (Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFramePornographyLikelihood)
gcvvecfPornographyLikelihood
= lens _gcvvecfPornographyLikelihood
(\ s a -> s{_gcvvecfPornographyLikelihood = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1ExplicitContentFrame"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame'
<$>
(o .:? "timeOffset") <*>
(o .:? "pornographyLikelihood"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvecfTimeOffSet,
("pornographyLikelihood" .=) <$>
_gcvvecfPornographyLikelihood])
data GoogleCloudVideointelligenceV1beta2_Entity = GoogleCloudVideointelligenceV1beta2_Entity'
{ _gcvveLanguageCode :: !(Maybe Text)
, _gcvveEntityId :: !(Maybe Text)
, _gcvveDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_Entity
:: GoogleCloudVideointelligenceV1beta2_Entity
googleCloudVideointelligenceV1beta2_Entity =
GoogleCloudVideointelligenceV1beta2_Entity'
{ _gcvveLanguageCode = Nothing
, _gcvveEntityId = Nothing
, _gcvveDescription = Nothing
}
gcvveLanguageCode :: Lens' GoogleCloudVideointelligenceV1beta2_Entity (Maybe Text)
gcvveLanguageCode
= lens _gcvveLanguageCode
(\ s a -> s{_gcvveLanguageCode = a})
gcvveEntityId :: Lens' GoogleCloudVideointelligenceV1beta2_Entity (Maybe Text)
gcvveEntityId
= lens _gcvveEntityId
(\ s a -> s{_gcvveEntityId = a})
gcvveDescription :: Lens' GoogleCloudVideointelligenceV1beta2_Entity (Maybe Text)
gcvveDescription
= lens _gcvveDescription
(\ s a -> s{_gcvveDescription = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_Entity where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2Entity"
(\ o ->
GoogleCloudVideointelligenceV1beta2_Entity' <$>
(o .:? "languageCode") <*> (o .:? "entityId") <*>
(o .:? "description"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_Entity where
toJSON
GoogleCloudVideointelligenceV1beta2_Entity'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcvveLanguageCode,
("entityId" .=) <$> _gcvveEntityId,
("description" .=) <$> _gcvveDescription])
data GoogleCloudVideointelligenceV1p2beta1_TextAnnotation = GoogleCloudVideointelligenceV1p2beta1_TextAnnotation'
{ _gcvvtaText :: !(Maybe Text)
, _gcvvtaSegments :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_TextSegment])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_TextAnnotation
:: GoogleCloudVideointelligenceV1p2beta1_TextAnnotation
googleCloudVideointelligenceV1p2beta1_TextAnnotation =
GoogleCloudVideointelligenceV1p2beta1_TextAnnotation'
{ _gcvvtaText = Nothing
, _gcvvtaSegments = Nothing
}
gcvvtaText :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextAnnotation (Maybe Text)
gcvvtaText
= lens _gcvvtaText (\ s a -> s{_gcvvtaText = a})
gcvvtaSegments :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextAnnotation [GoogleCloudVideointelligenceV1p2beta1_TextSegment]
gcvvtaSegments
= lens _gcvvtaSegments
(\ s a -> s{_gcvvtaSegments = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_TextAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1TextAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_TextAnnotation'
<$> (o .:? "text") <*> (o .:? "segments" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_TextAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_TextAnnotation'{..}
= object
(catMaybes
[("text" .=) <$> _gcvvtaText,
("segments" .=) <$> _gcvvtaSegments])
data GoogleCloudVideointelligenceV1p2beta1_VideoSegment = GoogleCloudVideointelligenceV1p2beta1_VideoSegment'
{ _gcvvvsStartTimeOffSet :: !(Maybe GDuration)
, _gcvvvsEndTimeOffSet :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_VideoSegment
:: GoogleCloudVideointelligenceV1p2beta1_VideoSegment
googleCloudVideointelligenceV1p2beta1_VideoSegment =
GoogleCloudVideointelligenceV1p2beta1_VideoSegment'
{ _gcvvvsStartTimeOffSet = Nothing
, _gcvvvsEndTimeOffSet = Nothing
}
gcvvvsStartTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoSegment (Maybe Scientific)
gcvvvsStartTimeOffSet
= lens _gcvvvsStartTimeOffSet
(\ s a -> s{_gcvvvsStartTimeOffSet = a})
. mapping _GDuration
gcvvvsEndTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoSegment (Maybe Scientific)
gcvvvsEndTimeOffSet
= lens _gcvvvsEndTimeOffSet
(\ s a -> s{_gcvvvsEndTimeOffSet = a})
. mapping _GDuration
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_VideoSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1VideoSegment"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_VideoSegment'
<$>
(o .:? "startTimeOffset") <*>
(o .:? "endTimeOffset"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_VideoSegment
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_VideoSegment'{..}
= object
(catMaybes
[("startTimeOffset" .=) <$> _gcvvvsStartTimeOffSet,
("endTimeOffset" .=) <$> _gcvvvsEndTimeOffSet])
data GoogleCloudVideointelligenceV1_VideoAnnotationProgress = GoogleCloudVideointelligenceV1_VideoAnnotationProgress'
{ _gcvvvapStartTime :: !(Maybe DateTime')
, _gcvvvapInputURI :: !(Maybe Text)
, _gcvvvapProgressPercent :: !(Maybe (Textual Int32))
, _gcvvvapUpdateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_VideoAnnotationProgress
:: GoogleCloudVideointelligenceV1_VideoAnnotationProgress
googleCloudVideointelligenceV1_VideoAnnotationProgress =
GoogleCloudVideointelligenceV1_VideoAnnotationProgress'
{ _gcvvvapStartTime = Nothing
, _gcvvvapInputURI = Nothing
, _gcvvvapProgressPercent = Nothing
, _gcvvvapUpdateTime = Nothing
}
gcvvvapStartTime :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapStartTime
= lens _gcvvvapStartTime
(\ s a -> s{_gcvvvapStartTime = a})
. mapping _DateTime
gcvvvapInputURI :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationProgress (Maybe Text)
gcvvvapInputURI
= lens _gcvvvapInputURI
(\ s a -> s{_gcvvvapInputURI = a})
gcvvvapProgressPercent :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationProgress (Maybe Int32)
gcvvvapProgressPercent
= lens _gcvvvapProgressPercent
(\ s a -> s{_gcvvvapProgressPercent = a})
. mapping _Coerce
gcvvvapUpdateTime :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapUpdateTime
= lens _gcvvvapUpdateTime
(\ s a -> s{_gcvvvapUpdateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudVideointelligenceV1_VideoAnnotationProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1VideoAnnotationProgress"
(\ o ->
GoogleCloudVideointelligenceV1_VideoAnnotationProgress'
<$>
(o .:? "startTime") <*> (o .:? "inputUri") <*>
(o .:? "progressPercent")
<*> (o .:? "updateTime"))
instance ToJSON
GoogleCloudVideointelligenceV1_VideoAnnotationProgress
where
toJSON
GoogleCloudVideointelligenceV1_VideoAnnotationProgress'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcvvvapStartTime,
("inputUri" .=) <$> _gcvvvapInputURI,
("progressPercent" .=) <$> _gcvvvapProgressPercent,
("updateTime" .=) <$> _gcvvvapUpdateTime])
data GoogleCloudVideointelligenceV1beta2_LabelFrame = GoogleCloudVideointelligenceV1beta2_LabelFrame'
{ _gcvvlfTimeOffSet :: !(Maybe GDuration)
, _gcvvlfConfidence :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_LabelFrame
:: GoogleCloudVideointelligenceV1beta2_LabelFrame
googleCloudVideointelligenceV1beta2_LabelFrame =
GoogleCloudVideointelligenceV1beta2_LabelFrame'
{ _gcvvlfTimeOffSet = Nothing
, _gcvvlfConfidence = Nothing
}
gcvvlfTimeOffSet :: Lens' GoogleCloudVideointelligenceV1beta2_LabelFrame (Maybe Scientific)
gcvvlfTimeOffSet
= lens _gcvvlfTimeOffSet
(\ s a -> s{_gcvvlfTimeOffSet = a})
. mapping _GDuration
gcvvlfConfidence :: Lens' GoogleCloudVideointelligenceV1beta2_LabelFrame (Maybe Double)
gcvvlfConfidence
= lens _gcvvlfConfidence
(\ s a -> s{_gcvvlfConfidence = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1beta2_LabelFrame where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2LabelFrame"
(\ o ->
GoogleCloudVideointelligenceV1beta2_LabelFrame' <$>
(o .:? "timeOffset") <*> (o .:? "confidence"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_LabelFrame where
toJSON
GoogleCloudVideointelligenceV1beta2_LabelFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvlfTimeOffSet,
("confidence" .=) <$> _gcvvlfConfidence])
data GoogleCloudVideointelligenceV1_SpeechTranscription = GoogleCloudVideointelligenceV1_SpeechTranscription'
{ _gcvvstAlternatives :: !(Maybe [GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative])
, _gcvvstLanguageCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_SpeechTranscription
:: GoogleCloudVideointelligenceV1_SpeechTranscription
googleCloudVideointelligenceV1_SpeechTranscription =
GoogleCloudVideointelligenceV1_SpeechTranscription'
{ _gcvvstAlternatives = Nothing
, _gcvvstLanguageCode = Nothing
}
gcvvstAlternatives :: Lens' GoogleCloudVideointelligenceV1_SpeechTranscription [GoogleCloudVideointelligenceV1_SpeechRecognitionAlternative]
gcvvstAlternatives
= lens _gcvvstAlternatives
(\ s a -> s{_gcvvstAlternatives = a})
. _Default
. _Coerce
gcvvstLanguageCode :: Lens' GoogleCloudVideointelligenceV1_SpeechTranscription (Maybe Text)
gcvvstLanguageCode
= lens _gcvvstLanguageCode
(\ s a -> s{_gcvvstLanguageCode = a})
instance FromJSON
GoogleCloudVideointelligenceV1_SpeechTranscription
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1SpeechTranscription"
(\ o ->
GoogleCloudVideointelligenceV1_SpeechTranscription'
<$>
(o .:? "alternatives" .!= mempty) <*>
(o .:? "languageCode"))
instance ToJSON
GoogleCloudVideointelligenceV1_SpeechTranscription
where
toJSON
GoogleCloudVideointelligenceV1_SpeechTranscription'{..}
= object
(catMaybes
[("alternatives" .=) <$> _gcvvstAlternatives,
("languageCode" .=) <$> _gcvvstLanguageCode])
newtype GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress = GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress'
{ _gcvvavpAnnotationProgress :: Maybe [GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_AnnotateVideoProgress
:: GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress
googleCloudVideointelligenceV1beta2_AnnotateVideoProgress =
GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress'
{ _gcvvavpAnnotationProgress = Nothing
}
gcvvavpAnnotationProgress :: Lens' GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress [GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress]
gcvvavpAnnotationProgress
= lens _gcvvavpAnnotationProgress
(\ s a -> s{_gcvvavpAnnotationProgress = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2AnnotateVideoProgress"
(\ o ->
GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress'
<$> (o .:? "annotationProgress" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress
where
toJSON
GoogleCloudVideointelligenceV1beta2_AnnotateVideoProgress'{..}
= object
(catMaybes
[("annotationProgress" .=) <$>
_gcvvavpAnnotationProgress])
data GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame = GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame'
{ _gcvvotfTimeOffSet :: !(Maybe GDuration)
, _gcvvotfNormalizedBoundingBox :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame
:: GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame
googleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame =
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame'
{ _gcvvotfTimeOffSet = Nothing
, _gcvvotfNormalizedBoundingBox = Nothing
}
gcvvotfTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame (Maybe Scientific)
gcvvotfTimeOffSet
= lens _gcvvotfTimeOffSet
(\ s a -> s{_gcvvotfTimeOffSet = a})
. mapping _GDuration
gcvvotfNormalizedBoundingBox :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame (Maybe GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox)
gcvvotfNormalizedBoundingBox
= lens _gcvvotfNormalizedBoundingBox
(\ s a -> s{_gcvvotfNormalizedBoundingBox = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1ObjectTrackingFrame"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame'
<$>
(o .:? "timeOffset") <*>
(o .:? "normalizedBoundingBox"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvotfTimeOffSet,
("normalizedBoundingBox" .=) <$>
_gcvvotfNormalizedBoundingBox])
data GoogleCloudVideointelligenceV1_LabelAnnotation = GoogleCloudVideointelligenceV1_LabelAnnotation'
{ _gcvvlaCategoryEntities :: !(Maybe [GoogleCloudVideointelligenceV1_Entity])
, _gcvvlaFrames :: !(Maybe [GoogleCloudVideointelligenceV1_LabelFrame])
, _gcvvlaSegments :: !(Maybe [GoogleCloudVideointelligenceV1_LabelSegment])
, _gcvvlaEntity :: !(Maybe GoogleCloudVideointelligenceV1_Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_LabelAnnotation
:: GoogleCloudVideointelligenceV1_LabelAnnotation
googleCloudVideointelligenceV1_LabelAnnotation =
GoogleCloudVideointelligenceV1_LabelAnnotation'
{ _gcvvlaCategoryEntities = Nothing
, _gcvvlaFrames = Nothing
, _gcvvlaSegments = Nothing
, _gcvvlaEntity = Nothing
}
gcvvlaCategoryEntities :: Lens' GoogleCloudVideointelligenceV1_LabelAnnotation [GoogleCloudVideointelligenceV1_Entity]
gcvvlaCategoryEntities
= lens _gcvvlaCategoryEntities
(\ s a -> s{_gcvvlaCategoryEntities = a})
. _Default
. _Coerce
gcvvlaFrames :: Lens' GoogleCloudVideointelligenceV1_LabelAnnotation [GoogleCloudVideointelligenceV1_LabelFrame]
gcvvlaFrames
= lens _gcvvlaFrames (\ s a -> s{_gcvvlaFrames = a})
. _Default
. _Coerce
gcvvlaSegments :: Lens' GoogleCloudVideointelligenceV1_LabelAnnotation [GoogleCloudVideointelligenceV1_LabelSegment]
gcvvlaSegments
= lens _gcvvlaSegments
(\ s a -> s{_gcvvlaSegments = a})
. _Default
. _Coerce
gcvvlaEntity :: Lens' GoogleCloudVideointelligenceV1_LabelAnnotation (Maybe GoogleCloudVideointelligenceV1_Entity)
gcvvlaEntity
= lens _gcvvlaEntity (\ s a -> s{_gcvvlaEntity = a})
instance FromJSON
GoogleCloudVideointelligenceV1_LabelAnnotation where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1LabelAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1_LabelAnnotation' <$>
(o .:? "categoryEntities" .!= mempty) <*>
(o .:? "frames" .!= mempty)
<*> (o .:? "segments" .!= mempty)
<*> (o .:? "entity"))
instance ToJSON
GoogleCloudVideointelligenceV1_LabelAnnotation where
toJSON
GoogleCloudVideointelligenceV1_LabelAnnotation'{..}
= object
(catMaybes
[("categoryEntities" .=) <$> _gcvvlaCategoryEntities,
("frames" .=) <$> _gcvvlaFrames,
("segments" .=) <$> _gcvvlaSegments,
("entity" .=) <$> _gcvvlaEntity])
data GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative = GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative'
{ _gConfidence :: !(Maybe (Textual Double))
, _gWords :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_WordInfo])
, _gTranscript :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative
:: GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative
googleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative =
GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative'
{ _gConfidence = Nothing
, _gWords = Nothing
, _gTranscript = Nothing
}
gConfidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative (Maybe Double)
gConfidence
= lens _gConfidence (\ s a -> s{_gConfidence = a}) .
mapping _Coerce
gWords :: Lens' GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative [GoogleCloudVideointelligenceV1p2beta1_WordInfo]
gWords
= lens _gWords (\ s a -> s{_gWords = a}) . _Default .
_Coerce
gTranscript :: Lens' GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative (Maybe Text)
gTranscript
= lens _gTranscript (\ s a -> s{_gTranscript = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1SpeechRecognitionAlternative"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative'
<$>
(o .:? "confidence") <*> (o .:? "words" .!= mempty)
<*> (o .:? "transcript"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative'{..}
= object
(catMaybes
[("confidence" .=) <$> _gConfidence,
("words" .=) <$> _gWords,
("transcript" .=) <$> _gTranscript])
data GoogleCloudVideointelligenceV1p2beta1_WordInfo = GoogleCloudVideointelligenceV1p2beta1_WordInfo'
{ _gooStartTime :: !(Maybe GDuration)
, _gooConfidence :: !(Maybe (Textual Double))
, _gooEndTime :: !(Maybe GDuration)
, _gooWord :: !(Maybe Text)
, _gooSpeakerTag :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_WordInfo
:: GoogleCloudVideointelligenceV1p2beta1_WordInfo
googleCloudVideointelligenceV1p2beta1_WordInfo =
GoogleCloudVideointelligenceV1p2beta1_WordInfo'
{ _gooStartTime = Nothing
, _gooConfidence = Nothing
, _gooEndTime = Nothing
, _gooWord = Nothing
, _gooSpeakerTag = Nothing
}
gooStartTime :: Lens' GoogleCloudVideointelligenceV1p2beta1_WordInfo (Maybe Scientific)
gooStartTime
= lens _gooStartTime (\ s a -> s{_gooStartTime = a})
. mapping _GDuration
gooConfidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_WordInfo (Maybe Double)
gooConfidence
= lens _gooConfidence
(\ s a -> s{_gooConfidence = a})
. mapping _Coerce
gooEndTime :: Lens' GoogleCloudVideointelligenceV1p2beta1_WordInfo (Maybe Scientific)
gooEndTime
= lens _gooEndTime (\ s a -> s{_gooEndTime = a}) .
mapping _GDuration
gooWord :: Lens' GoogleCloudVideointelligenceV1p2beta1_WordInfo (Maybe Text)
gooWord = lens _gooWord (\ s a -> s{_gooWord = a})
gooSpeakerTag :: Lens' GoogleCloudVideointelligenceV1p2beta1_WordInfo (Maybe Int32)
gooSpeakerTag
= lens _gooSpeakerTag
(\ s a -> s{_gooSpeakerTag = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_WordInfo where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1WordInfo"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_WordInfo' <$>
(o .:? "startTime") <*> (o .:? "confidence") <*>
(o .:? "endTime")
<*> (o .:? "word")
<*> (o .:? "speakerTag"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_WordInfo where
toJSON
GoogleCloudVideointelligenceV1p2beta1_WordInfo'{..}
= object
(catMaybes
[("startTime" .=) <$> _gooStartTime,
("confidence" .=) <$> _gooConfidence,
("endTime" .=) <$> _gooEndTime,
("word" .=) <$> _gooWord,
("speakerTag" .=) <$> _gooSpeakerTag])
data GoogleCloudVideointelligenceV1p1beta1_LabelFrame = GoogleCloudVideointelligenceV1p1beta1_LabelFrame'
{ _gcvvlfcTimeOffSet :: !(Maybe GDuration)
, _gcvvlfcConfidence :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_LabelFrame
:: GoogleCloudVideointelligenceV1p1beta1_LabelFrame
googleCloudVideointelligenceV1p1beta1_LabelFrame =
GoogleCloudVideointelligenceV1p1beta1_LabelFrame'
{ _gcvvlfcTimeOffSet = Nothing
, _gcvvlfcConfidence = Nothing
}
gcvvlfcTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelFrame (Maybe Scientific)
gcvvlfcTimeOffSet
= lens _gcvvlfcTimeOffSet
(\ s a -> s{_gcvvlfcTimeOffSet = a})
. mapping _GDuration
gcvvlfcConfidence :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelFrame (Maybe Double)
gcvvlfcConfidence
= lens _gcvvlfcConfidence
(\ s a -> s{_gcvvlfcConfidence = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_LabelFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1LabelFrame"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_LabelFrame' <$>
(o .:? "timeOffset") <*> (o .:? "confidence"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_LabelFrame
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_LabelFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvlfcTimeOffSet,
("confidence" .=) <$> _gcvvlfcConfidence])
newtype GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig = GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig'
{ _gcvvscdcModel :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig
:: GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig
googleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig =
GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig'
{ _gcvvscdcModel = Nothing
}
gcvvscdcModel :: Lens' GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig (Maybe Text)
gcvvscdcModel
= lens _gcvvscdcModel
(\ s a -> s{_gcvvscdcModel = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1ShotChangeDetectionConfig"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig'
<$> (o .:? "model"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig'{..}
= object
(catMaybes [("model" .=) <$> _gcvvscdcModel])
newtype GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation = GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation'
{ _gFrames :: Maybe [GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation
:: GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation
googleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation =
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation'
{ _gFrames = Nothing
}
gFrames :: Lens' GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation [GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame]
gFrames
= lens _gFrames (\ s a -> s{_gFrames = a}) . _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1ExplicitContentAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation'
<$> (o .:? "frames" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation'{..}
= object (catMaybes [("frames" .=) <$> _gFrames])
data GoogleCloudVideointelligenceV1p1beta1_Entity = GoogleCloudVideointelligenceV1p1beta1_Entity'
{ _gLanguageCode :: !(Maybe Text)
, _gEntityId :: !(Maybe Text)
, _gDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_Entity
:: GoogleCloudVideointelligenceV1p1beta1_Entity
googleCloudVideointelligenceV1p1beta1_Entity =
GoogleCloudVideointelligenceV1p1beta1_Entity'
{ _gLanguageCode = Nothing
, _gEntityId = Nothing
, _gDescription = Nothing
}
gLanguageCode :: Lens' GoogleCloudVideointelligenceV1p1beta1_Entity (Maybe Text)
gLanguageCode
= lens _gLanguageCode
(\ s a -> s{_gLanguageCode = a})
gEntityId :: Lens' GoogleCloudVideointelligenceV1p1beta1_Entity (Maybe Text)
gEntityId
= lens _gEntityId (\ s a -> s{_gEntityId = a})
gDescription :: Lens' GoogleCloudVideointelligenceV1p1beta1_Entity (Maybe Text)
gDescription
= lens _gDescription (\ s a -> s{_gDescription = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_Entity where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1Entity"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_Entity' <$>
(o .:? "languageCode") <*> (o .:? "entityId") <*>
(o .:? "description"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_Entity where
toJSON
GoogleCloudVideointelligenceV1p1beta1_Entity'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gLanguageCode,
("entityId" .=) <$> _gEntityId,
("description" .=) <$> _gDescription])
newtype GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse = GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse'
{ _gAnnotationResults :: Maybe [GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse
:: GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse
googleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse =
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse'
{ _gAnnotationResults = Nothing
}
gAnnotationResults :: Lens' GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse [GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults]
gAnnotationResults
= lens _gAnnotationResults
(\ s a -> s{_gAnnotationResults = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1AnnotateVideoResponse"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse'
<$> (o .:? "annotationResults" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoResponse'{..}
= object
(catMaybes
[("annotationResults" .=) <$> _gAnnotationResults])
newtype GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress = GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress'
{ _gAnnotationProgress :: Maybe [GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress
:: GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress
googleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress =
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress'
{ _gAnnotationProgress = Nothing
}
gAnnotationProgress :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress [GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress]
gAnnotationProgress
= lens _gAnnotationProgress
(\ s a -> s{_gAnnotationProgress = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1AnnotateVideoProgress"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress'
<$> (o .:? "annotationProgress" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoProgress'{..}
= object
(catMaybes
[("annotationProgress" .=) <$> _gAnnotationProgress])
data GoogleCloudVideointelligenceV1_VideoAnnotationResults = GoogleCloudVideointelligenceV1_VideoAnnotationResults'
{ _gcvvvarShotAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1_VideoSegment])
, _gcvvvarShotLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1_LabelAnnotation])
, _gcvvvarInputURI :: !(Maybe Text)
, _gcvvvarError :: !(Maybe GoogleRpc_Status)
, _gcvvvarFrameLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1_LabelAnnotation])
, _gcvvvarSpeechTranscriptions :: !(Maybe [GoogleCloudVideointelligenceV1_SpeechTranscription])
, _gcvvvarSegmentLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1_LabelAnnotation])
, _gcvvvarExplicitAnnotation :: !(Maybe GoogleCloudVideointelligenceV1_ExplicitContentAnnotation)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_VideoAnnotationResults
:: GoogleCloudVideointelligenceV1_VideoAnnotationResults
googleCloudVideointelligenceV1_VideoAnnotationResults =
GoogleCloudVideointelligenceV1_VideoAnnotationResults'
{ _gcvvvarShotAnnotations = Nothing
, _gcvvvarShotLabelAnnotations = Nothing
, _gcvvvarInputURI = Nothing
, _gcvvvarError = Nothing
, _gcvvvarFrameLabelAnnotations = Nothing
, _gcvvvarSpeechTranscriptions = Nothing
, _gcvvvarSegmentLabelAnnotations = Nothing
, _gcvvvarExplicitAnnotation = Nothing
}
gcvvvarShotAnnotations :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults [GoogleCloudVideointelligenceV1_VideoSegment]
gcvvvarShotAnnotations
= lens _gcvvvarShotAnnotations
(\ s a -> s{_gcvvvarShotAnnotations = a})
. _Default
. _Coerce
gcvvvarShotLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults [GoogleCloudVideointelligenceV1_LabelAnnotation]
gcvvvarShotLabelAnnotations
= lens _gcvvvarShotLabelAnnotations
(\ s a -> s{_gcvvvarShotLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarInputURI :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults (Maybe Text)
gcvvvarInputURI
= lens _gcvvvarInputURI
(\ s a -> s{_gcvvvarInputURI = a})
gcvvvarError :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults (Maybe GoogleRpc_Status)
gcvvvarError
= lens _gcvvvarError (\ s a -> s{_gcvvvarError = a})
gcvvvarFrameLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults [GoogleCloudVideointelligenceV1_LabelAnnotation]
gcvvvarFrameLabelAnnotations
= lens _gcvvvarFrameLabelAnnotations
(\ s a -> s{_gcvvvarFrameLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarSpeechTranscriptions :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults [GoogleCloudVideointelligenceV1_SpeechTranscription]
gcvvvarSpeechTranscriptions
= lens _gcvvvarSpeechTranscriptions
(\ s a -> s{_gcvvvarSpeechTranscriptions = a})
. _Default
. _Coerce
gcvvvarSegmentLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults [GoogleCloudVideointelligenceV1_LabelAnnotation]
gcvvvarSegmentLabelAnnotations
= lens _gcvvvarSegmentLabelAnnotations
(\ s a -> s{_gcvvvarSegmentLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarExplicitAnnotation :: Lens' GoogleCloudVideointelligenceV1_VideoAnnotationResults (Maybe GoogleCloudVideointelligenceV1_ExplicitContentAnnotation)
gcvvvarExplicitAnnotation
= lens _gcvvvarExplicitAnnotation
(\ s a -> s{_gcvvvarExplicitAnnotation = a})
instance FromJSON
GoogleCloudVideointelligenceV1_VideoAnnotationResults
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1VideoAnnotationResults"
(\ o ->
GoogleCloudVideointelligenceV1_VideoAnnotationResults'
<$>
(o .:? "shotAnnotations" .!= mempty) <*>
(o .:? "shotLabelAnnotations" .!= mempty)
<*> (o .:? "inputUri")
<*> (o .:? "error")
<*> (o .:? "frameLabelAnnotations" .!= mempty)
<*> (o .:? "speechTranscriptions" .!= mempty)
<*> (o .:? "segmentLabelAnnotations" .!= mempty)
<*> (o .:? "explicitAnnotation"))
instance ToJSON
GoogleCloudVideointelligenceV1_VideoAnnotationResults
where
toJSON
GoogleCloudVideointelligenceV1_VideoAnnotationResults'{..}
= object
(catMaybes
[("shotAnnotations" .=) <$> _gcvvvarShotAnnotations,
("shotLabelAnnotations" .=) <$>
_gcvvvarShotLabelAnnotations,
("inputUri" .=) <$> _gcvvvarInputURI,
("error" .=) <$> _gcvvvarError,
("frameLabelAnnotations" .=) <$>
_gcvvvarFrameLabelAnnotations,
("speechTranscriptions" .=) <$>
_gcvvvarSpeechTranscriptions,
("segmentLabelAnnotations" .=) <$>
_gcvvvarSegmentLabelAnnotations,
("explicitAnnotation" .=) <$>
_gcvvvarExplicitAnnotation])
data GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation = GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation'
{ _gcvvotaFrames :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame])
, _gcvvotaConfidence :: !(Maybe (Textual Double))
, _gcvvotaSegment :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
, _gcvvotaEntity :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation
:: GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation
googleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation =
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation'
{ _gcvvotaFrames = Nothing
, _gcvvotaConfidence = Nothing
, _gcvvotaSegment = Nothing
, _gcvvotaEntity = Nothing
}
gcvvotaFrames :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation [GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingFrame]
gcvvotaFrames
= lens _gcvvotaFrames
(\ s a -> s{_gcvvotaFrames = a})
. _Default
. _Coerce
gcvvotaConfidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation (Maybe Double)
gcvvotaConfidence
= lens _gcvvotaConfidence
(\ s a -> s{_gcvvotaConfidence = a})
. mapping _Coerce
gcvvotaSegment :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation (Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
gcvvotaSegment
= lens _gcvvotaSegment
(\ s a -> s{_gcvvotaSegment = a})
gcvvotaEntity :: Lens' GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation (Maybe GoogleCloudVideointelligenceV1p2beta1_Entity)
gcvvotaEntity
= lens _gcvvotaEntity
(\ s a -> s{_gcvvotaEntity = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1ObjectTrackingAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation'
<$>
(o .:? "frames" .!= mempty) <*> (o .:? "confidence")
<*> (o .:? "segment")
<*> (o .:? "entity"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation'{..}
= object
(catMaybes
[("frames" .=) <$> _gcvvotaFrames,
("confidence" .=) <$> _gcvvotaConfidence,
("segment" .=) <$> _gcvvotaSegment,
("entity" .=) <$> _gcvvotaEntity])
data GoogleCloudVideointelligenceV1p1beta1_VideoContext = GoogleCloudVideointelligenceV1p1beta1_VideoContext'
{ _gcvvvcSpeechTranscriptionConfig :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig)
, _gcvvvcExplicitContentDetectionConfig :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig)
, _gcvvvcLabelDetectionConfig :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig)
, _gcvvvcSegments :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_VideoSegment])
, _gcvvvcShotChangeDetectionConfig :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_VideoContext
:: GoogleCloudVideointelligenceV1p1beta1_VideoContext
googleCloudVideointelligenceV1p1beta1_VideoContext =
GoogleCloudVideointelligenceV1p1beta1_VideoContext'
{ _gcvvvcSpeechTranscriptionConfig = Nothing
, _gcvvvcExplicitContentDetectionConfig = Nothing
, _gcvvvcLabelDetectionConfig = Nothing
, _gcvvvcSegments = Nothing
, _gcvvvcShotChangeDetectionConfig = Nothing
}
gcvvvcSpeechTranscriptionConfig :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoContext (Maybe GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig)
gcvvvcSpeechTranscriptionConfig
= lens _gcvvvcSpeechTranscriptionConfig
(\ s a -> s{_gcvvvcSpeechTranscriptionConfig = a})
gcvvvcExplicitContentDetectionConfig :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoContext (Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig)
gcvvvcExplicitContentDetectionConfig
= lens _gcvvvcExplicitContentDetectionConfig
(\ s a ->
s{_gcvvvcExplicitContentDetectionConfig = a})
gcvvvcLabelDetectionConfig :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoContext (Maybe GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig)
gcvvvcLabelDetectionConfig
= lens _gcvvvcLabelDetectionConfig
(\ s a -> s{_gcvvvcLabelDetectionConfig = a})
gcvvvcSegments :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoContext [GoogleCloudVideointelligenceV1p1beta1_VideoSegment]
gcvvvcSegments
= lens _gcvvvcSegments
(\ s a -> s{_gcvvvcSegments = a})
. _Default
. _Coerce
gcvvvcShotChangeDetectionConfig :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoContext (Maybe GoogleCloudVideointelligenceV1p1beta1_ShotChangeDetectionConfig)
gcvvvcShotChangeDetectionConfig
= lens _gcvvvcShotChangeDetectionConfig
(\ s a -> s{_gcvvvcShotChangeDetectionConfig = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_VideoContext
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1VideoContext"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_VideoContext'
<$>
(o .:? "speechTranscriptionConfig") <*>
(o .:? "explicitContentDetectionConfig")
<*> (o .:? "labelDetectionConfig")
<*> (o .:? "segments" .!= mempty)
<*> (o .:? "shotChangeDetectionConfig"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_VideoContext
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_VideoContext'{..}
= object
(catMaybes
[("speechTranscriptionConfig" .=) <$>
_gcvvvcSpeechTranscriptionConfig,
("explicitContentDetectionConfig" .=) <$>
_gcvvvcExplicitContentDetectionConfig,
("labelDetectionConfig" .=) <$>
_gcvvvcLabelDetectionConfig,
("segments" .=) <$> _gcvvvcSegments,
("shotChangeDetectionConfig" .=) <$>
_gcvvvcShotChangeDetectionConfig])
newtype GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress = GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress'
{ _gcvvavpsAnnotationProgress :: Maybe [GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress
:: GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress
googleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress =
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress'
{ _gcvvavpsAnnotationProgress = Nothing
}
gcvvavpsAnnotationProgress :: Lens' GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress [GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress]
gcvvavpsAnnotationProgress
= lens _gcvvavpsAnnotationProgress
(\ s a -> s{_gcvvavpsAnnotationProgress = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1AnnotateVideoProgress"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress'
<$> (o .:? "annotationProgress" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_AnnotateVideoProgress'{..}
= object
(catMaybes
[("annotationProgress" .=) <$>
_gcvvavpsAnnotationProgress])
newtype GoogleLongrunning_OperationMetadata = GoogleLongrunning_OperationMetadata'
{ _glomAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning_OperationMetadata
:: HashMap Text JSONValue
-> GoogleLongrunning_OperationMetadata
googleLongrunning_OperationMetadata pGlomAddtional_ =
GoogleLongrunning_OperationMetadata'
{ _glomAddtional = _Coerce # pGlomAddtional_
}
glomAddtional :: Lens' GoogleLongrunning_OperationMetadata (HashMap Text JSONValue)
glomAddtional
= lens _glomAddtional
(\ s a -> s{_glomAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunning_OperationMetadata
where
parseJSON
= withObject "GoogleLongrunningOperationMetadata"
(\ o ->
GoogleLongrunning_OperationMetadata' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunning_OperationMetadata
where
toJSON = toJSON . _glomAddtional
data GoogleCloudVideointelligenceV1p1beta1_LabelSegment = GoogleCloudVideointelligenceV1p1beta1_LabelSegment'
{ _gcvvlsConfidence :: !(Maybe (Textual Double))
, _gcvvlsSegment :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_VideoSegment)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_LabelSegment
:: GoogleCloudVideointelligenceV1p1beta1_LabelSegment
googleCloudVideointelligenceV1p1beta1_LabelSegment =
GoogleCloudVideointelligenceV1p1beta1_LabelSegment'
{ _gcvvlsConfidence = Nothing
, _gcvvlsSegment = Nothing
}
gcvvlsConfidence :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelSegment (Maybe Double)
gcvvlsConfidence
= lens _gcvvlsConfidence
(\ s a -> s{_gcvvlsConfidence = a})
. mapping _Coerce
gcvvlsSegment :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelSegment (Maybe GoogleCloudVideointelligenceV1p1beta1_VideoSegment)
gcvvlsSegment
= lens _gcvvlsSegment
(\ s a -> s{_gcvvlsSegment = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_LabelSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1LabelSegment"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_LabelSegment'
<$> (o .:? "confidence") <*> (o .:? "segment"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_LabelSegment
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_LabelSegment'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvlsConfidence,
("segment" .=) <$> _gcvvlsSegment])
data GoogleCloudVideointelligenceV1p2beta1_LabelFrame = GoogleCloudVideointelligenceV1p2beta1_LabelFrame'
{ _ggTimeOffSet :: !(Maybe GDuration)
, _ggConfidence :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_LabelFrame
:: GoogleCloudVideointelligenceV1p2beta1_LabelFrame
googleCloudVideointelligenceV1p2beta1_LabelFrame =
GoogleCloudVideointelligenceV1p2beta1_LabelFrame'
{ _ggTimeOffSet = Nothing
, _ggConfidence = Nothing
}
ggTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelFrame (Maybe Scientific)
ggTimeOffSet
= lens _ggTimeOffSet (\ s a -> s{_ggTimeOffSet = a})
. mapping _GDuration
ggConfidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelFrame (Maybe Double)
ggConfidence
= lens _ggConfidence (\ s a -> s{_ggConfidence = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_LabelFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1LabelFrame"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_LabelFrame' <$>
(o .:? "timeOffset") <*> (o .:? "confidence"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_LabelFrame
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_LabelFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _ggTimeOffSet,
("confidence" .=) <$> _ggConfidence])
data GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress = GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress'
{ _gStartTime :: !(Maybe DateTime')
, _gInputURI :: !(Maybe Text)
, _gProgressPercent :: !(Maybe (Textual Int32))
, _gUpdateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress
:: GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress
googleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress =
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress'
{ _gStartTime = Nothing
, _gInputURI = Nothing
, _gProgressPercent = Nothing
, _gUpdateTime = Nothing
}
gStartTime :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress (Maybe UTCTime)
gStartTime
= lens _gStartTime (\ s a -> s{_gStartTime = a}) .
mapping _DateTime
gInputURI :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress (Maybe Text)
gInputURI
= lens _gInputURI (\ s a -> s{_gInputURI = a})
gProgressPercent :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress (Maybe Int32)
gProgressPercent
= lens _gProgressPercent
(\ s a -> s{_gProgressPercent = a})
. mapping _Coerce
gUpdateTime :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress (Maybe UTCTime)
gUpdateTime
= lens _gUpdateTime (\ s a -> s{_gUpdateTime = a}) .
mapping _DateTime
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1VideoAnnotationProgress"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress'
<$>
(o .:? "startTime") <*> (o .:? "inputUri") <*>
(o .:? "progressPercent")
<*> (o .:? "updateTime"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationProgress'{..}
= object
(catMaybes
[("startTime" .=) <$> _gStartTime,
("inputUri" .=) <$> _gInputURI,
("progressPercent" .=) <$> _gProgressPercent,
("updateTime" .=) <$> _gUpdateTime])
data GoogleCloudVideointelligenceV1p2beta1_Entity = GoogleCloudVideointelligenceV1p2beta1_Entity'
{ _gooLanguageCode :: !(Maybe Text)
, _gooEntityId :: !(Maybe Text)
, _gooDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_Entity
:: GoogleCloudVideointelligenceV1p2beta1_Entity
googleCloudVideointelligenceV1p2beta1_Entity =
GoogleCloudVideointelligenceV1p2beta1_Entity'
{ _gooLanguageCode = Nothing
, _gooEntityId = Nothing
, _gooDescription = Nothing
}
gooLanguageCode :: Lens' GoogleCloudVideointelligenceV1p2beta1_Entity (Maybe Text)
gooLanguageCode
= lens _gooLanguageCode
(\ s a -> s{_gooLanguageCode = a})
gooEntityId :: Lens' GoogleCloudVideointelligenceV1p2beta1_Entity (Maybe Text)
gooEntityId
= lens _gooEntityId (\ s a -> s{_gooEntityId = a})
gooDescription :: Lens' GoogleCloudVideointelligenceV1p2beta1_Entity (Maybe Text)
gooDescription
= lens _gooDescription
(\ s a -> s{_gooDescription = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_Entity where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1Entity"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_Entity' <$>
(o .:? "languageCode") <*> (o .:? "entityId") <*>
(o .:? "description"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_Entity where
toJSON
GoogleCloudVideointelligenceV1p2beta1_Entity'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gooLanguageCode,
("entityId" .=) <$> _gooEntityId,
("description" .=) <$> _gooDescription])
data GoogleCloudVideointelligenceV1p1beta1_WordInfo = GoogleCloudVideointelligenceV1p1beta1_WordInfo'
{ _gcvvwicStartTime :: !(Maybe GDuration)
, _gcvvwicConfidence :: !(Maybe (Textual Double))
, _gcvvwicEndTime :: !(Maybe GDuration)
, _gcvvwicWord :: !(Maybe Text)
, _gcvvwicSpeakerTag :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_WordInfo
:: GoogleCloudVideointelligenceV1p1beta1_WordInfo
googleCloudVideointelligenceV1p1beta1_WordInfo =
GoogleCloudVideointelligenceV1p1beta1_WordInfo'
{ _gcvvwicStartTime = Nothing
, _gcvvwicConfidence = Nothing
, _gcvvwicEndTime = Nothing
, _gcvvwicWord = Nothing
, _gcvvwicSpeakerTag = Nothing
}
gcvvwicStartTime :: Lens' GoogleCloudVideointelligenceV1p1beta1_WordInfo (Maybe Scientific)
gcvvwicStartTime
= lens _gcvvwicStartTime
(\ s a -> s{_gcvvwicStartTime = a})
. mapping _GDuration
gcvvwicConfidence :: Lens' GoogleCloudVideointelligenceV1p1beta1_WordInfo (Maybe Double)
gcvvwicConfidence
= lens _gcvvwicConfidence
(\ s a -> s{_gcvvwicConfidence = a})
. mapping _Coerce
gcvvwicEndTime :: Lens' GoogleCloudVideointelligenceV1p1beta1_WordInfo (Maybe Scientific)
gcvvwicEndTime
= lens _gcvvwicEndTime
(\ s a -> s{_gcvvwicEndTime = a})
. mapping _GDuration
gcvvwicWord :: Lens' GoogleCloudVideointelligenceV1p1beta1_WordInfo (Maybe Text)
gcvvwicWord
= lens _gcvvwicWord (\ s a -> s{_gcvvwicWord = a})
gcvvwicSpeakerTag :: Lens' GoogleCloudVideointelligenceV1p1beta1_WordInfo (Maybe Int32)
gcvvwicSpeakerTag
= lens _gcvvwicSpeakerTag
(\ s a -> s{_gcvvwicSpeakerTag = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_WordInfo where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1WordInfo"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_WordInfo' <$>
(o .:? "startTime") <*> (o .:? "confidence") <*>
(o .:? "endTime")
<*> (o .:? "word")
<*> (o .:? "speakerTag"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_WordInfo where
toJSON
GoogleCloudVideointelligenceV1p1beta1_WordInfo'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcvvwicStartTime,
("confidence" .=) <$> _gcvvwicConfidence,
("endTime" .=) <$> _gcvvwicEndTime,
("word" .=) <$> _gcvvwicWord,
("speakerTag" .=) <$> _gcvvwicSpeakerTag])
data GoogleLongrunning_Operation = GoogleLongrunning_Operation'
{ _gloDone :: !(Maybe Bool)
, _gloError :: !(Maybe GoogleRpc_Status)
, _gloResponse :: !(Maybe GoogleLongrunning_OperationResponse)
, _gloName :: !(Maybe Text)
, _gloMetadata :: !(Maybe GoogleLongrunning_OperationMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning_Operation
:: GoogleLongrunning_Operation
googleLongrunning_Operation =
GoogleLongrunning_Operation'
{ _gloDone = Nothing
, _gloError = Nothing
, _gloResponse = Nothing
, _gloName = Nothing
, _gloMetadata = Nothing
}
gloDone :: Lens' GoogleLongrunning_Operation (Maybe Bool)
gloDone = lens _gloDone (\ s a -> s{_gloDone = a})
gloError :: Lens' GoogleLongrunning_Operation (Maybe GoogleRpc_Status)
gloError = lens _gloError (\ s a -> s{_gloError = a})
gloResponse :: Lens' GoogleLongrunning_Operation (Maybe GoogleLongrunning_OperationResponse)
gloResponse
= lens _gloResponse (\ s a -> s{_gloResponse = a})
gloName :: Lens' GoogleLongrunning_Operation (Maybe Text)
gloName = lens _gloName (\ s a -> s{_gloName = a})
gloMetadata :: Lens' GoogleLongrunning_Operation (Maybe GoogleLongrunning_OperationMetadata)
gloMetadata
= lens _gloMetadata (\ s a -> s{_gloMetadata = a})
instance FromJSON GoogleLongrunning_Operation where
parseJSON
= withObject "GoogleLongrunningOperation"
(\ o ->
GoogleLongrunning_Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON GoogleLongrunning_Operation where
toJSON GoogleLongrunning_Operation'{..}
= object
(catMaybes
[("done" .=) <$> _gloDone,
("error" .=) <$> _gloError,
("response" .=) <$> _gloResponse,
("name" .=) <$> _gloName,
("metadata" .=) <$> _gloMetadata])
data GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative = GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative'
{ _gcvvsracConfidence :: !(Maybe (Textual Double))
, _gcvvsracWords :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_WordInfo])
, _gcvvsracTranscript :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative
:: GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative
googleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative =
GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative'
{ _gcvvsracConfidence = Nothing
, _gcvvsracWords = Nothing
, _gcvvsracTranscript = Nothing
}
gcvvsracConfidence :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative (Maybe Double)
gcvvsracConfidence
= lens _gcvvsracConfidence
(\ s a -> s{_gcvvsracConfidence = a})
. mapping _Coerce
gcvvsracWords :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative [GoogleCloudVideointelligenceV1p1beta1_WordInfo]
gcvvsracWords
= lens _gcvvsracWords
(\ s a -> s{_gcvvsracWords = a})
. _Default
. _Coerce
gcvvsracTranscript :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative (Maybe Text)
gcvvsracTranscript
= lens _gcvvsracTranscript
(\ s a -> s{_gcvvsracTranscript = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1SpeechRecognitionAlternative"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative'
<$>
(o .:? "confidence") <*> (o .:? "words" .!= mempty)
<*> (o .:? "transcript"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvsracConfidence,
("words" .=) <$> _gcvvsracWords,
("transcript" .=) <$> _gcvvsracTranscript])
data GoogleCloudVideointelligenceV1_ExplicitContentFrame = GoogleCloudVideointelligenceV1_ExplicitContentFrame'
{ _gTimeOffSet :: !(Maybe GDuration)
, _gPornographyLikelihood :: !(Maybe GoogleCloudVideointelligenceV1_ExplicitContentFramePornographyLikelihood)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_ExplicitContentFrame
:: GoogleCloudVideointelligenceV1_ExplicitContentFrame
googleCloudVideointelligenceV1_ExplicitContentFrame =
GoogleCloudVideointelligenceV1_ExplicitContentFrame'
{ _gTimeOffSet = Nothing
, _gPornographyLikelihood = Nothing
}
gTimeOffSet :: Lens' GoogleCloudVideointelligenceV1_ExplicitContentFrame (Maybe Scientific)
gTimeOffSet
= lens _gTimeOffSet (\ s a -> s{_gTimeOffSet = a}) .
mapping _GDuration
gPornographyLikelihood :: Lens' GoogleCloudVideointelligenceV1_ExplicitContentFrame (Maybe GoogleCloudVideointelligenceV1_ExplicitContentFramePornographyLikelihood)
gPornographyLikelihood
= lens _gPornographyLikelihood
(\ s a -> s{_gPornographyLikelihood = a})
instance FromJSON
GoogleCloudVideointelligenceV1_ExplicitContentFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1ExplicitContentFrame"
(\ o ->
GoogleCloudVideointelligenceV1_ExplicitContentFrame'
<$>
(o .:? "timeOffset") <*>
(o .:? "pornographyLikelihood"))
instance ToJSON
GoogleCloudVideointelligenceV1_ExplicitContentFrame
where
toJSON
GoogleCloudVideointelligenceV1_ExplicitContentFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gTimeOffSet,
("pornographyLikelihood" .=) <$>
_gPornographyLikelihood])
data GoogleCloudVideointelligenceV1beta2_VideoSegment = GoogleCloudVideointelligenceV1beta2_VideoSegment'
{ _gStartTimeOffSet :: !(Maybe GDuration)
, _gEndTimeOffSet :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_VideoSegment
:: GoogleCloudVideointelligenceV1beta2_VideoSegment
googleCloudVideointelligenceV1beta2_VideoSegment =
GoogleCloudVideointelligenceV1beta2_VideoSegment'
{ _gStartTimeOffSet = Nothing
, _gEndTimeOffSet = Nothing
}
gStartTimeOffSet :: Lens' GoogleCloudVideointelligenceV1beta2_VideoSegment (Maybe Scientific)
gStartTimeOffSet
= lens _gStartTimeOffSet
(\ s a -> s{_gStartTimeOffSet = a})
. mapping _GDuration
gEndTimeOffSet :: Lens' GoogleCloudVideointelligenceV1beta2_VideoSegment (Maybe Scientific)
gEndTimeOffSet
= lens _gEndTimeOffSet
(\ s a -> s{_gEndTimeOffSet = a})
. mapping _GDuration
instance FromJSON
GoogleCloudVideointelligenceV1beta2_VideoSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2VideoSegment"
(\ o ->
GoogleCloudVideointelligenceV1beta2_VideoSegment' <$>
(o .:? "startTimeOffset") <*>
(o .:? "endTimeOffset"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_VideoSegment
where
toJSON
GoogleCloudVideointelligenceV1beta2_VideoSegment'{..}
= object
(catMaybes
[("startTimeOffset" .=) <$> _gStartTimeOffSet,
("endTimeOffset" .=) <$> _gEndTimeOffSet])
data GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults = GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults'
{ _gcvvvarsShotAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_VideoSegment])
, _gcvvvarsShotLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation])
, _gcvvvarsInputURI :: !(Maybe Text)
, _gcvvvarsError :: !(Maybe GoogleRpc_Status)
, _gcvvvarsObjectAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation])
, _gcvvvarsFrameLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation])
, _gcvvvarsSpeechTranscriptions :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription])
, _gcvvvarsTextAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_TextAnnotation])
, _gcvvvarsSegmentLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation])
, _gcvvvarsExplicitAnnotation :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_VideoAnnotationResults
:: GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults
googleCloudVideointelligenceV1p2beta1_VideoAnnotationResults =
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults'
{ _gcvvvarsShotAnnotations = Nothing
, _gcvvvarsShotLabelAnnotations = Nothing
, _gcvvvarsInputURI = Nothing
, _gcvvvarsError = Nothing
, _gcvvvarsObjectAnnotations = Nothing
, _gcvvvarsFrameLabelAnnotations = Nothing
, _gcvvvarsSpeechTranscriptions = Nothing
, _gcvvvarsTextAnnotations = Nothing
, _gcvvvarsSegmentLabelAnnotations = Nothing
, _gcvvvarsExplicitAnnotation = Nothing
}
gcvvvarsShotAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_VideoSegment]
gcvvvarsShotAnnotations
= lens _gcvvvarsShotAnnotations
(\ s a -> s{_gcvvvarsShotAnnotations = a})
. _Default
. _Coerce
gcvvvarsShotLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation]
gcvvvarsShotLabelAnnotations
= lens _gcvvvarsShotLabelAnnotations
(\ s a -> s{_gcvvvarsShotLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarsInputURI :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults (Maybe Text)
gcvvvarsInputURI
= lens _gcvvvarsInputURI
(\ s a -> s{_gcvvvarsInputURI = a})
gcvvvarsError :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults (Maybe GoogleRpc_Status)
gcvvvarsError
= lens _gcvvvarsError
(\ s a -> s{_gcvvvarsError = a})
gcvvvarsObjectAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_ObjectTrackingAnnotation]
gcvvvarsObjectAnnotations
= lens _gcvvvarsObjectAnnotations
(\ s a -> s{_gcvvvarsObjectAnnotations = a})
. _Default
. _Coerce
gcvvvarsFrameLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation]
gcvvvarsFrameLabelAnnotations
= lens _gcvvvarsFrameLabelAnnotations
(\ s a -> s{_gcvvvarsFrameLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarsSpeechTranscriptions :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription]
gcvvvarsSpeechTranscriptions
= lens _gcvvvarsSpeechTranscriptions
(\ s a -> s{_gcvvvarsSpeechTranscriptions = a})
. _Default
. _Coerce
gcvvvarsTextAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_TextAnnotation]
gcvvvarsTextAnnotations
= lens _gcvvvarsTextAnnotations
(\ s a -> s{_gcvvvarsTextAnnotations = a})
. _Default
. _Coerce
gcvvvarsSegmentLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation]
gcvvvarsSegmentLabelAnnotations
= lens _gcvvvarsSegmentLabelAnnotations
(\ s a -> s{_gcvvvarsSegmentLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarsExplicitAnnotation :: Lens' GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults (Maybe GoogleCloudVideointelligenceV1p2beta1_ExplicitContentAnnotation)
gcvvvarsExplicitAnnotation
= lens _gcvvvarsExplicitAnnotation
(\ s a -> s{_gcvvvarsExplicitAnnotation = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1VideoAnnotationResults"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults'
<$>
(o .:? "shotAnnotations" .!= mempty) <*>
(o .:? "shotLabelAnnotations" .!= mempty)
<*> (o .:? "inputUri")
<*> (o .:? "error")
<*> (o .:? "objectAnnotations" .!= mempty)
<*> (o .:? "frameLabelAnnotations" .!= mempty)
<*> (o .:? "speechTranscriptions" .!= mempty)
<*> (o .:? "textAnnotations" .!= mempty)
<*> (o .:? "segmentLabelAnnotations" .!= mempty)
<*> (o .:? "explicitAnnotation"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_VideoAnnotationResults'{..}
= object
(catMaybes
[("shotAnnotations" .=) <$> _gcvvvarsShotAnnotations,
("shotLabelAnnotations" .=) <$>
_gcvvvarsShotLabelAnnotations,
("inputUri" .=) <$> _gcvvvarsInputURI,
("error" .=) <$> _gcvvvarsError,
("objectAnnotations" .=) <$>
_gcvvvarsObjectAnnotations,
("frameLabelAnnotations" .=) <$>
_gcvvvarsFrameLabelAnnotations,
("speechTranscriptions" .=) <$>
_gcvvvarsSpeechTranscriptions,
("textAnnotations" .=) <$> _gcvvvarsTextAnnotations,
("segmentLabelAnnotations" .=) <$>
_gcvvvarsSegmentLabelAnnotations,
("explicitAnnotation" .=) <$>
_gcvvvarsExplicitAnnotation])
data GoogleCloudVideointelligenceV1beta2_LabelSegment = GoogleCloudVideointelligenceV1beta2_LabelSegment'
{ _gcvvlscConfidence :: !(Maybe (Textual Double))
, _gcvvlscSegment :: !(Maybe GoogleCloudVideointelligenceV1beta2_VideoSegment)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_LabelSegment
:: GoogleCloudVideointelligenceV1beta2_LabelSegment
googleCloudVideointelligenceV1beta2_LabelSegment =
GoogleCloudVideointelligenceV1beta2_LabelSegment'
{ _gcvvlscConfidence = Nothing
, _gcvvlscSegment = Nothing
}
gcvvlscConfidence :: Lens' GoogleCloudVideointelligenceV1beta2_LabelSegment (Maybe Double)
gcvvlscConfidence
= lens _gcvvlscConfidence
(\ s a -> s{_gcvvlscConfidence = a})
. mapping _Coerce
gcvvlscSegment :: Lens' GoogleCloudVideointelligenceV1beta2_LabelSegment (Maybe GoogleCloudVideointelligenceV1beta2_VideoSegment)
gcvvlscSegment
= lens _gcvvlscSegment
(\ s a -> s{_gcvvlscSegment = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_LabelSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2LabelSegment"
(\ o ->
GoogleCloudVideointelligenceV1beta2_LabelSegment' <$>
(o .:? "confidence") <*> (o .:? "segment"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_LabelSegment
where
toJSON
GoogleCloudVideointelligenceV1beta2_LabelSegment'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvlscConfidence,
("segment" .=) <$> _gcvvlscSegment])
newtype GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly = GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly'
{ _gcvvnbpVertices :: Maybe [GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly
:: GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly
googleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly =
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly'
{ _gcvvnbpVertices = Nothing
}
gcvvnbpVertices :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly [GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex]
gcvvnbpVertices
= lens _gcvvnbpVertices
(\ s a -> s{_gcvvnbpVertices = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1NormalizedBoundingPoly"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly'
<$> (o .:? "vertices" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly'{..}
= object
(catMaybes [("vertices" .=) <$> _gcvvnbpVertices])
data GoogleCloudVideointelligenceV1beta2_WordInfo = GoogleCloudVideointelligenceV1beta2_WordInfo'
{ _goooStartTime :: !(Maybe GDuration)
, _goooConfidence :: !(Maybe (Textual Double))
, _goooEndTime :: !(Maybe GDuration)
, _goooWord :: !(Maybe Text)
, _goooSpeakerTag :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_WordInfo
:: GoogleCloudVideointelligenceV1beta2_WordInfo
googleCloudVideointelligenceV1beta2_WordInfo =
GoogleCloudVideointelligenceV1beta2_WordInfo'
{ _goooStartTime = Nothing
, _goooConfidence = Nothing
, _goooEndTime = Nothing
, _goooWord = Nothing
, _goooSpeakerTag = Nothing
}
goooStartTime :: Lens' GoogleCloudVideointelligenceV1beta2_WordInfo (Maybe Scientific)
goooStartTime
= lens _goooStartTime
(\ s a -> s{_goooStartTime = a})
. mapping _GDuration
goooConfidence :: Lens' GoogleCloudVideointelligenceV1beta2_WordInfo (Maybe Double)
goooConfidence
= lens _goooConfidence
(\ s a -> s{_goooConfidence = a})
. mapping _Coerce
goooEndTime :: Lens' GoogleCloudVideointelligenceV1beta2_WordInfo (Maybe Scientific)
goooEndTime
= lens _goooEndTime (\ s a -> s{_goooEndTime = a}) .
mapping _GDuration
goooWord :: Lens' GoogleCloudVideointelligenceV1beta2_WordInfo (Maybe Text)
goooWord = lens _goooWord (\ s a -> s{_goooWord = a})
goooSpeakerTag :: Lens' GoogleCloudVideointelligenceV1beta2_WordInfo (Maybe Int32)
goooSpeakerTag
= lens _goooSpeakerTag
(\ s a -> s{_goooSpeakerTag = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1beta2_WordInfo where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2WordInfo"
(\ o ->
GoogleCloudVideointelligenceV1beta2_WordInfo' <$>
(o .:? "startTime") <*> (o .:? "confidence") <*>
(o .:? "endTime")
<*> (o .:? "word")
<*> (o .:? "speakerTag"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_WordInfo where
toJSON
GoogleCloudVideointelligenceV1beta2_WordInfo'{..}
= object
(catMaybes
[("startTime" .=) <$> _goooStartTime,
("confidence" .=) <$> _goooConfidence,
("endTime" .=) <$> _goooEndTime,
("word" .=) <$> _goooWord,
("speakerTag" .=) <$> _goooSpeakerTag])
newtype GoogleCloudVideointelligenceV1_ExplicitContentAnnotation = GoogleCloudVideointelligenceV1_ExplicitContentAnnotation'
{ _gooFrames :: Maybe [GoogleCloudVideointelligenceV1_ExplicitContentFrame]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_ExplicitContentAnnotation
:: GoogleCloudVideointelligenceV1_ExplicitContentAnnotation
googleCloudVideointelligenceV1_ExplicitContentAnnotation =
GoogleCloudVideointelligenceV1_ExplicitContentAnnotation'
{ _gooFrames = Nothing
}
gooFrames :: Lens' GoogleCloudVideointelligenceV1_ExplicitContentAnnotation [GoogleCloudVideointelligenceV1_ExplicitContentFrame]
gooFrames
= lens _gooFrames (\ s a -> s{_gooFrames = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1_ExplicitContentAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1ExplicitContentAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1_ExplicitContentAnnotation'
<$> (o .:? "frames" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1_ExplicitContentAnnotation
where
toJSON
GoogleCloudVideointelligenceV1_ExplicitContentAnnotation'{..}
= object (catMaybes [("frames" .=) <$> _gooFrames])
newtype GoogleCloudVideointelligenceV1_AnnotateVideoResponse = GoogleCloudVideointelligenceV1_AnnotateVideoResponse'
{ _gooAnnotationResults :: Maybe [GoogleCloudVideointelligenceV1_VideoAnnotationResults]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_AnnotateVideoResponse
:: GoogleCloudVideointelligenceV1_AnnotateVideoResponse
googleCloudVideointelligenceV1_AnnotateVideoResponse =
GoogleCloudVideointelligenceV1_AnnotateVideoResponse'
{ _gooAnnotationResults = Nothing
}
gooAnnotationResults :: Lens' GoogleCloudVideointelligenceV1_AnnotateVideoResponse [GoogleCloudVideointelligenceV1_VideoAnnotationResults]
gooAnnotationResults
= lens _gooAnnotationResults
(\ s a -> s{_gooAnnotationResults = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1_AnnotateVideoResponse
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1AnnotateVideoResponse"
(\ o ->
GoogleCloudVideointelligenceV1_AnnotateVideoResponse'
<$> (o .:? "annotationResults" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1_AnnotateVideoResponse
where
toJSON
GoogleCloudVideointelligenceV1_AnnotateVideoResponse'{..}
= object
(catMaybes
[("annotationResults" .=) <$> _gooAnnotationResults])
data GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex = GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex'
{ _gcvvnvX :: !(Maybe (Textual Double))
, _gcvvnvY :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_NormalizedVertex
:: GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex
googleCloudVideointelligenceV1p2beta1_NormalizedVertex =
GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex'
{ _gcvvnvX = Nothing
, _gcvvnvY = Nothing
}
gcvvnvX :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex (Maybe Double)
gcvvnvX
= lens _gcvvnvX (\ s a -> s{_gcvvnvX = a}) .
mapping _Coerce
gcvvnvY :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex (Maybe Double)
gcvvnvY
= lens _gcvvnvY (\ s a -> s{_gcvvnvY = a}) .
mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1NormalizedVertex"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex'
<$> (o .:? "x") <*> (o .:? "y"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedVertex'{..}
= object
(catMaybes
[("x" .=) <$> _gcvvnvX, ("y" .=) <$> _gcvvnvY])
data GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation = GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation'
{ _gcvvlacCategoryEntities :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_Entity])
, _gcvvlacFrames :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_LabelFrame])
, _gcvvlacSegments :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_LabelSegment])
, _gcvvlacEntity :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_LabelAnnotation
:: GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation
googleCloudVideointelligenceV1p2beta1_LabelAnnotation =
GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation'
{ _gcvvlacCategoryEntities = Nothing
, _gcvvlacFrames = Nothing
, _gcvvlacSegments = Nothing
, _gcvvlacEntity = Nothing
}
gcvvlacCategoryEntities :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p2beta1_Entity]
gcvvlacCategoryEntities
= lens _gcvvlacCategoryEntities
(\ s a -> s{_gcvvlacCategoryEntities = a})
. _Default
. _Coerce
gcvvlacFrames :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p2beta1_LabelFrame]
gcvvlacFrames
= lens _gcvvlacFrames
(\ s a -> s{_gcvvlacFrames = a})
. _Default
. _Coerce
gcvvlacSegments :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p2beta1_LabelSegment]
gcvvlacSegments
= lens _gcvvlacSegments
(\ s a -> s{_gcvvlacSegments = a})
. _Default
. _Coerce
gcvvlacEntity :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation (Maybe GoogleCloudVideointelligenceV1p2beta1_Entity)
gcvvlacEntity
= lens _gcvvlacEntity
(\ s a -> s{_gcvvlacEntity = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1LabelAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation'
<$>
(o .:? "categoryEntities" .!= mempty) <*>
(o .:? "frames" .!= mempty)
<*> (o .:? "segments" .!= mempty)
<*> (o .:? "entity"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_LabelAnnotation'{..}
= object
(catMaybes
[("categoryEntities" .=) <$>
_gcvvlacCategoryEntities,
("frames" .=) <$> _gcvvlacFrames,
("segments" .=) <$> _gcvvlacSegments,
("entity" .=) <$> _gcvvlacEntity])
data GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative = GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative'
{ _gcvvsra1Confidence :: !(Maybe (Textual Double))
, _gcvvsra1Words :: !(Maybe [GoogleCloudVideointelligenceV1beta2_WordInfo])
, _gcvvsra1Transcript :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative
:: GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative
googleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative =
GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative'
{ _gcvvsra1Confidence = Nothing
, _gcvvsra1Words = Nothing
, _gcvvsra1Transcript = Nothing
}
gcvvsra1Confidence :: Lens' GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative (Maybe Double)
gcvvsra1Confidence
= lens _gcvvsra1Confidence
(\ s a -> s{_gcvvsra1Confidence = a})
. mapping _Coerce
gcvvsra1Words :: Lens' GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative [GoogleCloudVideointelligenceV1beta2_WordInfo]
gcvvsra1Words
= lens _gcvvsra1Words
(\ s a -> s{_gcvvsra1Words = a})
. _Default
. _Coerce
gcvvsra1Transcript :: Lens' GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative (Maybe Text)
gcvvsra1Transcript
= lens _gcvvsra1Transcript
(\ s a -> s{_gcvvsra1Transcript = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2SpeechRecognitionAlternative"
(\ o ->
GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative'
<$>
(o .:? "confidence") <*> (o .:? "words" .!= mempty)
<*> (o .:? "transcript"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative
where
toJSON
GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvsra1Confidence,
("words" .=) <$> _gcvvsra1Words,
("transcript" .=) <$> _gcvvsra1Transcript])
data GoogleCloudVideointelligenceV1p1beta1_VideoSegment = GoogleCloudVideointelligenceV1p1beta1_VideoSegment'
{ _gooStartTimeOffSet :: !(Maybe GDuration)
, _gooEndTimeOffSet :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_VideoSegment
:: GoogleCloudVideointelligenceV1p1beta1_VideoSegment
googleCloudVideointelligenceV1p1beta1_VideoSegment =
GoogleCloudVideointelligenceV1p1beta1_VideoSegment'
{ _gooStartTimeOffSet = Nothing
, _gooEndTimeOffSet = Nothing
}
gooStartTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoSegment (Maybe Scientific)
gooStartTimeOffSet
= lens _gooStartTimeOffSet
(\ s a -> s{_gooStartTimeOffSet = a})
. mapping _GDuration
gooEndTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoSegment (Maybe Scientific)
gooEndTimeOffSet
= lens _gooEndTimeOffSet
(\ s a -> s{_gooEndTimeOffSet = a})
. mapping _GDuration
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_VideoSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1VideoSegment"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_VideoSegment'
<$>
(o .:? "startTimeOffset") <*>
(o .:? "endTimeOffset"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_VideoSegment
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_VideoSegment'{..}
= object
(catMaybes
[("startTimeOffset" .=) <$> _gooStartTimeOffSet,
("endTimeOffset" .=) <$> _gooEndTimeOffSet])
newtype GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig = GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig'
{ _gcvvecdcModel :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig
:: GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig
googleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig =
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig'
{ _gcvvecdcModel = Nothing
}
gcvvecdcModel :: Lens' GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig (Maybe Text)
gcvvecdcModel
= lens _gcvvecdcModel
(\ s a -> s{_gcvvecdcModel = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1ExplicitContentDetectionConfig"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig'
<$> (o .:? "model"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentDetectionConfig'{..}
= object
(catMaybes [("model" .=) <$> _gcvvecdcModel])
data GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation = GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation'
{ _ggCategoryEntities :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_Entity])
, _ggFrames :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_LabelFrame])
, _ggSegments :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_LabelSegment])
, _ggEntity :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_LabelAnnotation
:: GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation
googleCloudVideointelligenceV1p1beta1_LabelAnnotation =
GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation'
{ _ggCategoryEntities = Nothing
, _ggFrames = Nothing
, _ggSegments = Nothing
, _ggEntity = Nothing
}
ggCategoryEntities :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p1beta1_Entity]
ggCategoryEntities
= lens _ggCategoryEntities
(\ s a -> s{_ggCategoryEntities = a})
. _Default
. _Coerce
ggFrames :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p1beta1_LabelFrame]
ggFrames
= lens _ggFrames (\ s a -> s{_ggFrames = a}) .
_Default
. _Coerce
ggSegments :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation [GoogleCloudVideointelligenceV1p1beta1_LabelSegment]
ggSegments
= lens _ggSegments (\ s a -> s{_ggSegments = a}) .
_Default
. _Coerce
ggEntity :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation (Maybe GoogleCloudVideointelligenceV1p1beta1_Entity)
ggEntity = lens _ggEntity (\ s a -> s{_ggEntity = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1LabelAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation'
<$>
(o .:? "categoryEntities" .!= mempty) <*>
(o .:? "frames" .!= mempty)
<*> (o .:? "segments" .!= mempty)
<*> (o .:? "entity"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation'{..}
= object
(catMaybes
[("categoryEntities" .=) <$> _ggCategoryEntities,
("frames" .=) <$> _ggFrames,
("segments" .=) <$> _ggSegments,
("entity" .=) <$> _ggEntity])
data GoogleCloudVideointelligenceV1_LabelFrame = GoogleCloudVideointelligenceV1_LabelFrame'
{ _gcvvlf1TimeOffSet :: !(Maybe GDuration)
, _gcvvlf1Confidence :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_LabelFrame
:: GoogleCloudVideointelligenceV1_LabelFrame
googleCloudVideointelligenceV1_LabelFrame =
GoogleCloudVideointelligenceV1_LabelFrame'
{ _gcvvlf1TimeOffSet = Nothing
, _gcvvlf1Confidence = Nothing
}
gcvvlf1TimeOffSet :: Lens' GoogleCloudVideointelligenceV1_LabelFrame (Maybe Scientific)
gcvvlf1TimeOffSet
= lens _gcvvlf1TimeOffSet
(\ s a -> s{_gcvvlf1TimeOffSet = a})
. mapping _GDuration
gcvvlf1Confidence :: Lens' GoogleCloudVideointelligenceV1_LabelFrame (Maybe Double)
gcvvlf1Confidence
= lens _gcvvlf1Confidence
(\ s a -> s{_gcvvlf1Confidence = a})
. mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1_LabelFrame where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1LabelFrame"
(\ o ->
GoogleCloudVideointelligenceV1_LabelFrame' <$>
(o .:? "timeOffset") <*> (o .:? "confidence"))
instance ToJSON
GoogleCloudVideointelligenceV1_LabelFrame where
toJSON GoogleCloudVideointelligenceV1_LabelFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvlf1TimeOffSet,
("confidence" .=) <$> _gcvvlf1Confidence])
data GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame = GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame'
{ _gooTimeOffSet :: !(Maybe GDuration)
, _gooPornographyLikelihood :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFramePornographyLikelihood)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_ExplicitContentFrame
:: GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame
googleCloudVideointelligenceV1p2beta1_ExplicitContentFrame =
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame'
{ _gooTimeOffSet = Nothing
, _gooPornographyLikelihood = Nothing
}
gooTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame (Maybe Scientific)
gooTimeOffSet
= lens _gooTimeOffSet
(\ s a -> s{_gooTimeOffSet = a})
. mapping _GDuration
gooPornographyLikelihood :: Lens' GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame (Maybe GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFramePornographyLikelihood)
gooPornographyLikelihood
= lens _gooPornographyLikelihood
(\ s a -> s{_gooPornographyLikelihood = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1ExplicitContentFrame"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame'
<$>
(o .:? "timeOffset") <*>
(o .:? "pornographyLikelihood"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_ExplicitContentFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gooTimeOffSet,
("pornographyLikelihood" .=) <$>
_gooPornographyLikelihood])
data GoogleCloudVideointelligenceV1_Entity = GoogleCloudVideointelligenceV1_Entity'
{ _gcvvecLanguageCode :: !(Maybe Text)
, _gcvvecEntityId :: !(Maybe Text)
, _gcvvecDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_Entity
:: GoogleCloudVideointelligenceV1_Entity
googleCloudVideointelligenceV1_Entity =
GoogleCloudVideointelligenceV1_Entity'
{ _gcvvecLanguageCode = Nothing
, _gcvvecEntityId = Nothing
, _gcvvecDescription = Nothing
}
gcvvecLanguageCode :: Lens' GoogleCloudVideointelligenceV1_Entity (Maybe Text)
gcvvecLanguageCode
= lens _gcvvecLanguageCode
(\ s a -> s{_gcvvecLanguageCode = a})
gcvvecEntityId :: Lens' GoogleCloudVideointelligenceV1_Entity (Maybe Text)
gcvvecEntityId
= lens _gcvvecEntityId
(\ s a -> s{_gcvvecEntityId = a})
gcvvecDescription :: Lens' GoogleCloudVideointelligenceV1_Entity (Maybe Text)
gcvvecDescription
= lens _gcvvecDescription
(\ s a -> s{_gcvvecDescription = a})
instance FromJSON
GoogleCloudVideointelligenceV1_Entity where
parseJSON
= withObject "GoogleCloudVideointelligenceV1Entity"
(\ o ->
GoogleCloudVideointelligenceV1_Entity' <$>
(o .:? "languageCode") <*> (o .:? "entityId") <*>
(o .:? "description"))
instance ToJSON GoogleCloudVideointelligenceV1_Entity
where
toJSON GoogleCloudVideointelligenceV1_Entity'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcvvecLanguageCode,
("entityId" .=) <$> _gcvvecEntityId,
("description" .=) <$> _gcvvecDescription])
data GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress = GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress'
{ _gcvvvapsStartTime :: !(Maybe DateTime')
, _gcvvvapsInputURI :: !(Maybe Text)
, _gcvvvapsProgressPercent :: !(Maybe (Textual Int32))
, _gcvvvapsUpdateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_VideoAnnotationProgress
:: GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress
googleCloudVideointelligenceV1beta2_VideoAnnotationProgress =
GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress'
{ _gcvvvapsStartTime = Nothing
, _gcvvvapsInputURI = Nothing
, _gcvvvapsProgressPercent = Nothing
, _gcvvvapsUpdateTime = Nothing
}
gcvvvapsStartTime :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapsStartTime
= lens _gcvvvapsStartTime
(\ s a -> s{_gcvvvapsStartTime = a})
. mapping _DateTime
gcvvvapsInputURI :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress (Maybe Text)
gcvvvapsInputURI
= lens _gcvvvapsInputURI
(\ s a -> s{_gcvvvapsInputURI = a})
gcvvvapsProgressPercent :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress (Maybe Int32)
gcvvvapsProgressPercent
= lens _gcvvvapsProgressPercent
(\ s a -> s{_gcvvvapsProgressPercent = a})
. mapping _Coerce
gcvvvapsUpdateTime :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapsUpdateTime
= lens _gcvvvapsUpdateTime
(\ s a -> s{_gcvvvapsUpdateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2VideoAnnotationProgress"
(\ o ->
GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress'
<$>
(o .:? "startTime") <*> (o .:? "inputUri") <*>
(o .:? "progressPercent")
<*> (o .:? "updateTime"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress
where
toJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationProgress'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcvvvapsStartTime,
("inputUri" .=) <$> _gcvvvapsInputURI,
("progressPercent" .=) <$> _gcvvvapsProgressPercent,
("updateTime" .=) <$> _gcvvvapsUpdateTime])
data GoogleCloudVideointelligenceV1beta2_SpeechTranscription = GoogleCloudVideointelligenceV1beta2_SpeechTranscription'
{ _gcvvstcAlternatives :: !(Maybe [GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative])
, _gcvvstcLanguageCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_SpeechTranscription
:: GoogleCloudVideointelligenceV1beta2_SpeechTranscription
googleCloudVideointelligenceV1beta2_SpeechTranscription =
GoogleCloudVideointelligenceV1beta2_SpeechTranscription'
{ _gcvvstcAlternatives = Nothing
, _gcvvstcLanguageCode = Nothing
}
gcvvstcAlternatives :: Lens' GoogleCloudVideointelligenceV1beta2_SpeechTranscription [GoogleCloudVideointelligenceV1beta2_SpeechRecognitionAlternative]
gcvvstcAlternatives
= lens _gcvvstcAlternatives
(\ s a -> s{_gcvvstcAlternatives = a})
. _Default
. _Coerce
gcvvstcLanguageCode :: Lens' GoogleCloudVideointelligenceV1beta2_SpeechTranscription (Maybe Text)
gcvvstcLanguageCode
= lens _gcvvstcLanguageCode
(\ s a -> s{_gcvvstcLanguageCode = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_SpeechTranscription
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2SpeechTranscription"
(\ o ->
GoogleCloudVideointelligenceV1beta2_SpeechTranscription'
<$>
(o .:? "alternatives" .!= mempty) <*>
(o .:? "languageCode"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_SpeechTranscription
where
toJSON
GoogleCloudVideointelligenceV1beta2_SpeechTranscription'{..}
= object
(catMaybes
[("alternatives" .=) <$> _gcvvstcAlternatives,
("languageCode" .=) <$> _gcvvstcLanguageCode])
data GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults = GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults'
{ _gooShotAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_VideoSegment])
, _gooShotLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation])
, _gooInputURI :: !(Maybe Text)
, _gooError :: !(Maybe GoogleRpc_Status)
, _gooFrameLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation])
, _gooSpeechTranscriptions :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription])
, _gooSegmentLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation])
, _gooExplicitAnnotation :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_VideoAnnotationResults
:: GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults
googleCloudVideointelligenceV1p1beta1_VideoAnnotationResults =
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults'
{ _gooShotAnnotations = Nothing
, _gooShotLabelAnnotations = Nothing
, _gooInputURI = Nothing
, _gooError = Nothing
, _gooFrameLabelAnnotations = Nothing
, _gooSpeechTranscriptions = Nothing
, _gooSegmentLabelAnnotations = Nothing
, _gooExplicitAnnotation = Nothing
}
gooShotAnnotations :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p1beta1_VideoSegment]
gooShotAnnotations
= lens _gooShotAnnotations
(\ s a -> s{_gooShotAnnotations = a})
. _Default
. _Coerce
gooShotLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation]
gooShotLabelAnnotations
= lens _gooShotLabelAnnotations
(\ s a -> s{_gooShotLabelAnnotations = a})
. _Default
. _Coerce
gooInputURI :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults (Maybe Text)
gooInputURI
= lens _gooInputURI (\ s a -> s{_gooInputURI = a})
gooError :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults (Maybe GoogleRpc_Status)
gooError = lens _gooError (\ s a -> s{_gooError = a})
gooFrameLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation]
gooFrameLabelAnnotations
= lens _gooFrameLabelAnnotations
(\ s a -> s{_gooFrameLabelAnnotations = a})
. _Default
. _Coerce
gooSpeechTranscriptions :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription]
gooSpeechTranscriptions
= lens _gooSpeechTranscriptions
(\ s a -> s{_gooSpeechTranscriptions = a})
. _Default
. _Coerce
gooSegmentLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults [GoogleCloudVideointelligenceV1p1beta1_LabelAnnotation]
gooSegmentLabelAnnotations
= lens _gooSegmentLabelAnnotations
(\ s a -> s{_gooSegmentLabelAnnotations = a})
. _Default
. _Coerce
gooExplicitAnnotation :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults (Maybe GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation)
gooExplicitAnnotation
= lens _gooExplicitAnnotation
(\ s a -> s{_gooExplicitAnnotation = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1VideoAnnotationResults"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults'
<$>
(o .:? "shotAnnotations" .!= mempty) <*>
(o .:? "shotLabelAnnotations" .!= mempty)
<*> (o .:? "inputUri")
<*> (o .:? "error")
<*> (o .:? "frameLabelAnnotations" .!= mempty)
<*> (o .:? "speechTranscriptions" .!= mempty)
<*> (o .:? "segmentLabelAnnotations" .!= mempty)
<*> (o .:? "explicitAnnotation"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults'{..}
= object
(catMaybes
[("shotAnnotations" .=) <$> _gooShotAnnotations,
("shotLabelAnnotations" .=) <$>
_gooShotLabelAnnotations,
("inputUri" .=) <$> _gooInputURI,
("error" .=) <$> _gooError,
("frameLabelAnnotations" .=) <$>
_gooFrameLabelAnnotations,
("speechTranscriptions" .=) <$>
_gooSpeechTranscriptions,
("segmentLabelAnnotations" .=) <$>
_gooSegmentLabelAnnotations,
("explicitAnnotation" .=) <$>
_gooExplicitAnnotation])
newtype GoogleCloudVideointelligenceV1_AnnotateVideoProgress = GoogleCloudVideointelligenceV1_AnnotateVideoProgress'
{ _gooAnnotationProgress :: Maybe [GoogleCloudVideointelligenceV1_VideoAnnotationProgress]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_AnnotateVideoProgress
:: GoogleCloudVideointelligenceV1_AnnotateVideoProgress
googleCloudVideointelligenceV1_AnnotateVideoProgress =
GoogleCloudVideointelligenceV1_AnnotateVideoProgress'
{ _gooAnnotationProgress = Nothing
}
gooAnnotationProgress :: Lens' GoogleCloudVideointelligenceV1_AnnotateVideoProgress [GoogleCloudVideointelligenceV1_VideoAnnotationProgress]
gooAnnotationProgress
= lens _gooAnnotationProgress
(\ s a -> s{_gooAnnotationProgress = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1_AnnotateVideoProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1AnnotateVideoProgress"
(\ o ->
GoogleCloudVideointelligenceV1_AnnotateVideoProgress'
<$> (o .:? "annotationProgress" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1_AnnotateVideoProgress
where
toJSON
GoogleCloudVideointelligenceV1_AnnotateVideoProgress'{..}
= object
(catMaybes
[("annotationProgress" .=) <$>
_gooAnnotationProgress])
data GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig = GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig'
{ _gcvvstccSpeechContexts :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_SpeechContext])
, _gcvvstccLanguageCode :: !(Maybe Text)
, _gcvvstccAudioTracks :: !(Maybe [Textual Int32])
, _gcvvstccEnableAutomaticPunctuation :: !(Maybe Bool)
, _gcvvstccMaxAlternatives :: !(Maybe (Textual Int32))
, _gcvvstccEnableSpeakerDiarization :: !(Maybe Bool)
, _gcvvstccFilterProfanity :: !(Maybe Bool)
, _gcvvstccDiarizationSpeakerCount :: !(Maybe (Textual Int32))
, _gcvvstccEnableWordConfidence :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig
:: GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig
googleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig =
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig'
{ _gcvvstccSpeechContexts = Nothing
, _gcvvstccLanguageCode = Nothing
, _gcvvstccAudioTracks = Nothing
, _gcvvstccEnableAutomaticPunctuation = Nothing
, _gcvvstccMaxAlternatives = Nothing
, _gcvvstccEnableSpeakerDiarization = Nothing
, _gcvvstccFilterProfanity = Nothing
, _gcvvstccDiarizationSpeakerCount = Nothing
, _gcvvstccEnableWordConfidence = Nothing
}
gcvvstccSpeechContexts :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig [GoogleCloudVideointelligenceV1p1beta1_SpeechContext]
gcvvstccSpeechContexts
= lens _gcvvstccSpeechContexts
(\ s a -> s{_gcvvstccSpeechContexts = a})
. _Default
. _Coerce
gcvvstccLanguageCode :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Text)
gcvvstccLanguageCode
= lens _gcvvstccLanguageCode
(\ s a -> s{_gcvvstccLanguageCode = a})
gcvvstccAudioTracks :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig [Int32]
gcvvstccAudioTracks
= lens _gcvvstccAudioTracks
(\ s a -> s{_gcvvstccAudioTracks = a})
. _Default
. _Coerce
gcvvstccEnableAutomaticPunctuation :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Bool)
gcvvstccEnableAutomaticPunctuation
= lens _gcvvstccEnableAutomaticPunctuation
(\ s a -> s{_gcvvstccEnableAutomaticPunctuation = a})
gcvvstccMaxAlternatives :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Int32)
gcvvstccMaxAlternatives
= lens _gcvvstccMaxAlternatives
(\ s a -> s{_gcvvstccMaxAlternatives = a})
. mapping _Coerce
gcvvstccEnableSpeakerDiarization :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Bool)
gcvvstccEnableSpeakerDiarization
= lens _gcvvstccEnableSpeakerDiarization
(\ s a -> s{_gcvvstccEnableSpeakerDiarization = a})
gcvvstccFilterProfanity :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Bool)
gcvvstccFilterProfanity
= lens _gcvvstccFilterProfanity
(\ s a -> s{_gcvvstccFilterProfanity = a})
gcvvstccDiarizationSpeakerCount :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Int32)
gcvvstccDiarizationSpeakerCount
= lens _gcvvstccDiarizationSpeakerCount
(\ s a -> s{_gcvvstccDiarizationSpeakerCount = a})
. mapping _Coerce
gcvvstccEnableWordConfidence :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig (Maybe Bool)
gcvvstccEnableWordConfidence
= lens _gcvvstccEnableWordConfidence
(\ s a -> s{_gcvvstccEnableWordConfidence = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1SpeechTranscriptionConfig"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig'
<$>
(o .:? "speechContexts" .!= mempty) <*>
(o .:? "languageCode")
<*> (o .:? "audioTracks" .!= mempty)
<*> (o .:? "enableAutomaticPunctuation")
<*> (o .:? "maxAlternatives")
<*> (o .:? "enableSpeakerDiarization")
<*> (o .:? "filterProfanity")
<*> (o .:? "diarizationSpeakerCount")
<*> (o .:? "enableWordConfidence"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscriptionConfig'{..}
= object
(catMaybes
[("speechContexts" .=) <$> _gcvvstccSpeechContexts,
("languageCode" .=) <$> _gcvvstccLanguageCode,
("audioTracks" .=) <$> _gcvvstccAudioTracks,
("enableAutomaticPunctuation" .=) <$>
_gcvvstccEnableAutomaticPunctuation,
("maxAlternatives" .=) <$> _gcvvstccMaxAlternatives,
("enableSpeakerDiarization" .=) <$>
_gcvvstccEnableSpeakerDiarization,
("filterProfanity" .=) <$> _gcvvstccFilterProfanity,
("diarizationSpeakerCount" .=) <$>
_gcvvstccDiarizationSpeakerCount,
("enableWordConfidence" .=) <$>
_gcvvstccEnableWordConfidence])
newtype GoogleLongrunning_OperationResponse = GoogleLongrunning_OperationResponse'
{ _glorAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning_OperationResponse
:: HashMap Text JSONValue
-> GoogleLongrunning_OperationResponse
googleLongrunning_OperationResponse pGlorAddtional_ =
GoogleLongrunning_OperationResponse'
{ _glorAddtional = _Coerce # pGlorAddtional_
}
glorAddtional :: Lens' GoogleLongrunning_OperationResponse (HashMap Text JSONValue)
glorAddtional
= lens _glorAddtional
(\ s a -> s{_glorAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunning_OperationResponse
where
parseJSON
= withObject "GoogleLongrunningOperationResponse"
(\ o ->
GoogleLongrunning_OperationResponse' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunning_OperationResponse
where
toJSON = toJSON . _glorAddtional
data GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress = GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress'
{ _gcvvvapcStartTime :: !(Maybe DateTime')
, _gcvvvapcInputURI :: !(Maybe Text)
, _gcvvvapcProgressPercent :: !(Maybe (Textual Int32))
, _gcvvvapcUpdateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress
:: GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress
googleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress =
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress'
{ _gcvvvapcStartTime = Nothing
, _gcvvvapcInputURI = Nothing
, _gcvvvapcProgressPercent = Nothing
, _gcvvvapcUpdateTime = Nothing
}
gcvvvapcStartTime :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapcStartTime
= lens _gcvvvapcStartTime
(\ s a -> s{_gcvvvapcStartTime = a})
. mapping _DateTime
gcvvvapcInputURI :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress (Maybe Text)
gcvvvapcInputURI
= lens _gcvvvapcInputURI
(\ s a -> s{_gcvvvapcInputURI = a})
gcvvvapcProgressPercent :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress (Maybe Int32)
gcvvvapcProgressPercent
= lens _gcvvvapcProgressPercent
(\ s a -> s{_gcvvvapcProgressPercent = a})
. mapping _Coerce
gcvvvapcUpdateTime :: Lens' GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress (Maybe UTCTime)
gcvvvapcUpdateTime
= lens _gcvvvapcUpdateTime
(\ s a -> s{_gcvvvapcUpdateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1VideoAnnotationProgress"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress'
<$>
(o .:? "startTime") <*> (o .:? "inputUri") <*>
(o .:? "progressPercent")
<*> (o .:? "updateTime"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationProgress'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcvvvapcStartTime,
("inputUri" .=) <$> _gcvvvapcInputURI,
("progressPercent" .=) <$> _gcvvvapcProgressPercent,
("updateTime" .=) <$> _gcvvvapcUpdateTime])
data GoogleCloudVideointelligenceV1p2beta1_TextFrame = GoogleCloudVideointelligenceV1p2beta1_TextFrame'
{ _gcvvtfRotatedBoundingBox :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly)
, _gcvvtfTimeOffSet :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_TextFrame
:: GoogleCloudVideointelligenceV1p2beta1_TextFrame
googleCloudVideointelligenceV1p2beta1_TextFrame =
GoogleCloudVideointelligenceV1p2beta1_TextFrame'
{ _gcvvtfRotatedBoundingBox = Nothing
, _gcvvtfTimeOffSet = Nothing
}
gcvvtfRotatedBoundingBox :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextFrame (Maybe GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingPoly)
gcvvtfRotatedBoundingBox
= lens _gcvvtfRotatedBoundingBox
(\ s a -> s{_gcvvtfRotatedBoundingBox = a})
gcvvtfTimeOffSet :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextFrame (Maybe Scientific)
gcvvtfTimeOffSet
= lens _gcvvtfTimeOffSet
(\ s a -> s{_gcvvtfTimeOffSet = a})
. mapping _GDuration
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_TextFrame where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1TextFrame"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_TextFrame' <$>
(o .:? "rotatedBoundingBox") <*>
(o .:? "timeOffset"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_TextFrame where
toJSON
GoogleCloudVideointelligenceV1p2beta1_TextFrame'{..}
= object
(catMaybes
[("rotatedBoundingBox" .=) <$>
_gcvvtfRotatedBoundingBox,
("timeOffset" .=) <$> _gcvvtfTimeOffSet])
data GoogleCloudVideointelligenceV1beta2_LabelAnnotation = GoogleCloudVideointelligenceV1beta2_LabelAnnotation'
{ _goooCategoryEntities :: !(Maybe [GoogleCloudVideointelligenceV1beta2_Entity])
, _goooFrames :: !(Maybe [GoogleCloudVideointelligenceV1beta2_LabelFrame])
, _goooSegments :: !(Maybe [GoogleCloudVideointelligenceV1beta2_LabelSegment])
, _goooEntity :: !(Maybe GoogleCloudVideointelligenceV1beta2_Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_LabelAnnotation
:: GoogleCloudVideointelligenceV1beta2_LabelAnnotation
googleCloudVideointelligenceV1beta2_LabelAnnotation =
GoogleCloudVideointelligenceV1beta2_LabelAnnotation'
{ _goooCategoryEntities = Nothing
, _goooFrames = Nothing
, _goooSegments = Nothing
, _goooEntity = Nothing
}
goooCategoryEntities :: Lens' GoogleCloudVideointelligenceV1beta2_LabelAnnotation [GoogleCloudVideointelligenceV1beta2_Entity]
goooCategoryEntities
= lens _goooCategoryEntities
(\ s a -> s{_goooCategoryEntities = a})
. _Default
. _Coerce
goooFrames :: Lens' GoogleCloudVideointelligenceV1beta2_LabelAnnotation [GoogleCloudVideointelligenceV1beta2_LabelFrame]
goooFrames
= lens _goooFrames (\ s a -> s{_goooFrames = a}) .
_Default
. _Coerce
goooSegments :: Lens' GoogleCloudVideointelligenceV1beta2_LabelAnnotation [GoogleCloudVideointelligenceV1beta2_LabelSegment]
goooSegments
= lens _goooSegments (\ s a -> s{_goooSegments = a})
. _Default
. _Coerce
goooEntity :: Lens' GoogleCloudVideointelligenceV1beta2_LabelAnnotation (Maybe GoogleCloudVideointelligenceV1beta2_Entity)
goooEntity
= lens _goooEntity (\ s a -> s{_goooEntity = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_LabelAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2LabelAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1beta2_LabelAnnotation'
<$>
(o .:? "categoryEntities" .!= mempty) <*>
(o .:? "frames" .!= mempty)
<*> (o .:? "segments" .!= mempty)
<*> (o .:? "entity"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_LabelAnnotation
where
toJSON
GoogleCloudVideointelligenceV1beta2_LabelAnnotation'{..}
= object
(catMaybes
[("categoryEntities" .=) <$> _goooCategoryEntities,
("frames" .=) <$> _goooFrames,
("segments" .=) <$> _goooSegments,
("entity" .=) <$> _goooEntity])
data GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig = GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig'
{ _gcvvldcLabelDetectionMode :: !(Maybe GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfigLabelDetectionMode)
, _gcvvldcStationaryCamera :: !(Maybe Bool)
, _gcvvldcModel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_LabelDetectionConfig
:: GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig
googleCloudVideointelligenceV1p1beta1_LabelDetectionConfig =
GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig'
{ _gcvvldcLabelDetectionMode = Nothing
, _gcvvldcStationaryCamera = Nothing
, _gcvvldcModel = Nothing
}
gcvvldcLabelDetectionMode :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig (Maybe GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfigLabelDetectionMode)
gcvvldcLabelDetectionMode
= lens _gcvvldcLabelDetectionMode
(\ s a -> s{_gcvvldcLabelDetectionMode = a})
gcvvldcStationaryCamera :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig (Maybe Bool)
gcvvldcStationaryCamera
= lens _gcvvldcStationaryCamera
(\ s a -> s{_gcvvldcStationaryCamera = a})
gcvvldcModel :: Lens' GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig (Maybe Text)
gcvvldcModel
= lens _gcvvldcModel (\ s a -> s{_gcvvldcModel = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1LabelDetectionConfig"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig'
<$>
(o .:? "labelDetectionMode") <*>
(o .:? "stationaryCamera")
<*> (o .:? "model"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_LabelDetectionConfig'{..}
= object
(catMaybes
[("labelDetectionMode" .=) <$>
_gcvvldcLabelDetectionMode,
("stationaryCamera" .=) <$> _gcvvldcStationaryCamera,
("model" .=) <$> _gcvvldcModel])
data GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription = GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription'
{ _ggAlternatives :: !(Maybe [GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative])
, _ggLanguageCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_SpeechTranscription
:: GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription
googleCloudVideointelligenceV1p1beta1_SpeechTranscription =
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription'
{ _ggAlternatives = Nothing
, _ggLanguageCode = Nothing
}
ggAlternatives :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription [GoogleCloudVideointelligenceV1p1beta1_SpeechRecognitionAlternative]
ggAlternatives
= lens _ggAlternatives
(\ s a -> s{_ggAlternatives = a})
. _Default
. _Coerce
ggLanguageCode :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription (Maybe Text)
ggLanguageCode
= lens _ggLanguageCode
(\ s a -> s{_ggLanguageCode = a})
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1SpeechTranscription"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription'
<$>
(o .:? "alternatives" .!= mempty) <*>
(o .:? "languageCode"))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechTranscription'{..}
= object
(catMaybes
[("alternatives" .=) <$> _ggAlternatives,
("languageCode" .=) <$> _ggLanguageCode])
data GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults = GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults'
{ _gcvvvarcShotAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1beta2_VideoSegment])
, _gcvvvarcShotLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1beta2_LabelAnnotation])
, _gcvvvarcInputURI :: !(Maybe Text)
, _gcvvvarcError :: !(Maybe GoogleRpc_Status)
, _gcvvvarcFrameLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1beta2_LabelAnnotation])
, _gcvvvarcSpeechTranscriptions :: !(Maybe [GoogleCloudVideointelligenceV1beta2_SpeechTranscription])
, _gcvvvarcSegmentLabelAnnotations :: !(Maybe [GoogleCloudVideointelligenceV1beta2_LabelAnnotation])
, _gcvvvarcExplicitAnnotation :: !(Maybe GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_VideoAnnotationResults
:: GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults
googleCloudVideointelligenceV1beta2_VideoAnnotationResults =
GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults'
{ _gcvvvarcShotAnnotations = Nothing
, _gcvvvarcShotLabelAnnotations = Nothing
, _gcvvvarcInputURI = Nothing
, _gcvvvarcError = Nothing
, _gcvvvarcFrameLabelAnnotations = Nothing
, _gcvvvarcSpeechTranscriptions = Nothing
, _gcvvvarcSegmentLabelAnnotations = Nothing
, _gcvvvarcExplicitAnnotation = Nothing
}
gcvvvarcShotAnnotations :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults [GoogleCloudVideointelligenceV1beta2_VideoSegment]
gcvvvarcShotAnnotations
= lens _gcvvvarcShotAnnotations
(\ s a -> s{_gcvvvarcShotAnnotations = a})
. _Default
. _Coerce
gcvvvarcShotLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults [GoogleCloudVideointelligenceV1beta2_LabelAnnotation]
gcvvvarcShotLabelAnnotations
= lens _gcvvvarcShotLabelAnnotations
(\ s a -> s{_gcvvvarcShotLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarcInputURI :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults (Maybe Text)
gcvvvarcInputURI
= lens _gcvvvarcInputURI
(\ s a -> s{_gcvvvarcInputURI = a})
gcvvvarcError :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults (Maybe GoogleRpc_Status)
gcvvvarcError
= lens _gcvvvarcError
(\ s a -> s{_gcvvvarcError = a})
gcvvvarcFrameLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults [GoogleCloudVideointelligenceV1beta2_LabelAnnotation]
gcvvvarcFrameLabelAnnotations
= lens _gcvvvarcFrameLabelAnnotations
(\ s a -> s{_gcvvvarcFrameLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarcSpeechTranscriptions :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults [GoogleCloudVideointelligenceV1beta2_SpeechTranscription]
gcvvvarcSpeechTranscriptions
= lens _gcvvvarcSpeechTranscriptions
(\ s a -> s{_gcvvvarcSpeechTranscriptions = a})
. _Default
. _Coerce
gcvvvarcSegmentLabelAnnotations :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults [GoogleCloudVideointelligenceV1beta2_LabelAnnotation]
gcvvvarcSegmentLabelAnnotations
= lens _gcvvvarcSegmentLabelAnnotations
(\ s a -> s{_gcvvvarcSegmentLabelAnnotations = a})
. _Default
. _Coerce
gcvvvarcExplicitAnnotation :: Lens' GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults (Maybe GoogleCloudVideointelligenceV1beta2_ExplicitContentAnnotation)
gcvvvarcExplicitAnnotation
= lens _gcvvvarcExplicitAnnotation
(\ s a -> s{_gcvvvarcExplicitAnnotation = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2VideoAnnotationResults"
(\ o ->
GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults'
<$>
(o .:? "shotAnnotations" .!= mempty) <*>
(o .:? "shotLabelAnnotations" .!= mempty)
<*> (o .:? "inputUri")
<*> (o .:? "error")
<*> (o .:? "frameLabelAnnotations" .!= mempty)
<*> (o .:? "speechTranscriptions" .!= mempty)
<*> (o .:? "segmentLabelAnnotations" .!= mempty)
<*> (o .:? "explicitAnnotation"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults
where
toJSON
GoogleCloudVideointelligenceV1beta2_VideoAnnotationResults'{..}
= object
(catMaybes
[("shotAnnotations" .=) <$> _gcvvvarcShotAnnotations,
("shotLabelAnnotations" .=) <$>
_gcvvvarcShotLabelAnnotations,
("inputUri" .=) <$> _gcvvvarcInputURI,
("error" .=) <$> _gcvvvarcError,
("frameLabelAnnotations" .=) <$>
_gcvvvarcFrameLabelAnnotations,
("speechTranscriptions" .=) <$>
_gcvvvarcSpeechTranscriptions,
("segmentLabelAnnotations" .=) <$>
_gcvvvarcSegmentLabelAnnotations,
("explicitAnnotation" .=) <$>
_gcvvvarcExplicitAnnotation])
data GoogleCloudVideointelligenceV1p2beta1_LabelSegment = GoogleCloudVideointelligenceV1p2beta1_LabelSegment'
{ _gcvvls1Confidence :: !(Maybe (Textual Double))
, _gcvvls1Segment :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_LabelSegment
:: GoogleCloudVideointelligenceV1p2beta1_LabelSegment
googleCloudVideointelligenceV1p2beta1_LabelSegment =
GoogleCloudVideointelligenceV1p2beta1_LabelSegment'
{ _gcvvls1Confidence = Nothing
, _gcvvls1Segment = Nothing
}
gcvvls1Confidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelSegment (Maybe Double)
gcvvls1Confidence
= lens _gcvvls1Confidence
(\ s a -> s{_gcvvls1Confidence = a})
. mapping _Coerce
gcvvls1Segment :: Lens' GoogleCloudVideointelligenceV1p2beta1_LabelSegment (Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
gcvvls1Segment
= lens _gcvvls1Segment
(\ s a -> s{_gcvvls1Segment = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_LabelSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1LabelSegment"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_LabelSegment'
<$> (o .:? "confidence") <*> (o .:? "segment"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_LabelSegment
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_LabelSegment'{..}
= object
(catMaybes
[("confidence" .=) <$> _gcvvls1Confidence,
("segment" .=) <$> _gcvvls1Segment])
data GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox = GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox'
{ _gcvvnbbBottom :: !(Maybe (Textual Double))
, _gcvvnbbLeft :: !(Maybe (Textual Double))
, _gcvvnbbRight :: !(Maybe (Textual Double))
, _gcvvnbbTop :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox
:: GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox
googleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox =
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox'
{ _gcvvnbbBottom = Nothing
, _gcvvnbbLeft = Nothing
, _gcvvnbbRight = Nothing
, _gcvvnbbTop = Nothing
}
gcvvnbbBottom :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox (Maybe Double)
gcvvnbbBottom
= lens _gcvvnbbBottom
(\ s a -> s{_gcvvnbbBottom = a})
. mapping _Coerce
gcvvnbbLeft :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox (Maybe Double)
gcvvnbbLeft
= lens _gcvvnbbLeft (\ s a -> s{_gcvvnbbLeft = a}) .
mapping _Coerce
gcvvnbbRight :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox (Maybe Double)
gcvvnbbRight
= lens _gcvvnbbRight (\ s a -> s{_gcvvnbbRight = a})
. mapping _Coerce
gcvvnbbTop :: Lens' GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox (Maybe Double)
gcvvnbbTop
= lens _gcvvnbbTop (\ s a -> s{_gcvvnbbTop = a}) .
mapping _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1NormalizedBoundingBox"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox'
<$>
(o .:? "bottom") <*> (o .:? "left") <*>
(o .:? "right")
<*> (o .:? "top"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_NormalizedBoundingBox'{..}
= object
(catMaybes
[("bottom" .=) <$> _gcvvnbbBottom,
("left" .=) <$> _gcvvnbbLeft,
("right" .=) <$> _gcvvnbbRight,
("top" .=) <$> _gcvvnbbTop])
data GoogleCloudVideointelligenceV1p2beta1_TextSegment = GoogleCloudVideointelligenceV1p2beta1_TextSegment'
{ _gcvvtsFrames :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_TextFrame])
, _gcvvtsConfidence :: !(Maybe (Textual Double))
, _gcvvtsSegment :: !(Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_TextSegment
:: GoogleCloudVideointelligenceV1p2beta1_TextSegment
googleCloudVideointelligenceV1p2beta1_TextSegment =
GoogleCloudVideointelligenceV1p2beta1_TextSegment'
{ _gcvvtsFrames = Nothing
, _gcvvtsConfidence = Nothing
, _gcvvtsSegment = Nothing
}
gcvvtsFrames :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextSegment [GoogleCloudVideointelligenceV1p2beta1_TextFrame]
gcvvtsFrames
= lens _gcvvtsFrames (\ s a -> s{_gcvvtsFrames = a})
. _Default
. _Coerce
gcvvtsConfidence :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextSegment (Maybe Double)
gcvvtsConfidence
= lens _gcvvtsConfidence
(\ s a -> s{_gcvvtsConfidence = a})
. mapping _Coerce
gcvvtsSegment :: Lens' GoogleCloudVideointelligenceV1p2beta1_TextSegment (Maybe GoogleCloudVideointelligenceV1p2beta1_VideoSegment)
gcvvtsSegment
= lens _gcvvtsSegment
(\ s a -> s{_gcvvtsSegment = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_TextSegment
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1TextSegment"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_TextSegment'
<$>
(o .:? "frames" .!= mempty) <*> (o .:? "confidence")
<*> (o .:? "segment"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_TextSegment
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_TextSegment'{..}
= object
(catMaybes
[("frames" .=) <$> _gcvvtsFrames,
("confidence" .=) <$> _gcvvtsConfidence,
("segment" .=) <$> _gcvvtsSegment])
data GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription = GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription'
{ _goooAlternatives :: !(Maybe [GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative])
, _goooLanguageCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p2beta1_SpeechTranscription
:: GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription
googleCloudVideointelligenceV1p2beta1_SpeechTranscription =
GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription'
{ _goooAlternatives = Nothing
, _goooLanguageCode = Nothing
}
goooAlternatives :: Lens' GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription [GoogleCloudVideointelligenceV1p2beta1_SpeechRecognitionAlternative]
goooAlternatives
= lens _goooAlternatives
(\ s a -> s{_goooAlternatives = a})
. _Default
. _Coerce
goooLanguageCode :: Lens' GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription (Maybe Text)
goooLanguageCode
= lens _goooLanguageCode
(\ s a -> s{_goooLanguageCode = a})
instance FromJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p2beta1SpeechTranscription"
(\ o ->
GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription'
<$>
(o .:? "alternatives" .!= mempty) <*>
(o .:? "languageCode"))
instance ToJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription
where
toJSON
GoogleCloudVideointelligenceV1p2beta1_SpeechTranscription'{..}
= object
(catMaybes
[("alternatives" .=) <$> _goooAlternatives,
("languageCode" .=) <$> _goooLanguageCode])
data GoogleRpc_Status = GoogleRpc_Status'
{ _grsDetails :: !(Maybe [GoogleRpc_StatusDetailsItem])
, _grsCode :: !(Maybe (Textual Int32))
, _grsMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpc_Status
:: GoogleRpc_Status
googleRpc_Status =
GoogleRpc_Status'
{ _grsDetails = Nothing
, _grsCode = Nothing
, _grsMessage = Nothing
}
grsDetails :: Lens' GoogleRpc_Status [GoogleRpc_StatusDetailsItem]
grsDetails
= lens _grsDetails (\ s a -> s{_grsDetails = a}) .
_Default
. _Coerce
grsCode :: Lens' GoogleRpc_Status (Maybe Int32)
grsCode
= lens _grsCode (\ s a -> s{_grsCode = a}) .
mapping _Coerce
grsMessage :: Lens' GoogleRpc_Status (Maybe Text)
grsMessage
= lens _grsMessage (\ s a -> s{_grsMessage = a})
instance FromJSON GoogleRpc_Status where
parseJSON
= withObject "GoogleRpcStatus"
(\ o ->
GoogleRpc_Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON GoogleRpc_Status where
toJSON GoogleRpc_Status'{..}
= object
(catMaybes
[("details" .=) <$> _grsDetails,
("code" .=) <$> _grsCode,
("message" .=) <$> _grsMessage])
data GoogleCloudVideointelligenceV1_VideoSegment = GoogleCloudVideointelligenceV1_VideoSegment'
{ _gcvvvscStartTimeOffSet :: !(Maybe GDuration)
, _gcvvvscEndTimeOffSet :: !(Maybe GDuration)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_VideoSegment
:: GoogleCloudVideointelligenceV1_VideoSegment
googleCloudVideointelligenceV1_VideoSegment =
GoogleCloudVideointelligenceV1_VideoSegment'
{ _gcvvvscStartTimeOffSet = Nothing
, _gcvvvscEndTimeOffSet = Nothing
}
gcvvvscStartTimeOffSet :: Lens' GoogleCloudVideointelligenceV1_VideoSegment (Maybe Scientific)
gcvvvscStartTimeOffSet
= lens _gcvvvscStartTimeOffSet
(\ s a -> s{_gcvvvscStartTimeOffSet = a})
. mapping _GDuration
gcvvvscEndTimeOffSet :: Lens' GoogleCloudVideointelligenceV1_VideoSegment (Maybe Scientific)
gcvvvscEndTimeOffSet
= lens _gcvvvscEndTimeOffSet
(\ s a -> s{_gcvvvscEndTimeOffSet = a})
. mapping _GDuration
instance FromJSON
GoogleCloudVideointelligenceV1_VideoSegment where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1VideoSegment"
(\ o ->
GoogleCloudVideointelligenceV1_VideoSegment' <$>
(o .:? "startTimeOffset") <*>
(o .:? "endTimeOffset"))
instance ToJSON
GoogleCloudVideointelligenceV1_VideoSegment where
toJSON
GoogleCloudVideointelligenceV1_VideoSegment'{..}
= object
(catMaybes
[("startTimeOffset" .=) <$> _gcvvvscStartTimeOffSet,
("endTimeOffset" .=) <$> _gcvvvscEndTimeOffSet])
newtype GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation = GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation'
{ _gcvvecacFrames :: Maybe [GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation
:: GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation
googleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation =
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation'
{ _gcvvecacFrames = Nothing
}
gcvvecacFrames :: Lens' GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation [GoogleCloudVideointelligenceV1p1beta1_ExplicitContentFrame]
gcvvecacFrames
= lens _gcvvecacFrames
(\ s a -> s{_gcvvecacFrames = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1ExplicitContentAnnotation"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation'
<$> (o .:? "frames" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_ExplicitContentAnnotation'{..}
= object
(catMaybes [("frames" .=) <$> _gcvvecacFrames])
newtype GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse = GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse'
{ _gcvvavrcAnnotationResults :: Maybe [GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse
:: GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse
googleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse =
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse'
{ _gcvvavrcAnnotationResults = Nothing
}
gcvvavrcAnnotationResults :: Lens' GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse [GoogleCloudVideointelligenceV1p1beta1_VideoAnnotationResults]
gcvvavrcAnnotationResults
= lens _gcvvavrcAnnotationResults
(\ s a -> s{_gcvvavrcAnnotationResults = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1AnnotateVideoResponse"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse'
<$> (o .:? "annotationResults" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_AnnotateVideoResponse'{..}
= object
(catMaybes
[("annotationResults" .=) <$>
_gcvvavrcAnnotationResults])
data GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame = GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame'
{ _gcvvecfcTimeOffSet :: !(Maybe GDuration)
, _gcvvecfcPornographyLikelihood :: !(Maybe GoogleCloudVideointelligenceV1beta2_ExplicitContentFramePornographyLikelihood)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1beta2_ExplicitContentFrame
:: GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame
googleCloudVideointelligenceV1beta2_ExplicitContentFrame =
GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame'
{ _gcvvecfcTimeOffSet = Nothing
, _gcvvecfcPornographyLikelihood = Nothing
}
gcvvecfcTimeOffSet :: Lens' GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame (Maybe Scientific)
gcvvecfcTimeOffSet
= lens _gcvvecfcTimeOffSet
(\ s a -> s{_gcvvecfcTimeOffSet = a})
. mapping _GDuration
gcvvecfcPornographyLikelihood :: Lens' GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame (Maybe GoogleCloudVideointelligenceV1beta2_ExplicitContentFramePornographyLikelihood)
gcvvecfcPornographyLikelihood
= lens _gcvvecfcPornographyLikelihood
(\ s a -> s{_gcvvecfcPornographyLikelihood = a})
instance FromJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1beta2ExplicitContentFrame"
(\ o ->
GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame'
<$>
(o .:? "timeOffset") <*>
(o .:? "pornographyLikelihood"))
instance ToJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame
where
toJSON
GoogleCloudVideointelligenceV1beta2_ExplicitContentFrame'{..}
= object
(catMaybes
[("timeOffset" .=) <$> _gcvvecfcTimeOffSet,
("pornographyLikelihood" .=) <$>
_gcvvecfcPornographyLikelihood])
newtype GoogleCloudVideointelligenceV1p1beta1_SpeechContext = GoogleCloudVideointelligenceV1p1beta1_SpeechContext'
{ _gcvvscPhrases :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1p1beta1_SpeechContext
:: GoogleCloudVideointelligenceV1p1beta1_SpeechContext
googleCloudVideointelligenceV1p1beta1_SpeechContext =
GoogleCloudVideointelligenceV1p1beta1_SpeechContext'
{ _gcvvscPhrases = Nothing
}
gcvvscPhrases :: Lens' GoogleCloudVideointelligenceV1p1beta1_SpeechContext [Text]
gcvvscPhrases
= lens _gcvvscPhrases
(\ s a -> s{_gcvvscPhrases = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechContext
where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1p1beta1SpeechContext"
(\ o ->
GoogleCloudVideointelligenceV1p1beta1_SpeechContext'
<$> (o .:? "phrases" .!= mempty))
instance ToJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechContext
where
toJSON
GoogleCloudVideointelligenceV1p1beta1_SpeechContext'{..}
= object
(catMaybes [("phrases" .=) <$> _gcvvscPhrases])
data GoogleCloudVideointelligenceV1_LabelSegment = GoogleCloudVideointelligenceV1_LabelSegment'
{ _g2Confidence :: !(Maybe (Textual Double))
, _g2Segment :: !(Maybe GoogleCloudVideointelligenceV1_VideoSegment)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudVideointelligenceV1_LabelSegment
:: GoogleCloudVideointelligenceV1_LabelSegment
googleCloudVideointelligenceV1_LabelSegment =
GoogleCloudVideointelligenceV1_LabelSegment'
{ _g2Confidence = Nothing
, _g2Segment = Nothing
}
g2Confidence :: Lens' GoogleCloudVideointelligenceV1_LabelSegment (Maybe Double)
g2Confidence
= lens _g2Confidence (\ s a -> s{_g2Confidence = a})
. mapping _Coerce
g2Segment :: Lens' GoogleCloudVideointelligenceV1_LabelSegment (Maybe GoogleCloudVideointelligenceV1_VideoSegment)
g2Segment
= lens _g2Segment (\ s a -> s{_g2Segment = a})
instance FromJSON
GoogleCloudVideointelligenceV1_LabelSegment where
parseJSON
= withObject
"GoogleCloudVideointelligenceV1LabelSegment"
(\ o ->
GoogleCloudVideointelligenceV1_LabelSegment' <$>
(o .:? "confidence") <*> (o .:? "segment"))
instance ToJSON
GoogleCloudVideointelligenceV1_LabelSegment where
toJSON
GoogleCloudVideointelligenceV1_LabelSegment'{..}
= object
(catMaybes
[("confidence" .=) <$> _g2Confidence,
("segment" .=) <$> _g2Segment])