@@ -4591,10 +4591,12 @@ instance ToJSON AnnotationSet where
45914591-- /See:/ 'variantSet' smart constructor.
45924592data VariantSet = VariantSet'
45934593 { _vsReferenceSetId :: !(Maybe Text)
4594+ , _vsName :: !(Maybe Text)
45944595 , _vsDataSetId :: !(Maybe Text)
45954596 , _vsReferenceBounds :: !(Maybe [ReferenceBound])
45964597 , _vsMetadata :: !(Maybe [VariantSetMetadata])
45974598 , _vsId :: !(Maybe Text)
4599+ , _vsDescription :: !(Maybe Text)
45984600 } deriving (Eq,Show,Data,Typeable,Generic)
45994601
46004602-- | Creates a value of 'VariantSet' with the minimum fields required to make a request.
@@ -4603,6 +4605,8 @@ data VariantSet = VariantSet'
46034605--
46044606-- * 'vsReferenceSetId'
46054607--
4608+-- * 'vsName'
4609+--
46064610-- * 'vsDataSetId'
46074611--
46084612-- * 'vsReferenceBounds'
@@ -4610,15 +4614,19 @@ data VariantSet = VariantSet'
46104614-- * 'vsMetadata'
46114615--
46124616-- * 'vsId'
4617+--
4618+-- * 'vsDescription'
46134619variantSet
46144620 :: VariantSet
46154621variantSet =
46164622 VariantSet'
46174623 { _vsReferenceSetId = Nothing
4624+ , _vsName = Nothing
46184625 , _vsDataSetId = Nothing
46194626 , _vsReferenceBounds = Nothing
46204627 , _vsMetadata = Nothing
46214628 , _vsId = Nothing
4629+ , _vsDescription = Nothing
46224630 }
46234631
46244632-- | The reference set to which the variant set is mapped. The reference set
@@ -4635,6 +4643,10 @@ vsReferenceSetId
46354643 = lens _vsReferenceSetId
46364644 (\ s a -> s{_vsReferenceSetId = a})
46374645
4646+-- | User-specified, mutable name.
4647+vsName :: Lens' VariantSet (Maybe Text)
4648+vsName = lens _vsName (\ s a -> s{_vsName = a})
4649+
46384650-- | The dataset to which this variant set belongs.
46394651vsDataSetId :: Lens' VariantSet (Maybe Text)
46404652vsDataSetId
@@ -4660,25 +4672,34 @@ vsMetadata
46604672vsId :: Lens' VariantSet (Maybe Text)
46614673vsId = lens _vsId (\ s a -> s{_vsId = a})
46624674
4675+-- | A textual description of this variant set.
4676+vsDescription :: Lens' VariantSet (Maybe Text)
4677+vsDescription
4678+ = lens _vsDescription
4679+ (\ s a -> s{_vsDescription = a})
4680+
46634681instance FromJSON VariantSet where
46644682 parseJSON
46654683 = withObject "VariantSet"
46664684 (\ o ->
46674685 VariantSet' <$>
4668− (o .:? "referenceSetId") <*> (o .:? "datasetId") <*>
4669− (o .:? "referenceBounds" .!= mempty)
4686+ (o .:? "referenceSetId") <*> (o .:? "name") <*>
4687+ (o .:? "datasetId")
4688+ <*> (o .:? "referenceBounds" .!= mempty)
46704689 <*> (o .:? "metadata" .!= mempty)
4671− <*> (o .:? "id"))
4690+ <*> (o .:? "id")
4691+ <*> (o .:? "description"))
46724692
46734693instance ToJSON VariantSet where
46744694 toJSON VariantSet'{..}
46754695 = object
46764696 (catMaybes
46774697 [("referenceSetId" .=) <$> _vsReferenceSetId,
4698+ ("name" .=) <$> _vsName,
46784699 ("datasetId" .=) <$> _vsDataSetId,
46794700 ("referenceBounds" .=) <$> _vsReferenceBounds,
4680− ("metadata" .=) <$> _vsMetadata,
4681− ("id" .=) <$> _vsId])
4701+ ("metadata" .=) <$> _vsMetadata, ("id" .=) <$> _vsId,
4702+ ("description" .=) <$> _vsDescription])
46824703
46834704-- | Response message for \`TestIamPermissions\` method.
46844705--