module Network.Google.Genomics.Types.Product where
import Network.Google.Genomics.Types.Sum
import Network.Google.Prelude
newtype ImportVariantsRequestInfoMergeConfig = ImportVariantsRequestInfoMergeConfig'
{ _ivrimcAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
importVariantsRequestInfoMergeConfig
:: HashMap Text Text
-> ImportVariantsRequestInfoMergeConfig
importVariantsRequestInfoMergeConfig pIvrimcAddtional_ =
ImportVariantsRequestInfoMergeConfig'
{ _ivrimcAddtional = _Coerce # pIvrimcAddtional_
}
ivrimcAddtional :: Lens' ImportVariantsRequestInfoMergeConfig (HashMap Text Text)
ivrimcAddtional
= lens _ivrimcAddtional
(\ s a -> s{_ivrimcAddtional = a})
. _Coerce
instance FromJSON
ImportVariantsRequestInfoMergeConfig where
parseJSON
= withObject "ImportVariantsRequestInfoMergeConfig"
(\ o ->
ImportVariantsRequestInfoMergeConfig' <$>
(parseJSONObject o))
instance ToJSON ImportVariantsRequestInfoMergeConfig
where
toJSON = toJSON . _ivrimcAddtional
newtype ReadInfo = ReadInfo'
{ _riAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
readInfo
:: HashMap Text [JSONValue]
-> ReadInfo
readInfo pRiAddtional_ =
ReadInfo'
{ _riAddtional = _Coerce # pRiAddtional_
}
riAddtional :: Lens' ReadInfo (HashMap Text [JSONValue])
riAddtional
= lens _riAddtional (\ s a -> s{_riAddtional = a}) .
_Coerce
instance FromJSON ReadInfo where
parseJSON
= withObject "ReadInfo"
(\ o -> ReadInfo' <$> (parseJSONObject o))
instance ToJSON ReadInfo where
toJSON = toJSON . _riAddtional
data Exon = Exon'
{ _eStart :: !(Maybe (Textual Int64))
, _eEnd :: !(Maybe (Textual Int64))
, _eFrame :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
exon
:: Exon
exon =
Exon'
{ _eStart = Nothing
, _eEnd = Nothing
, _eFrame = Nothing
}
eStart :: Lens' Exon (Maybe Int64)
eStart
= lens _eStart (\ s a -> s{_eStart = a}) .
mapping _Coerce
eEnd :: Lens' Exon (Maybe Int64)
eEnd
= lens _eEnd (\ s a -> s{_eEnd = a}) .
mapping _Coerce
eFrame :: Lens' Exon (Maybe Int32)
eFrame
= lens _eFrame (\ s a -> s{_eFrame = a}) .
mapping _Coerce
instance FromJSON Exon where
parseJSON
= withObject "Exon"
(\ o ->
Exon' <$>
(o .:? "start") <*> (o .:? "end") <*>
(o .:? "frame"))
instance ToJSON Exon where
toJSON Exon'{..}
= object
(catMaybes
[("start" .=) <$> _eStart, ("end" .=) <$> _eEnd,
("frame" .=) <$> _eFrame])
data Status = Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
status
:: Status
status =
Status'
{ _sDetails = Nothing
, _sCode = Nothing
, _sMessage = Nothing
}
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
= lens _sDetails (\ s a -> s{_sDetails = a}) .
_Default
. _Coerce
sCode :: Lens' Status (Maybe Int32)
sCode
= lens _sCode (\ s a -> s{_sCode = a}) .
mapping _Coerce
sMessage :: Lens' Status (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
instance FromJSON Status where
parseJSON
= withObject "Status"
(\ o ->
Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON Status where
toJSON Status'{..}
= object
(catMaybes
[("details" .=) <$> _sDetails,
("code" .=) <$> _sCode,
("message" .=) <$> _sMessage])
newtype OperationSchema = OperationSchema'
{ _osAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationSchema
:: HashMap Text JSONValue
-> OperationSchema
operationSchema pOsAddtional_ =
OperationSchema'
{ _osAddtional = _Coerce # pOsAddtional_
}
osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)
osAddtional
= lens _osAddtional (\ s a -> s{_osAddtional = a}) .
_Coerce
instance FromJSON OperationSchema where
parseJSON
= withObject "OperationSchema"
(\ o -> OperationSchema' <$> (parseJSONObject o))
instance ToJSON OperationSchema where
toJSON = toJSON . _osAddtional
data Variant = Variant'
{ _vVariantSetId :: !(Maybe Text)
, _vCreated :: !(Maybe (Textual Int64))
, _vStart :: !(Maybe (Textual Int64))
, _vAlternateBases :: !(Maybe [Text])
, _vReferenceName :: !(Maybe Text)
, _vNames :: !(Maybe [Text])
, _vEnd :: !(Maybe (Textual Int64))
, _vReferenceBases :: !(Maybe Text)
, _vId :: !(Maybe Text)
, _vQuality :: !(Maybe (Textual Double))
, _vFilter :: !(Maybe [Text])
, _vInfo :: !(Maybe VariantInfo)
, _vCalls :: !(Maybe [VariantCall])
} deriving (Eq,Show,Data,Typeable,Generic)
variant
:: Variant
variant =
Variant'
{ _vVariantSetId = Nothing
, _vCreated = Nothing
, _vStart = Nothing
, _vAlternateBases = Nothing
, _vReferenceName = Nothing
, _vNames = Nothing
, _vEnd = Nothing
, _vReferenceBases = Nothing
, _vId = Nothing
, _vQuality = Nothing
, _vFilter = Nothing
, _vInfo = Nothing
, _vCalls = Nothing
}
vVariantSetId :: Lens' Variant (Maybe Text)
vVariantSetId
= lens _vVariantSetId
(\ s a -> s{_vVariantSetId = a})
vCreated :: Lens' Variant (Maybe Int64)
vCreated
= lens _vCreated (\ s a -> s{_vCreated = a}) .
mapping _Coerce
vStart :: Lens' Variant (Maybe Int64)
vStart
= lens _vStart (\ s a -> s{_vStart = a}) .
mapping _Coerce
vAlternateBases :: Lens' Variant [Text]
vAlternateBases
= lens _vAlternateBases
(\ s a -> s{_vAlternateBases = a})
. _Default
. _Coerce
vReferenceName :: Lens' Variant (Maybe Text)
vReferenceName
= lens _vReferenceName
(\ s a -> s{_vReferenceName = a})
vNames :: Lens' Variant [Text]
vNames
= lens _vNames (\ s a -> s{_vNames = a}) . _Default .
_Coerce
vEnd :: Lens' Variant (Maybe Int64)
vEnd
= lens _vEnd (\ s a -> s{_vEnd = a}) .
mapping _Coerce
vReferenceBases :: Lens' Variant (Maybe Text)
vReferenceBases
= lens _vReferenceBases
(\ s a -> s{_vReferenceBases = a})
vId :: Lens' Variant (Maybe Text)
vId = lens _vId (\ s a -> s{_vId = a})
vQuality :: Lens' Variant (Maybe Double)
vQuality
= lens _vQuality (\ s a -> s{_vQuality = a}) .
mapping _Coerce
vFilter :: Lens' Variant [Text]
vFilter
= lens _vFilter (\ s a -> s{_vFilter = a}) . _Default
. _Coerce
vInfo :: Lens' Variant (Maybe VariantInfo)
vInfo = lens _vInfo (\ s a -> s{_vInfo = a})
vCalls :: Lens' Variant [VariantCall]
vCalls
= lens _vCalls (\ s a -> s{_vCalls = a}) . _Default .
_Coerce
instance FromJSON Variant where
parseJSON
= withObject "Variant"
(\ o ->
Variant' <$>
(o .:? "variantSetId") <*> (o .:? "created") <*>
(o .:? "start")
<*> (o .:? "alternateBases" .!= mempty)
<*> (o .:? "referenceName")
<*> (o .:? "names" .!= mempty)
<*> (o .:? "end")
<*> (o .:? "referenceBases")
<*> (o .:? "id")
<*> (o .:? "quality")
<*> (o .:? "filter" .!= mempty)
<*> (o .:? "info")
<*> (o .:? "calls" .!= mempty))
instance ToJSON Variant where
toJSON Variant'{..}
= object
(catMaybes
[("variantSetId" .=) <$> _vVariantSetId,
("created" .=) <$> _vCreated,
("start" .=) <$> _vStart,
("alternateBases" .=) <$> _vAlternateBases,
("referenceName" .=) <$> _vReferenceName,
("names" .=) <$> _vNames, ("end" .=) <$> _vEnd,
("referenceBases" .=) <$> _vReferenceBases,
("id" .=) <$> _vId, ("quality" .=) <$> _vQuality,
("filter" .=) <$> _vFilter, ("info" .=) <$> _vInfo,
("calls" .=) <$> _vCalls])
data Annotation = Annotation'
{ _aVariant :: !(Maybe VariantAnnotation)
, _aAnnotationSetId :: !(Maybe Text)
, _aStart :: !(Maybe (Textual Int64))
, _aReverseStrand :: !(Maybe Bool)
, _aReferenceId :: !(Maybe Text)
, _aReferenceName :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aEnd :: !(Maybe (Textual Int64))
, _aId :: !(Maybe Text)
, _aType :: !(Maybe AnnotationType)
, _aTranscript :: !(Maybe Transcript)
, _aInfo :: !(Maybe AnnotationInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
annotation
:: Annotation
annotation =
Annotation'
{ _aVariant = Nothing
, _aAnnotationSetId = Nothing
, _aStart = Nothing
, _aReverseStrand = Nothing
, _aReferenceId = Nothing
, _aReferenceName = Nothing
, _aName = Nothing
, _aEnd = Nothing
, _aId = Nothing
, _aType = Nothing
, _aTranscript = Nothing
, _aInfo = Nothing
}
aVariant :: Lens' Annotation (Maybe VariantAnnotation)
aVariant = lens _aVariant (\ s a -> s{_aVariant = a})
aAnnotationSetId :: Lens' Annotation (Maybe Text)
aAnnotationSetId
= lens _aAnnotationSetId
(\ s a -> s{_aAnnotationSetId = a})
aStart :: Lens' Annotation (Maybe Int64)
aStart
= lens _aStart (\ s a -> s{_aStart = a}) .
mapping _Coerce
aReverseStrand :: Lens' Annotation (Maybe Bool)
aReverseStrand
= lens _aReverseStrand
(\ s a -> s{_aReverseStrand = a})
aReferenceId :: Lens' Annotation (Maybe Text)
aReferenceId
= lens _aReferenceId (\ s a -> s{_aReferenceId = a})
aReferenceName :: Lens' Annotation (Maybe Text)
aReferenceName
= lens _aReferenceName
(\ s a -> s{_aReferenceName = a})
aName :: Lens' Annotation (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aEnd :: Lens' Annotation (Maybe Int64)
aEnd
= lens _aEnd (\ s a -> s{_aEnd = a}) .
mapping _Coerce
aId :: Lens' Annotation (Maybe Text)
aId = lens _aId (\ s a -> s{_aId = a})
aType :: Lens' Annotation (Maybe AnnotationType)
aType = lens _aType (\ s a -> s{_aType = a})
aTranscript :: Lens' Annotation (Maybe Transcript)
aTranscript
= lens _aTranscript (\ s a -> s{_aTranscript = a})
aInfo :: Lens' Annotation (Maybe AnnotationInfo)
aInfo = lens _aInfo (\ s a -> s{_aInfo = a})
instance FromJSON Annotation where
parseJSON
= withObject "Annotation"
(\ o ->
Annotation' <$>
(o .:? "variant") <*> (o .:? "annotationSetId") <*>
(o .:? "start")
<*> (o .:? "reverseStrand")
<*> (o .:? "referenceId")
<*> (o .:? "referenceName")
<*> (o .:? "name")
<*> (o .:? "end")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "transcript")
<*> (o .:? "info"))
instance ToJSON Annotation where
toJSON Annotation'{..}
= object
(catMaybes
[("variant" .=) <$> _aVariant,
("annotationSetId" .=) <$> _aAnnotationSetId,
("start" .=) <$> _aStart,
("reverseStrand" .=) <$> _aReverseStrand,
("referenceId" .=) <$> _aReferenceId,
("referenceName" .=) <$> _aReferenceName,
("name" .=) <$> _aName, ("end" .=) <$> _aEnd,
("id" .=) <$> _aId, ("type" .=) <$> _aType,
("transcript" .=) <$> _aTranscript,
("info" .=) <$> _aInfo])
data ListBasesResponse = ListBasesResponse'
{ _lbrNextPageToken :: !(Maybe Text)
, _lbrOffSet :: !(Maybe (Textual Int64))
, _lbrSequence :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
listBasesResponse
:: ListBasesResponse
listBasesResponse =
ListBasesResponse'
{ _lbrNextPageToken = Nothing
, _lbrOffSet = Nothing
, _lbrSequence = Nothing
}
lbrNextPageToken :: Lens' ListBasesResponse (Maybe Text)
lbrNextPageToken
= lens _lbrNextPageToken
(\ s a -> s{_lbrNextPageToken = a})
lbrOffSet :: Lens' ListBasesResponse (Maybe Int64)
lbrOffSet
= lens _lbrOffSet (\ s a -> s{_lbrOffSet = a}) .
mapping _Coerce
lbrSequence :: Lens' ListBasesResponse (Maybe Text)
lbrSequence
= lens _lbrSequence (\ s a -> s{_lbrSequence = a})
instance FromJSON ListBasesResponse where
parseJSON
= withObject "ListBasesResponse"
(\ o ->
ListBasesResponse' <$>
(o .:? "nextPageToken") <*> (o .:? "offset") <*>
(o .:? "sequence"))
instance ToJSON ListBasesResponse where
toJSON ListBasesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lbrNextPageToken,
("offset" .=) <$> _lbrOffSet,
("sequence" .=) <$> _lbrSequence])
data ListOperationsResponse = ListOperationsResponse'
{ _lorNextPageToken :: !(Maybe Text)
, _lorOperations :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
listOperationsResponse
:: ListOperationsResponse
listOperationsResponse =
ListOperationsResponse'
{ _lorNextPageToken = Nothing
, _lorOperations = Nothing
}
lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)
lorNextPageToken
= lens _lorNextPageToken
(\ s a -> s{_lorNextPageToken = a})
lorOperations :: Lens' ListOperationsResponse [Operation]
lorOperations
= lens _lorOperations
(\ s a -> s{_lorOperations = a})
. _Default
. _Coerce
instance FromJSON ListOperationsResponse where
parseJSON
= withObject "ListOperationsResponse"
(\ o ->
ListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON ListOperationsResponse where
toJSON ListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lorNextPageToken,
("operations" .=) <$> _lorOperations])
data GetIAMPolicyRequest =
GetIAMPolicyRequest'
deriving (Eq,Show,Data,Typeable,Generic)
getIAMPolicyRequest
:: GetIAMPolicyRequest
getIAMPolicyRequest = GetIAMPolicyRequest'
instance FromJSON GetIAMPolicyRequest where
parseJSON
= withObject "GetIAMPolicyRequest"
(\ o -> pure GetIAMPolicyRequest')
instance ToJSON GetIAMPolicyRequest where
toJSON = const emptyObject
data CancelOperationRequest =
CancelOperationRequest'
deriving (Eq,Show,Data,Typeable,Generic)
cancelOperationRequest
:: CancelOperationRequest
cancelOperationRequest = CancelOperationRequest'
instance FromJSON CancelOperationRequest where
parseJSON
= withObject "CancelOperationRequest"
(\ o -> pure CancelOperationRequest')
instance ToJSON CancelOperationRequest where
toJSON = const emptyObject
data DataSet = DataSet'
{ _dsName :: !(Maybe Text)
, _dsId :: !(Maybe Text)
, _dsProjectId :: !(Maybe Text)
, _dsCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
dataSet
:: DataSet
dataSet =
DataSet'
{ _dsName = Nothing
, _dsId = Nothing
, _dsProjectId = Nothing
, _dsCreateTime = Nothing
}
dsName :: Lens' DataSet (Maybe Text)
dsName = lens _dsName (\ s a -> s{_dsName = a})
dsId :: Lens' DataSet (Maybe Text)
dsId = lens _dsId (\ s a -> s{_dsId = a})
dsProjectId :: Lens' DataSet (Maybe Text)
dsProjectId
= lens _dsProjectId (\ s a -> s{_dsProjectId = a})
dsCreateTime :: Lens' DataSet (Maybe UTCTime)
dsCreateTime
= lens _dsCreateTime (\ s a -> s{_dsCreateTime = a})
. mapping _DateTime
instance FromJSON DataSet where
parseJSON
= withObject "DataSet"
(\ o ->
DataSet' <$>
(o .:? "name") <*> (o .:? "id") <*>
(o .:? "projectId")
<*> (o .:? "createTime"))
instance ToJSON DataSet where
toJSON DataSet'{..}
= object
(catMaybes
[("name" .=) <$> _dsName, ("id" .=) <$> _dsId,
("projectId" .=) <$> _dsProjectId,
("createTime" .=) <$> _dsCreateTime])
data Read' = Read''
{ _rFragmentLength :: !(Maybe (Textual Int32))
, _rDuplicateFragment :: !(Maybe Bool)
, _rReadGroupSetId :: !(Maybe Text)
, _rNextMatePosition :: !(Maybe Position)
, _rFailedVendorQualityChecks :: !(Maybe Bool)
, _rAlignment :: !(Maybe LinearAlignment)
, _rFragmentName :: !(Maybe Text)
, _rNumberReads :: !(Maybe (Textual Int32))
, _rId :: !(Maybe Text)
, _rSecondaryAlignment :: !(Maybe Bool)
, _rReadGroupId :: !(Maybe Text)
, _rSupplementaryAlignment :: !(Maybe Bool)
, _rAlignedSequence :: !(Maybe Text)
, _rProperPlacement :: !(Maybe Bool)
, _rInfo :: !(Maybe ReadInfo)
, _rReadNumber :: !(Maybe (Textual Int32))
, _rAlignedQuality :: !(Maybe [Textual Int32])
} deriving (Eq,Show,Data,Typeable,Generic)
read'
:: Read'
read' =
Read''
{ _rFragmentLength = Nothing
, _rDuplicateFragment = Nothing
, _rReadGroupSetId = Nothing
, _rNextMatePosition = Nothing
, _rFailedVendorQualityChecks = Nothing
, _rAlignment = Nothing
, _rFragmentName = Nothing
, _rNumberReads = Nothing
, _rId = Nothing
, _rSecondaryAlignment = Nothing
, _rReadGroupId = Nothing
, _rSupplementaryAlignment = Nothing
, _rAlignedSequence = Nothing
, _rProperPlacement = Nothing
, _rInfo = Nothing
, _rReadNumber = Nothing
, _rAlignedQuality = Nothing
}
rFragmentLength :: Lens' Read' (Maybe Int32)
rFragmentLength
= lens _rFragmentLength
(\ s a -> s{_rFragmentLength = a})
. mapping _Coerce
rDuplicateFragment :: Lens' Read' (Maybe Bool)
rDuplicateFragment
= lens _rDuplicateFragment
(\ s a -> s{_rDuplicateFragment = a})
rReadGroupSetId :: Lens' Read' (Maybe Text)
rReadGroupSetId
= lens _rReadGroupSetId
(\ s a -> s{_rReadGroupSetId = a})
rNextMatePosition :: Lens' Read' (Maybe Position)
rNextMatePosition
= lens _rNextMatePosition
(\ s a -> s{_rNextMatePosition = a})
rFailedVendorQualityChecks :: Lens' Read' (Maybe Bool)
rFailedVendorQualityChecks
= lens _rFailedVendorQualityChecks
(\ s a -> s{_rFailedVendorQualityChecks = a})
rAlignment :: Lens' Read' (Maybe LinearAlignment)
rAlignment
= lens _rAlignment (\ s a -> s{_rAlignment = a})
rFragmentName :: Lens' Read' (Maybe Text)
rFragmentName
= lens _rFragmentName
(\ s a -> s{_rFragmentName = a})
rNumberReads :: Lens' Read' (Maybe Int32)
rNumberReads
= lens _rNumberReads (\ s a -> s{_rNumberReads = a})
. mapping _Coerce
rId :: Lens' Read' (Maybe Text)
rId = lens _rId (\ s a -> s{_rId = a})
rSecondaryAlignment :: Lens' Read' (Maybe Bool)
rSecondaryAlignment
= lens _rSecondaryAlignment
(\ s a -> s{_rSecondaryAlignment = a})
rReadGroupId :: Lens' Read' (Maybe Text)
rReadGroupId
= lens _rReadGroupId (\ s a -> s{_rReadGroupId = a})
rSupplementaryAlignment :: Lens' Read' (Maybe Bool)
rSupplementaryAlignment
= lens _rSupplementaryAlignment
(\ s a -> s{_rSupplementaryAlignment = a})
rAlignedSequence :: Lens' Read' (Maybe Text)
rAlignedSequence
= lens _rAlignedSequence
(\ s a -> s{_rAlignedSequence = a})
rProperPlacement :: Lens' Read' (Maybe Bool)
rProperPlacement
= lens _rProperPlacement
(\ s a -> s{_rProperPlacement = a})
rInfo :: Lens' Read' (Maybe ReadInfo)
rInfo = lens _rInfo (\ s a -> s{_rInfo = a})
rReadNumber :: Lens' Read' (Maybe Int32)
rReadNumber
= lens _rReadNumber (\ s a -> s{_rReadNumber = a}) .
mapping _Coerce
rAlignedQuality :: Lens' Read' [Int32]
rAlignedQuality
= lens _rAlignedQuality
(\ s a -> s{_rAlignedQuality = a})
. _Default
. _Coerce
instance FromJSON Read' where
parseJSON
= withObject "Read"
(\ o ->
Read'' <$>
(o .:? "fragmentLength") <*>
(o .:? "duplicateFragment")
<*> (o .:? "readGroupSetId")
<*> (o .:? "nextMatePosition")
<*> (o .:? "failedVendorQualityChecks")
<*> (o .:? "alignment")
<*> (o .:? "fragmentName")
<*> (o .:? "numberReads")
<*> (o .:? "id")
<*> (o .:? "secondaryAlignment")
<*> (o .:? "readGroupId")
<*> (o .:? "supplementaryAlignment")
<*> (o .:? "alignedSequence")
<*> (o .:? "properPlacement")
<*> (o .:? "info")
<*> (o .:? "readNumber")
<*> (o .:? "alignedQuality" .!= mempty))
instance ToJSON Read' where
toJSON Read''{..}
= object
(catMaybes
[("fragmentLength" .=) <$> _rFragmentLength,
("duplicateFragment" .=) <$> _rDuplicateFragment,
("readGroupSetId" .=) <$> _rReadGroupSetId,
("nextMatePosition" .=) <$> _rNextMatePosition,
("failedVendorQualityChecks" .=) <$>
_rFailedVendorQualityChecks,
("alignment" .=) <$> _rAlignment,
("fragmentName" .=) <$> _rFragmentName,
("numberReads" .=) <$> _rNumberReads,
("id" .=) <$> _rId,
("secondaryAlignment" .=) <$> _rSecondaryAlignment,
("readGroupId" .=) <$> _rReadGroupId,
("supplementaryAlignment" .=) <$>
_rSupplementaryAlignment,
("alignedSequence" .=) <$> _rAlignedSequence,
("properPlacement" .=) <$> _rProperPlacement,
("info" .=) <$> _rInfo,
("readNumber" .=) <$> _rReadNumber,
("alignedQuality" .=) <$> _rAlignedQuality])
newtype OperationMetadataLabels = OperationMetadataLabels'
{ _omlAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataLabels
:: HashMap Text Text
-> OperationMetadataLabels
operationMetadataLabels pOmlAddtional_ =
OperationMetadataLabels'
{ _omlAddtional = _Coerce # pOmlAddtional_
}
omlAddtional :: Lens' OperationMetadataLabels (HashMap Text Text)
omlAddtional
= lens _omlAddtional (\ s a -> s{_omlAddtional = a})
. _Coerce
instance FromJSON OperationMetadataLabels where
parseJSON
= withObject "OperationMetadataLabels"
(\ o ->
OperationMetadataLabels' <$> (parseJSONObject o))
instance ToJSON OperationMetadataLabels where
toJSON = toJSON . _omlAddtional
data VariantCall = VariantCall'
{ _vcGenotypeLikelihood :: !(Maybe [Textual Double])
, _vcCallSetName :: !(Maybe Text)
, _vcPhaseset :: !(Maybe Text)
, _vcCallSetId :: !(Maybe Text)
, _vcGenotype :: !(Maybe [Textual Int32])
, _vcInfo :: !(Maybe VariantCallInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
variantCall
:: VariantCall
variantCall =
VariantCall'
{ _vcGenotypeLikelihood = Nothing
, _vcCallSetName = Nothing
, _vcPhaseset = Nothing
, _vcCallSetId = Nothing
, _vcGenotype = Nothing
, _vcInfo = Nothing
}
vcGenotypeLikelihood :: Lens' VariantCall [Double]
vcGenotypeLikelihood
= lens _vcGenotypeLikelihood
(\ s a -> s{_vcGenotypeLikelihood = a})
. _Default
. _Coerce
vcCallSetName :: Lens' VariantCall (Maybe Text)
vcCallSetName
= lens _vcCallSetName
(\ s a -> s{_vcCallSetName = a})
vcPhaseset :: Lens' VariantCall (Maybe Text)
vcPhaseset
= lens _vcPhaseset (\ s a -> s{_vcPhaseset = a})
vcCallSetId :: Lens' VariantCall (Maybe Text)
vcCallSetId
= lens _vcCallSetId (\ s a -> s{_vcCallSetId = a})
vcGenotype :: Lens' VariantCall [Int32]
vcGenotype
= lens _vcGenotype (\ s a -> s{_vcGenotype = a}) .
_Default
. _Coerce
vcInfo :: Lens' VariantCall (Maybe VariantCallInfo)
vcInfo = lens _vcInfo (\ s a -> s{_vcInfo = a})
instance FromJSON VariantCall where
parseJSON
= withObject "VariantCall"
(\ o ->
VariantCall' <$>
(o .:? "genotypeLikelihood" .!= mempty) <*>
(o .:? "callSetName")
<*> (o .:? "phaseset")
<*> (o .:? "callSetId")
<*> (o .:? "genotype" .!= mempty)
<*> (o .:? "info"))
instance ToJSON VariantCall where
toJSON VariantCall'{..}
= object
(catMaybes
[("genotypeLikelihood" .=) <$> _vcGenotypeLikelihood,
("callSetName" .=) <$> _vcCallSetName,
("phaseset" .=) <$> _vcPhaseset,
("callSetId" .=) <$> _vcCallSetId,
("genotype" .=) <$> _vcGenotype,
("info" .=) <$> _vcInfo])
data BatchCreateAnnotationsRequest = BatchCreateAnnotationsRequest'
{ _bcarAnnotations :: !(Maybe [Annotation])
, _bcarRequestId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
batchCreateAnnotationsRequest
:: BatchCreateAnnotationsRequest
batchCreateAnnotationsRequest =
BatchCreateAnnotationsRequest'
{ _bcarAnnotations = Nothing
, _bcarRequestId = Nothing
}
bcarAnnotations :: Lens' BatchCreateAnnotationsRequest [Annotation]
bcarAnnotations
= lens _bcarAnnotations
(\ s a -> s{_bcarAnnotations = a})
. _Default
. _Coerce
bcarRequestId :: Lens' BatchCreateAnnotationsRequest (Maybe Text)
bcarRequestId
= lens _bcarRequestId
(\ s a -> s{_bcarRequestId = a})
instance FromJSON BatchCreateAnnotationsRequest where
parseJSON
= withObject "BatchCreateAnnotationsRequest"
(\ o ->
BatchCreateAnnotationsRequest' <$>
(o .:? "annotations" .!= mempty) <*>
(o .:? "requestId"))
instance ToJSON BatchCreateAnnotationsRequest where
toJSON BatchCreateAnnotationsRequest'{..}
= object
(catMaybes
[("annotations" .=) <$> _bcarAnnotations,
("requestId" .=) <$> _bcarRequestId])
data MergeVariantsRequest = MergeVariantsRequest'
{ _mvrVariants :: !(Maybe [Variant])
, _mvrVariantSetId :: !(Maybe Text)
, _mvrInfoMergeConfig :: !(Maybe MergeVariantsRequestInfoMergeConfig)
} deriving (Eq,Show,Data,Typeable,Generic)
mergeVariantsRequest
:: MergeVariantsRequest
mergeVariantsRequest =
MergeVariantsRequest'
{ _mvrVariants = Nothing
, _mvrVariantSetId = Nothing
, _mvrInfoMergeConfig = Nothing
}
mvrVariants :: Lens' MergeVariantsRequest [Variant]
mvrVariants
= lens _mvrVariants (\ s a -> s{_mvrVariants = a}) .
_Default
. _Coerce
mvrVariantSetId :: Lens' MergeVariantsRequest (Maybe Text)
mvrVariantSetId
= lens _mvrVariantSetId
(\ s a -> s{_mvrVariantSetId = a})
mvrInfoMergeConfig :: Lens' MergeVariantsRequest (Maybe MergeVariantsRequestInfoMergeConfig)
mvrInfoMergeConfig
= lens _mvrInfoMergeConfig
(\ s a -> s{_mvrInfoMergeConfig = a})
instance FromJSON MergeVariantsRequest where
parseJSON
= withObject "MergeVariantsRequest"
(\ o ->
MergeVariantsRequest' <$>
(o .:? "variants" .!= mempty) <*>
(o .:? "variantSetId")
<*> (o .:? "infoMergeConfig"))
instance ToJSON MergeVariantsRequest where
toJSON MergeVariantsRequest'{..}
= object
(catMaybes
[("variants" .=) <$> _mvrVariants,
("variantSetId" .=) <$> _mvrVariantSetId,
("infoMergeConfig" .=) <$> _mvrInfoMergeConfig])
data ReadGroup = ReadGroup'
{ _reaReferenceSetId :: !(Maybe Text)
, _reaPrograms :: !(Maybe [Program])
, _reaExperiment :: !(Maybe Experiment)
, _reaName :: !(Maybe Text)
, _reaDataSetId :: !(Maybe Text)
, _reaId :: !(Maybe Text)
, _reaSampleId :: !(Maybe Text)
, _reaPredictedInsertSize :: !(Maybe (Textual Int32))
, _reaDescription :: !(Maybe Text)
, _reaInfo :: !(Maybe ReadGroupInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroup
:: ReadGroup
readGroup =
ReadGroup'
{ _reaReferenceSetId = Nothing
, _reaPrograms = Nothing
, _reaExperiment = Nothing
, _reaName = Nothing
, _reaDataSetId = Nothing
, _reaId = Nothing
, _reaSampleId = Nothing
, _reaPredictedInsertSize = Nothing
, _reaDescription = Nothing
, _reaInfo = Nothing
}
reaReferenceSetId :: Lens' ReadGroup (Maybe Text)
reaReferenceSetId
= lens _reaReferenceSetId
(\ s a -> s{_reaReferenceSetId = a})
reaPrograms :: Lens' ReadGroup [Program]
reaPrograms
= lens _reaPrograms (\ s a -> s{_reaPrograms = a}) .
_Default
. _Coerce
reaExperiment :: Lens' ReadGroup (Maybe Experiment)
reaExperiment
= lens _reaExperiment
(\ s a -> s{_reaExperiment = a})
reaName :: Lens' ReadGroup (Maybe Text)
reaName = lens _reaName (\ s a -> s{_reaName = a})
reaDataSetId :: Lens' ReadGroup (Maybe Text)
reaDataSetId
= lens _reaDataSetId (\ s a -> s{_reaDataSetId = a})
reaId :: Lens' ReadGroup (Maybe Text)
reaId = lens _reaId (\ s a -> s{_reaId = a})
reaSampleId :: Lens' ReadGroup (Maybe Text)
reaSampleId
= lens _reaSampleId (\ s a -> s{_reaSampleId = a})
reaPredictedInsertSize :: Lens' ReadGroup (Maybe Int32)
reaPredictedInsertSize
= lens _reaPredictedInsertSize
(\ s a -> s{_reaPredictedInsertSize = a})
. mapping _Coerce
reaDescription :: Lens' ReadGroup (Maybe Text)
reaDescription
= lens _reaDescription
(\ s a -> s{_reaDescription = a})
reaInfo :: Lens' ReadGroup (Maybe ReadGroupInfo)
reaInfo = lens _reaInfo (\ s a -> s{_reaInfo = a})
instance FromJSON ReadGroup where
parseJSON
= withObject "ReadGroup"
(\ o ->
ReadGroup' <$>
(o .:? "referenceSetId") <*>
(o .:? "programs" .!= mempty)
<*> (o .:? "experiment")
<*> (o .:? "name")
<*> (o .:? "datasetId")
<*> (o .:? "id")
<*> (o .:? "sampleId")
<*> (o .:? "predictedInsertSize")
<*> (o .:? "description")
<*> (o .:? "info"))
instance ToJSON ReadGroup where
toJSON ReadGroup'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _reaReferenceSetId,
("programs" .=) <$> _reaPrograms,
("experiment" .=) <$> _reaExperiment,
("name" .=) <$> _reaName,
("datasetId" .=) <$> _reaDataSetId,
("id" .=) <$> _reaId,
("sampleId" .=) <$> _reaSampleId,
("predictedInsertSize" .=) <$>
_reaPredictedInsertSize,
("description" .=) <$> _reaDescription,
("info" .=) <$> _reaInfo])
data Operation = Operation'
{ _oDone :: !(Maybe Bool)
, _oError :: !(Maybe Status)
, _oResponse :: !(Maybe OperationResponse)
, _oName :: !(Maybe Text)
, _oMetadata :: !(Maybe OperationSchema)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oDone = Nothing
, _oError = Nothing
, _oResponse = Nothing
, _oName = Nothing
, _oMetadata = Nothing
}
oDone :: Lens' Operation (Maybe Bool)
oDone = lens _oDone (\ s a -> s{_oDone = a})
oError :: Lens' Operation (Maybe Status)
oError = lens _oError (\ s a -> s{_oError = a})
oResponse :: Lens' Operation (Maybe OperationResponse)
oResponse
= lens _oResponse (\ s a -> s{_oResponse = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oMetadata :: Lens' Operation (Maybe OperationSchema)
oMetadata
= lens _oMetadata (\ s a -> s{_oMetadata = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("done" .=) <$> _oDone, ("error" .=) <$> _oError,
("response" .=) <$> _oResponse,
("name" .=) <$> _oName,
("metadata" .=) <$> _oMetadata])
data SearchReferenceSetsRequest = SearchReferenceSetsRequest'
{ _srsrMD5checksums :: !(Maybe [Text])
, _srsrAccessions :: !(Maybe [Text])
, _srsrPageToken :: !(Maybe Text)
, _srsrAssemblyId :: !(Maybe Text)
, _srsrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchReferenceSetsRequest
:: SearchReferenceSetsRequest
searchReferenceSetsRequest =
SearchReferenceSetsRequest'
{ _srsrMD5checksums = Nothing
, _srsrAccessions = Nothing
, _srsrPageToken = Nothing
, _srsrAssemblyId = Nothing
, _srsrPageSize = Nothing
}
srsrMD5checksums :: Lens' SearchReferenceSetsRequest [Text]
srsrMD5checksums
= lens _srsrMD5checksums
(\ s a -> s{_srsrMD5checksums = a})
. _Default
. _Coerce
srsrAccessions :: Lens' SearchReferenceSetsRequest [Text]
srsrAccessions
= lens _srsrAccessions
(\ s a -> s{_srsrAccessions = a})
. _Default
. _Coerce
srsrPageToken :: Lens' SearchReferenceSetsRequest (Maybe Text)
srsrPageToken
= lens _srsrPageToken
(\ s a -> s{_srsrPageToken = a})
srsrAssemblyId :: Lens' SearchReferenceSetsRequest (Maybe Text)
srsrAssemblyId
= lens _srsrAssemblyId
(\ s a -> s{_srsrAssemblyId = a})
srsrPageSize :: Lens' SearchReferenceSetsRequest (Maybe Int32)
srsrPageSize
= lens _srsrPageSize (\ s a -> s{_srsrPageSize = a})
. mapping _Coerce
instance FromJSON SearchReferenceSetsRequest where
parseJSON
= withObject "SearchReferenceSetsRequest"
(\ o ->
SearchReferenceSetsRequest' <$>
(o .:? "md5checksums" .!= mempty) <*>
(o .:? "accessions" .!= mempty)
<*> (o .:? "pageToken")
<*> (o .:? "assemblyId")
<*> (o .:? "pageSize"))
instance ToJSON SearchReferenceSetsRequest where
toJSON SearchReferenceSetsRequest'{..}
= object
(catMaybes
[("md5checksums" .=) <$> _srsrMD5checksums,
("accessions" .=) <$> _srsrAccessions,
("pageToken" .=) <$> _srsrPageToken,
("assemblyId" .=) <$> _srsrAssemblyId,
("pageSize" .=) <$> _srsrPageSize])
data Empty =
Empty'
deriving (Eq,Show,Data,Typeable,Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data SearchReferencesResponse = SearchReferencesResponse'
{ _srrNextPageToken :: !(Maybe Text)
, _srrReferences :: !(Maybe [Reference])
} deriving (Eq,Show,Data,Typeable,Generic)
searchReferencesResponse
:: SearchReferencesResponse
searchReferencesResponse =
SearchReferencesResponse'
{ _srrNextPageToken = Nothing
, _srrReferences = Nothing
}
srrNextPageToken :: Lens' SearchReferencesResponse (Maybe Text)
srrNextPageToken
= lens _srrNextPageToken
(\ s a -> s{_srrNextPageToken = a})
srrReferences :: Lens' SearchReferencesResponse [Reference]
srrReferences
= lens _srrReferences
(\ s a -> s{_srrReferences = a})
. _Default
. _Coerce
instance FromJSON SearchReferencesResponse where
parseJSON
= withObject "SearchReferencesResponse"
(\ o ->
SearchReferencesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "references" .!= mempty))
instance ToJSON SearchReferencesResponse where
toJSON SearchReferencesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _srrNextPageToken,
("references" .=) <$> _srrReferences])
data VariantSetMetadata = VariantSetMetadata'
{ _vsmValue :: !(Maybe Text)
, _vsmKey :: !(Maybe Text)
, _vsmId :: !(Maybe Text)
, _vsmType :: !(Maybe VariantSetMetadataType)
, _vsmNumber :: !(Maybe Text)
, _vsmDescription :: !(Maybe Text)
, _vsmInfo :: !(Maybe VariantSetMetadataInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetMetadata
:: VariantSetMetadata
variantSetMetadata =
VariantSetMetadata'
{ _vsmValue = Nothing
, _vsmKey = Nothing
, _vsmId = Nothing
, _vsmType = Nothing
, _vsmNumber = Nothing
, _vsmDescription = Nothing
, _vsmInfo = Nothing
}
vsmValue :: Lens' VariantSetMetadata (Maybe Text)
vsmValue = lens _vsmValue (\ s a -> s{_vsmValue = a})
vsmKey :: Lens' VariantSetMetadata (Maybe Text)
vsmKey = lens _vsmKey (\ s a -> s{_vsmKey = a})
vsmId :: Lens' VariantSetMetadata (Maybe Text)
vsmId = lens _vsmId (\ s a -> s{_vsmId = a})
vsmType :: Lens' VariantSetMetadata (Maybe VariantSetMetadataType)
vsmType = lens _vsmType (\ s a -> s{_vsmType = a})
vsmNumber :: Lens' VariantSetMetadata (Maybe Text)
vsmNumber
= lens _vsmNumber (\ s a -> s{_vsmNumber = a})
vsmDescription :: Lens' VariantSetMetadata (Maybe Text)
vsmDescription
= lens _vsmDescription
(\ s a -> s{_vsmDescription = a})
vsmInfo :: Lens' VariantSetMetadata (Maybe VariantSetMetadataInfo)
vsmInfo = lens _vsmInfo (\ s a -> s{_vsmInfo = a})
instance FromJSON VariantSetMetadata where
parseJSON
= withObject "VariantSetMetadata"
(\ o ->
VariantSetMetadata' <$>
(o .:? "value") <*> (o .:? "key") <*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "number")
<*> (o .:? "description")
<*> (o .:? "info"))
instance ToJSON VariantSetMetadata where
toJSON VariantSetMetadata'{..}
= object
(catMaybes
[("value" .=) <$> _vsmValue, ("key" .=) <$> _vsmKey,
("id" .=) <$> _vsmId, ("type" .=) <$> _vsmType,
("number" .=) <$> _vsmNumber,
("description" .=) <$> _vsmDescription,
("info" .=) <$> _vsmInfo])
data CallSet = CallSet'
{ _csCreated :: !(Maybe (Textual Int64))
, _csName :: !(Maybe Text)
, _csId :: !(Maybe Text)
, _csSampleId :: !(Maybe Text)
, _csVariantSetIds :: !(Maybe [Text])
, _csInfo :: !(Maybe CallSetInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
callSet
:: CallSet
callSet =
CallSet'
{ _csCreated = Nothing
, _csName = Nothing
, _csId = Nothing
, _csSampleId = Nothing
, _csVariantSetIds = Nothing
, _csInfo = Nothing
}
csCreated :: Lens' CallSet (Maybe Int64)
csCreated
= lens _csCreated (\ s a -> s{_csCreated = a}) .
mapping _Coerce
csName :: Lens' CallSet (Maybe Text)
csName = lens _csName (\ s a -> s{_csName = a})
csId :: Lens' CallSet (Maybe Text)
csId = lens _csId (\ s a -> s{_csId = a})
csSampleId :: Lens' CallSet (Maybe Text)
csSampleId
= lens _csSampleId (\ s a -> s{_csSampleId = a})
csVariantSetIds :: Lens' CallSet [Text]
csVariantSetIds
= lens _csVariantSetIds
(\ s a -> s{_csVariantSetIds = a})
. _Default
. _Coerce
csInfo :: Lens' CallSet (Maybe CallSetInfo)
csInfo = lens _csInfo (\ s a -> s{_csInfo = a})
instance FromJSON CallSet where
parseJSON
= withObject "CallSet"
(\ o ->
CallSet' <$>
(o .:? "created") <*> (o .:? "name") <*> (o .:? "id")
<*> (o .:? "sampleId")
<*> (o .:? "variantSetIds" .!= mempty)
<*> (o .:? "info"))
instance ToJSON CallSet where
toJSON CallSet'{..}
= object
(catMaybes
[("created" .=) <$> _csCreated,
("name" .=) <$> _csName, ("id" .=) <$> _csId,
("sampleId" .=) <$> _csSampleId,
("variantSetIds" .=) <$> _csVariantSetIds,
("info" .=) <$> _csInfo])
data CoverageBucket = CoverageBucket'
{ _cbRange :: !(Maybe Range)
, _cbMeanCoverage :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
coverageBucket
:: CoverageBucket
coverageBucket =
CoverageBucket'
{ _cbRange = Nothing
, _cbMeanCoverage = Nothing
}
cbRange :: Lens' CoverageBucket (Maybe Range)
cbRange = lens _cbRange (\ s a -> s{_cbRange = a})
cbMeanCoverage :: Lens' CoverageBucket (Maybe Double)
cbMeanCoverage
= lens _cbMeanCoverage
(\ s a -> s{_cbMeanCoverage = a})
. mapping _Coerce
instance FromJSON CoverageBucket where
parseJSON
= withObject "CoverageBucket"
(\ o ->
CoverageBucket' <$>
(o .:? "range") <*> (o .:? "meanCoverage"))
instance ToJSON CoverageBucket where
toJSON CoverageBucket'{..}
= object
(catMaybes
[("range" .=) <$> _cbRange,
("meanCoverage" .=) <$> _cbMeanCoverage])
data VariantAnnotation = VariantAnnotation'
{ _vaEffect :: !(Maybe VariantAnnotationEffect)
, _vaClinicalSignificance :: !(Maybe VariantAnnotationClinicalSignificance)
, _vaAlternateBases :: !(Maybe Text)
, _vaGeneId :: !(Maybe Text)
, _vaConditions :: !(Maybe [ClinicalCondition])
, _vaType :: !(Maybe VariantAnnotationType)
, _vaTranscriptIds :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
variantAnnotation
:: VariantAnnotation
variantAnnotation =
VariantAnnotation'
{ _vaEffect = Nothing
, _vaClinicalSignificance = Nothing
, _vaAlternateBases = Nothing
, _vaGeneId = Nothing
, _vaConditions = Nothing
, _vaType = Nothing
, _vaTranscriptIds = Nothing
}
vaEffect :: Lens' VariantAnnotation (Maybe VariantAnnotationEffect)
vaEffect = lens _vaEffect (\ s a -> s{_vaEffect = a})
vaClinicalSignificance :: Lens' VariantAnnotation (Maybe VariantAnnotationClinicalSignificance)
vaClinicalSignificance
= lens _vaClinicalSignificance
(\ s a -> s{_vaClinicalSignificance = a})
vaAlternateBases :: Lens' VariantAnnotation (Maybe Text)
vaAlternateBases
= lens _vaAlternateBases
(\ s a -> s{_vaAlternateBases = a})
vaGeneId :: Lens' VariantAnnotation (Maybe Text)
vaGeneId = lens _vaGeneId (\ s a -> s{_vaGeneId = a})
vaConditions :: Lens' VariantAnnotation [ClinicalCondition]
vaConditions
= lens _vaConditions (\ s a -> s{_vaConditions = a})
. _Default
. _Coerce
vaType :: Lens' VariantAnnotation (Maybe VariantAnnotationType)
vaType = lens _vaType (\ s a -> s{_vaType = a})
vaTranscriptIds :: Lens' VariantAnnotation [Text]
vaTranscriptIds
= lens _vaTranscriptIds
(\ s a -> s{_vaTranscriptIds = a})
. _Default
. _Coerce
instance FromJSON VariantAnnotation where
parseJSON
= withObject "VariantAnnotation"
(\ o ->
VariantAnnotation' <$>
(o .:? "effect") <*> (o .:? "clinicalSignificance")
<*> (o .:? "alternateBases")
<*> (o .:? "geneId")
<*> (o .:? "conditions" .!= mempty)
<*> (o .:? "type")
<*> (o .:? "transcriptIds" .!= mempty))
instance ToJSON VariantAnnotation where
toJSON VariantAnnotation'{..}
= object
(catMaybes
[("effect" .=) <$> _vaEffect,
("clinicalSignificance" .=) <$>
_vaClinicalSignificance,
("alternateBases" .=) <$> _vaAlternateBases,
("geneId" .=) <$> _vaGeneId,
("conditions" .=) <$> _vaConditions,
("type" .=) <$> _vaType,
("transcriptIds" .=) <$> _vaTranscriptIds])
data SearchReadGroupSetsRequest = SearchReadGroupSetsRequest'
{ _srgsrDataSetIds :: !(Maybe [Text])
, _srgsrName :: !(Maybe Text)
, _srgsrPageToken :: !(Maybe Text)
, _srgsrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchReadGroupSetsRequest
:: SearchReadGroupSetsRequest
searchReadGroupSetsRequest =
SearchReadGroupSetsRequest'
{ _srgsrDataSetIds = Nothing
, _srgsrName = Nothing
, _srgsrPageToken = Nothing
, _srgsrPageSize = Nothing
}
srgsrDataSetIds :: Lens' SearchReadGroupSetsRequest [Text]
srgsrDataSetIds
= lens _srgsrDataSetIds
(\ s a -> s{_srgsrDataSetIds = a})
. _Default
. _Coerce
srgsrName :: Lens' SearchReadGroupSetsRequest (Maybe Text)
srgsrName
= lens _srgsrName (\ s a -> s{_srgsrName = a})
srgsrPageToken :: Lens' SearchReadGroupSetsRequest (Maybe Text)
srgsrPageToken
= lens _srgsrPageToken
(\ s a -> s{_srgsrPageToken = a})
srgsrPageSize :: Lens' SearchReadGroupSetsRequest (Maybe Int32)
srgsrPageSize
= lens _srgsrPageSize
(\ s a -> s{_srgsrPageSize = a})
. mapping _Coerce
instance FromJSON SearchReadGroupSetsRequest where
parseJSON
= withObject "SearchReadGroupSetsRequest"
(\ o ->
SearchReadGroupSetsRequest' <$>
(o .:? "datasetIds" .!= mempty) <*> (o .:? "name")
<*> (o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON SearchReadGroupSetsRequest where
toJSON SearchReadGroupSetsRequest'{..}
= object
(catMaybes
[("datasetIds" .=) <$> _srgsrDataSetIds,
("name" .=) <$> _srgsrName,
("pageToken" .=) <$> _srgsrPageToken,
("pageSize" .=) <$> _srgsrPageSize])
data Reference = Reference'
{ _refLength :: !(Maybe (Textual Int64))
, _refSourceAccessions :: !(Maybe [Text])
, _refMD5checksum :: !(Maybe Text)
, _refName :: !(Maybe Text)
, _refNcbiTaxonId :: !(Maybe (Textual Int32))
, _refId :: !(Maybe Text)
, _refSourceURI :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
reference
:: Reference
reference =
Reference'
{ _refLength = Nothing
, _refSourceAccessions = Nothing
, _refMD5checksum = Nothing
, _refName = Nothing
, _refNcbiTaxonId = Nothing
, _refId = Nothing
, _refSourceURI = Nothing
}
refLength :: Lens' Reference (Maybe Int64)
refLength
= lens _refLength (\ s a -> s{_refLength = a}) .
mapping _Coerce
refSourceAccessions :: Lens' Reference [Text]
refSourceAccessions
= lens _refSourceAccessions
(\ s a -> s{_refSourceAccessions = a})
. _Default
. _Coerce
refMD5checksum :: Lens' Reference (Maybe Text)
refMD5checksum
= lens _refMD5checksum
(\ s a -> s{_refMD5checksum = a})
refName :: Lens' Reference (Maybe Text)
refName = lens _refName (\ s a -> s{_refName = a})
refNcbiTaxonId :: Lens' Reference (Maybe Int32)
refNcbiTaxonId
= lens _refNcbiTaxonId
(\ s a -> s{_refNcbiTaxonId = a})
. mapping _Coerce
refId :: Lens' Reference (Maybe Text)
refId = lens _refId (\ s a -> s{_refId = a})
refSourceURI :: Lens' Reference (Maybe Text)
refSourceURI
= lens _refSourceURI (\ s a -> s{_refSourceURI = a})
instance FromJSON Reference where
parseJSON
= withObject "Reference"
(\ o ->
Reference' <$>
(o .:? "length") <*>
(o .:? "sourceAccessions" .!= mempty)
<*> (o .:? "md5checksum")
<*> (o .:? "name")
<*> (o .:? "ncbiTaxonId")
<*> (o .:? "id")
<*> (o .:? "sourceUri"))
instance ToJSON Reference where
toJSON Reference'{..}
= object
(catMaybes
[("length" .=) <$> _refLength,
("sourceAccessions" .=) <$> _refSourceAccessions,
("md5checksum" .=) <$> _refMD5checksum,
("name" .=) <$> _refName,
("ncbiTaxonId" .=) <$> _refNcbiTaxonId,
("id" .=) <$> _refId,
("sourceUri" .=) <$> _refSourceURI])
newtype VariantCallInfo = VariantCallInfo'
{ _vciAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
variantCallInfo
:: HashMap Text [JSONValue]
-> VariantCallInfo
variantCallInfo pVciAddtional_ =
VariantCallInfo'
{ _vciAddtional = _Coerce # pVciAddtional_
}
vciAddtional :: Lens' VariantCallInfo (HashMap Text [JSONValue])
vciAddtional
= lens _vciAddtional (\ s a -> s{_vciAddtional = a})
. _Coerce
instance FromJSON VariantCallInfo where
parseJSON
= withObject "VariantCallInfo"
(\ o -> VariantCallInfo' <$> (parseJSONObject o))
instance ToJSON VariantCallInfo where
toJSON = toJSON . _vciAddtional
newtype ReadGroupInfo = ReadGroupInfo'
{ _rgiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupInfo
:: HashMap Text [JSONValue]
-> ReadGroupInfo
readGroupInfo pRgiAddtional_ =
ReadGroupInfo'
{ _rgiAddtional = _Coerce # pRgiAddtional_
}
rgiAddtional :: Lens' ReadGroupInfo (HashMap Text [JSONValue])
rgiAddtional
= lens _rgiAddtional (\ s a -> s{_rgiAddtional = a})
. _Coerce
instance FromJSON ReadGroupInfo where
parseJSON
= withObject "ReadGroupInfo"
(\ o -> ReadGroupInfo' <$> (parseJSONObject o))
instance ToJSON ReadGroupInfo where
toJSON = toJSON . _rgiAddtional
newtype StatusDetailsItem = StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
statusDetailsItem
:: HashMap Text JSONValue
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
StatusDetailsItem'
{ _sdiAddtional = _Coerce # pSdiAddtional_
}
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
sdiAddtional
= lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
. _Coerce
instance FromJSON StatusDetailsItem where
parseJSON
= withObject "StatusDetailsItem"
(\ o -> StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON StatusDetailsItem where
toJSON = toJSON . _sdiAddtional
data SearchCallSetsResponse = SearchCallSetsResponse'
{ _scsrNextPageToken :: !(Maybe Text)
, _scsrCallSets :: !(Maybe [CallSet])
} deriving (Eq,Show,Data,Typeable,Generic)
searchCallSetsResponse
:: SearchCallSetsResponse
searchCallSetsResponse =
SearchCallSetsResponse'
{ _scsrNextPageToken = Nothing
, _scsrCallSets = Nothing
}
scsrNextPageToken :: Lens' SearchCallSetsResponse (Maybe Text)
scsrNextPageToken
= lens _scsrNextPageToken
(\ s a -> s{_scsrNextPageToken = a})
scsrCallSets :: Lens' SearchCallSetsResponse [CallSet]
scsrCallSets
= lens _scsrCallSets (\ s a -> s{_scsrCallSets = a})
. _Default
. _Coerce
instance FromJSON SearchCallSetsResponse where
parseJSON
= withObject "SearchCallSetsResponse"
(\ o ->
SearchCallSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "callSets" .!= mempty))
instance ToJSON SearchCallSetsResponse where
toJSON SearchCallSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _scsrNextPageToken,
("callSets" .=) <$> _scsrCallSets])
newtype SetIAMPolicyRequest = SetIAMPolicyRequest'
{ _siprPolicy :: Maybe Policy
} deriving (Eq,Show,Data,Typeable,Generic)
setIAMPolicyRequest
:: SetIAMPolicyRequest
setIAMPolicyRequest =
SetIAMPolicyRequest'
{ _siprPolicy = Nothing
}
siprPolicy :: Lens' SetIAMPolicyRequest (Maybe Policy)
siprPolicy
= lens _siprPolicy (\ s a -> s{_siprPolicy = a})
instance FromJSON SetIAMPolicyRequest where
parseJSON
= withObject "SetIAMPolicyRequest"
(\ o -> SetIAMPolicyRequest' <$> (o .:? "policy"))
instance ToJSON SetIAMPolicyRequest where
toJSON SetIAMPolicyRequest'{..}
= object (catMaybes [("policy" .=) <$> _siprPolicy])
data SearchReadsRequest = SearchReadsRequest'
{ _srrStart :: !(Maybe (Textual Int64))
, _srrReadGroupIds :: !(Maybe [Text])
, _srrReferenceName :: !(Maybe Text)
, _srrEnd :: !(Maybe (Textual Int64))
, _srrPageToken :: !(Maybe Text)
, _srrPageSize :: !(Maybe (Textual Int32))
, _srrReadGroupSetIds :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
searchReadsRequest
:: SearchReadsRequest
searchReadsRequest =
SearchReadsRequest'
{ _srrStart = Nothing
, _srrReadGroupIds = Nothing
, _srrReferenceName = Nothing
, _srrEnd = Nothing
, _srrPageToken = Nothing
, _srrPageSize = Nothing
, _srrReadGroupSetIds = Nothing
}
srrStart :: Lens' SearchReadsRequest (Maybe Int64)
srrStart
= lens _srrStart (\ s a -> s{_srrStart = a}) .
mapping _Coerce
srrReadGroupIds :: Lens' SearchReadsRequest [Text]
srrReadGroupIds
= lens _srrReadGroupIds
(\ s a -> s{_srrReadGroupIds = a})
. _Default
. _Coerce
srrReferenceName :: Lens' SearchReadsRequest (Maybe Text)
srrReferenceName
= lens _srrReferenceName
(\ s a -> s{_srrReferenceName = a})
srrEnd :: Lens' SearchReadsRequest (Maybe Int64)
srrEnd
= lens _srrEnd (\ s a -> s{_srrEnd = a}) .
mapping _Coerce
srrPageToken :: Lens' SearchReadsRequest (Maybe Text)
srrPageToken
= lens _srrPageToken (\ s a -> s{_srrPageToken = a})
srrPageSize :: Lens' SearchReadsRequest (Maybe Int32)
srrPageSize
= lens _srrPageSize (\ s a -> s{_srrPageSize = a}) .
mapping _Coerce
srrReadGroupSetIds :: Lens' SearchReadsRequest [Text]
srrReadGroupSetIds
= lens _srrReadGroupSetIds
(\ s a -> s{_srrReadGroupSetIds = a})
. _Default
. _Coerce
instance FromJSON SearchReadsRequest where
parseJSON
= withObject "SearchReadsRequest"
(\ o ->
SearchReadsRequest' <$>
(o .:? "start") <*> (o .:? "readGroupIds" .!= mempty)
<*> (o .:? "referenceName")
<*> (o .:? "end")
<*> (o .:? "pageToken")
<*> (o .:? "pageSize")
<*> (o .:? "readGroupSetIds" .!= mempty))
instance ToJSON SearchReadsRequest where
toJSON SearchReadsRequest'{..}
= object
(catMaybes
[("start" .=) <$> _srrStart,
("readGroupIds" .=) <$> _srrReadGroupIds,
("referenceName" .=) <$> _srrReferenceName,
("end" .=) <$> _srrEnd,
("pageToken" .=) <$> _srrPageToken,
("pageSize" .=) <$> _srrPageSize,
("readGroupSetIds" .=) <$> _srrReadGroupSetIds])
newtype OperationMetadataRequest = OperationMetadataRequest'
{ _omrAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataRequest
:: HashMap Text JSONValue
-> OperationMetadataRequest
operationMetadataRequest pOmrAddtional_ =
OperationMetadataRequest'
{ _omrAddtional = _Coerce # pOmrAddtional_
}
omrAddtional :: Lens' OperationMetadataRequest (HashMap Text JSONValue)
omrAddtional
= lens _omrAddtional (\ s a -> s{_omrAddtional = a})
. _Coerce
instance FromJSON OperationMetadataRequest where
parseJSON
= withObject "OperationMetadataRequest"
(\ o ->
OperationMetadataRequest' <$> (parseJSONObject o))
instance ToJSON OperationMetadataRequest where
toJSON = toJSON . _omrAddtional
newtype MergeVariantsRequestInfoMergeConfig = MergeVariantsRequestInfoMergeConfig'
{ _mvrimcAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
mergeVariantsRequestInfoMergeConfig
:: HashMap Text Text
-> MergeVariantsRequestInfoMergeConfig
mergeVariantsRequestInfoMergeConfig pMvrimcAddtional_ =
MergeVariantsRequestInfoMergeConfig'
{ _mvrimcAddtional = _Coerce # pMvrimcAddtional_
}
mvrimcAddtional :: Lens' MergeVariantsRequestInfoMergeConfig (HashMap Text Text)
mvrimcAddtional
= lens _mvrimcAddtional
(\ s a -> s{_mvrimcAddtional = a})
. _Coerce
instance FromJSON MergeVariantsRequestInfoMergeConfig
where
parseJSON
= withObject "MergeVariantsRequestInfoMergeConfig"
(\ o ->
MergeVariantsRequestInfoMergeConfig' <$>
(parseJSONObject o))
instance ToJSON MergeVariantsRequestInfoMergeConfig
where
toJSON = toJSON . _mvrimcAddtional
newtype VariantInfo = VariantInfo'
{ _viAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
variantInfo
:: HashMap Text [JSONValue]
-> VariantInfo
variantInfo pViAddtional_ =
VariantInfo'
{ _viAddtional = _Coerce # pViAddtional_
}
viAddtional :: Lens' VariantInfo (HashMap Text [JSONValue])
viAddtional
= lens _viAddtional (\ s a -> s{_viAddtional = a}) .
_Coerce
instance FromJSON VariantInfo where
parseJSON
= withObject "VariantInfo"
(\ o -> VariantInfo' <$> (parseJSONObject o))
instance ToJSON VariantInfo where
toJSON = toJSON . _viAddtional
data Experiment = Experiment'
{ _eInstrumentModel :: !(Maybe Text)
, _ePlatformUnit :: !(Maybe Text)
, _eSequencingCenter :: !(Maybe Text)
, _eLibraryId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
experiment
:: Experiment
experiment =
Experiment'
{ _eInstrumentModel = Nothing
, _ePlatformUnit = Nothing
, _eSequencingCenter = Nothing
, _eLibraryId = Nothing
}
eInstrumentModel :: Lens' Experiment (Maybe Text)
eInstrumentModel
= lens _eInstrumentModel
(\ s a -> s{_eInstrumentModel = a})
ePlatformUnit :: Lens' Experiment (Maybe Text)
ePlatformUnit
= lens _ePlatformUnit
(\ s a -> s{_ePlatformUnit = a})
eSequencingCenter :: Lens' Experiment (Maybe Text)
eSequencingCenter
= lens _eSequencingCenter
(\ s a -> s{_eSequencingCenter = a})
eLibraryId :: Lens' Experiment (Maybe Text)
eLibraryId
= lens _eLibraryId (\ s a -> s{_eLibraryId = a})
instance FromJSON Experiment where
parseJSON
= withObject "Experiment"
(\ o ->
Experiment' <$>
(o .:? "instrumentModel") <*> (o .:? "platformUnit")
<*> (o .:? "sequencingCenter")
<*> (o .:? "libraryId"))
instance ToJSON Experiment where
toJSON Experiment'{..}
= object
(catMaybes
[("instrumentModel" .=) <$> _eInstrumentModel,
("platformUnit" .=) <$> _ePlatformUnit,
("sequencingCenter" .=) <$> _eSequencingCenter,
("libraryId" .=) <$> _eLibraryId])
data SearchVariantSetsRequest = SearchVariantSetsRequest'
{ _svsrDataSetIds :: !(Maybe [Text])
, _svsrPageToken :: !(Maybe Text)
, _svsrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchVariantSetsRequest
:: SearchVariantSetsRequest
searchVariantSetsRequest =
SearchVariantSetsRequest'
{ _svsrDataSetIds = Nothing
, _svsrPageToken = Nothing
, _svsrPageSize = Nothing
}
svsrDataSetIds :: Lens' SearchVariantSetsRequest [Text]
svsrDataSetIds
= lens _svsrDataSetIds
(\ s a -> s{_svsrDataSetIds = a})
. _Default
. _Coerce
svsrPageToken :: Lens' SearchVariantSetsRequest (Maybe Text)
svsrPageToken
= lens _svsrPageToken
(\ s a -> s{_svsrPageToken = a})
svsrPageSize :: Lens' SearchVariantSetsRequest (Maybe Int32)
svsrPageSize
= lens _svsrPageSize (\ s a -> s{_svsrPageSize = a})
. mapping _Coerce
instance FromJSON SearchVariantSetsRequest where
parseJSON
= withObject "SearchVariantSetsRequest"
(\ o ->
SearchVariantSetsRequest' <$>
(o .:? "datasetIds" .!= mempty) <*>
(o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON SearchVariantSetsRequest where
toJSON SearchVariantSetsRequest'{..}
= object
(catMaybes
[("datasetIds" .=) <$> _svsrDataSetIds,
("pageToken" .=) <$> _svsrPageToken,
("pageSize" .=) <$> _svsrPageSize])
newtype AnnotationInfo = AnnotationInfo'
{ _aiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
annotationInfo
:: HashMap Text [JSONValue]
-> AnnotationInfo
annotationInfo pAiAddtional_ =
AnnotationInfo'
{ _aiAddtional = _Coerce # pAiAddtional_
}
aiAddtional :: Lens' AnnotationInfo (HashMap Text [JSONValue])
aiAddtional
= lens _aiAddtional (\ s a -> s{_aiAddtional = a}) .
_Coerce
instance FromJSON AnnotationInfo where
parseJSON
= withObject "AnnotationInfo"
(\ o -> AnnotationInfo' <$> (parseJSONObject o))
instance ToJSON AnnotationInfo where
toJSON = toJSON . _aiAddtional
data SearchAnnotationsResponse = SearchAnnotationsResponse'
{ _sarAnnotations :: !(Maybe [Annotation])
, _sarNextPageToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
searchAnnotationsResponse
:: SearchAnnotationsResponse
searchAnnotationsResponse =
SearchAnnotationsResponse'
{ _sarAnnotations = Nothing
, _sarNextPageToken = Nothing
}
sarAnnotations :: Lens' SearchAnnotationsResponse [Annotation]
sarAnnotations
= lens _sarAnnotations
(\ s a -> s{_sarAnnotations = a})
. _Default
. _Coerce
sarNextPageToken :: Lens' SearchAnnotationsResponse (Maybe Text)
sarNextPageToken
= lens _sarNextPageToken
(\ s a -> s{_sarNextPageToken = a})
instance FromJSON SearchAnnotationsResponse where
parseJSON
= withObject "SearchAnnotationsResponse"
(\ o ->
SearchAnnotationsResponse' <$>
(o .:? "annotations" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON SearchAnnotationsResponse where
toJSON SearchAnnotationsResponse'{..}
= object
(catMaybes
[("annotations" .=) <$> _sarAnnotations,
("nextPageToken" .=) <$> _sarNextPageToken])
data SearchAnnotationSetsRequest = SearchAnnotationSetsRequest'
{ _sasrReferenceSetId :: !(Maybe Text)
, _sasrTypes :: !(Maybe [Text])
, _sasrDataSetIds :: !(Maybe [Text])
, _sasrName :: !(Maybe Text)
, _sasrPageToken :: !(Maybe Text)
, _sasrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchAnnotationSetsRequest
:: SearchAnnotationSetsRequest
searchAnnotationSetsRequest =
SearchAnnotationSetsRequest'
{ _sasrReferenceSetId = Nothing
, _sasrTypes = Nothing
, _sasrDataSetIds = Nothing
, _sasrName = Nothing
, _sasrPageToken = Nothing
, _sasrPageSize = Nothing
}
sasrReferenceSetId :: Lens' SearchAnnotationSetsRequest (Maybe Text)
sasrReferenceSetId
= lens _sasrReferenceSetId
(\ s a -> s{_sasrReferenceSetId = a})
sasrTypes :: Lens' SearchAnnotationSetsRequest [Text]
sasrTypes
= lens _sasrTypes (\ s a -> s{_sasrTypes = a}) .
_Default
. _Coerce
sasrDataSetIds :: Lens' SearchAnnotationSetsRequest [Text]
sasrDataSetIds
= lens _sasrDataSetIds
(\ s a -> s{_sasrDataSetIds = a})
. _Default
. _Coerce
sasrName :: Lens' SearchAnnotationSetsRequest (Maybe Text)
sasrName = lens _sasrName (\ s a -> s{_sasrName = a})
sasrPageToken :: Lens' SearchAnnotationSetsRequest (Maybe Text)
sasrPageToken
= lens _sasrPageToken
(\ s a -> s{_sasrPageToken = a})
sasrPageSize :: Lens' SearchAnnotationSetsRequest (Maybe Int32)
sasrPageSize
= lens _sasrPageSize (\ s a -> s{_sasrPageSize = a})
. mapping _Coerce
instance FromJSON SearchAnnotationSetsRequest where
parseJSON
= withObject "SearchAnnotationSetsRequest"
(\ o ->
SearchAnnotationSetsRequest' <$>
(o .:? "referenceSetId") <*>
(o .:? "types" .!= mempty)
<*> (o .:? "datasetIds" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON SearchAnnotationSetsRequest where
toJSON SearchAnnotationSetsRequest'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _sasrReferenceSetId,
("types" .=) <$> _sasrTypes,
("datasetIds" .=) <$> _sasrDataSetIds,
("name" .=) <$> _sasrName,
("pageToken" .=) <$> _sasrPageToken,
("pageSize" .=) <$> _sasrPageSize])
data SearchVariantsResponse = SearchVariantsResponse'
{ _svrVariants :: !(Maybe [Variant])
, _svrNextPageToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
searchVariantsResponse
:: SearchVariantsResponse
searchVariantsResponse =
SearchVariantsResponse'
{ _svrVariants = Nothing
, _svrNextPageToken = Nothing
}
svrVariants :: Lens' SearchVariantsResponse [Variant]
svrVariants
= lens _svrVariants (\ s a -> s{_svrVariants = a}) .
_Default
. _Coerce
svrNextPageToken :: Lens' SearchVariantsResponse (Maybe Text)
svrNextPageToken
= lens _svrNextPageToken
(\ s a -> s{_svrNextPageToken = a})
instance FromJSON SearchVariantsResponse where
parseJSON
= withObject "SearchVariantsResponse"
(\ o ->
SearchVariantsResponse' <$>
(o .:? "variants" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON SearchVariantsResponse where
toJSON SearchVariantsResponse'{..}
= object
(catMaybes
[("variants" .=) <$> _svrVariants,
("nextPageToken" .=) <$> _svrNextPageToken])
newtype OperationMetadataRuntimeMetadata = OperationMetadataRuntimeMetadata'
{ _omrmAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadataRuntimeMetadata
:: HashMap Text JSONValue
-> OperationMetadataRuntimeMetadata
operationMetadataRuntimeMetadata pOmrmAddtional_ =
OperationMetadataRuntimeMetadata'
{ _omrmAddtional = _Coerce # pOmrmAddtional_
}
omrmAddtional :: Lens' OperationMetadataRuntimeMetadata (HashMap Text JSONValue)
omrmAddtional
= lens _omrmAddtional
(\ s a -> s{_omrmAddtional = a})
. _Coerce
instance FromJSON OperationMetadataRuntimeMetadata
where
parseJSON
= withObject "OperationMetadataRuntimeMetadata"
(\ o ->
OperationMetadataRuntimeMetadata' <$>
(parseJSONObject o))
instance ToJSON OperationMetadataRuntimeMetadata
where
toJSON = toJSON . _omrmAddtional
data ClinicalCondition = ClinicalCondition'
{ _ccExternalIds :: !(Maybe [ExternalId])
, _ccNames :: !(Maybe [Text])
, _ccConceptId :: !(Maybe Text)
, _ccOmimId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
clinicalCondition
:: ClinicalCondition
clinicalCondition =
ClinicalCondition'
{ _ccExternalIds = Nothing
, _ccNames = Nothing
, _ccConceptId = Nothing
, _ccOmimId = Nothing
}
ccExternalIds :: Lens' ClinicalCondition [ExternalId]
ccExternalIds
= lens _ccExternalIds
(\ s a -> s{_ccExternalIds = a})
. _Default
. _Coerce
ccNames :: Lens' ClinicalCondition [Text]
ccNames
= lens _ccNames (\ s a -> s{_ccNames = a}) . _Default
. _Coerce
ccConceptId :: Lens' ClinicalCondition (Maybe Text)
ccConceptId
= lens _ccConceptId (\ s a -> s{_ccConceptId = a})
ccOmimId :: Lens' ClinicalCondition (Maybe Text)
ccOmimId = lens _ccOmimId (\ s a -> s{_ccOmimId = a})
instance FromJSON ClinicalCondition where
parseJSON
= withObject "ClinicalCondition"
(\ o ->
ClinicalCondition' <$>
(o .:? "externalIds" .!= mempty) <*>
(o .:? "names" .!= mempty)
<*> (o .:? "conceptId")
<*> (o .:? "omimId"))
instance ToJSON ClinicalCondition where
toJSON ClinicalCondition'{..}
= object
(catMaybes
[("externalIds" .=) <$> _ccExternalIds,
("names" .=) <$> _ccNames,
("conceptId" .=) <$> _ccConceptId,
("omimId" .=) <$> _ccOmimId])
data SearchCallSetsRequest = SearchCallSetsRequest'
{ _scsrName :: !(Maybe Text)
, _scsrPageToken :: !(Maybe Text)
, _scsrVariantSetIds :: !(Maybe [Text])
, _scsrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchCallSetsRequest
:: SearchCallSetsRequest
searchCallSetsRequest =
SearchCallSetsRequest'
{ _scsrName = Nothing
, _scsrPageToken = Nothing
, _scsrVariantSetIds = Nothing
, _scsrPageSize = Nothing
}
scsrName :: Lens' SearchCallSetsRequest (Maybe Text)
scsrName = lens _scsrName (\ s a -> s{_scsrName = a})
scsrPageToken :: Lens' SearchCallSetsRequest (Maybe Text)
scsrPageToken
= lens _scsrPageToken
(\ s a -> s{_scsrPageToken = a})
scsrVariantSetIds :: Lens' SearchCallSetsRequest [Text]
scsrVariantSetIds
= lens _scsrVariantSetIds
(\ s a -> s{_scsrVariantSetIds = a})
. _Default
. _Coerce
scsrPageSize :: Lens' SearchCallSetsRequest (Maybe Int32)
scsrPageSize
= lens _scsrPageSize (\ s a -> s{_scsrPageSize = a})
. mapping _Coerce
instance FromJSON SearchCallSetsRequest where
parseJSON
= withObject "SearchCallSetsRequest"
(\ o ->
SearchCallSetsRequest' <$>
(o .:? "name") <*> (o .:? "pageToken") <*>
(o .:? "variantSetIds" .!= mempty)
<*> (o .:? "pageSize"))
instance ToJSON SearchCallSetsRequest where
toJSON SearchCallSetsRequest'{..}
= object
(catMaybes
[("name" .=) <$> _scsrName,
("pageToken" .=) <$> _scsrPageToken,
("variantSetIds" .=) <$> _scsrVariantSetIds,
("pageSize" .=) <$> _scsrPageSize])
data Entry = Entry'
{ _eStatus :: !(Maybe Status)
, _eAnnotation :: !(Maybe Annotation)
} deriving (Eq,Show,Data,Typeable,Generic)
entry
:: Entry
entry =
Entry'
{ _eStatus = Nothing
, _eAnnotation = Nothing
}
eStatus :: Lens' Entry (Maybe Status)
eStatus = lens _eStatus (\ s a -> s{_eStatus = a})
eAnnotation :: Lens' Entry (Maybe Annotation)
eAnnotation
= lens _eAnnotation (\ s a -> s{_eAnnotation = a})
instance FromJSON Entry where
parseJSON
= withObject "Entry"
(\ o ->
Entry' <$> (o .:? "status") <*> (o .:? "annotation"))
instance ToJSON Entry where
toJSON Entry'{..}
= object
(catMaybes
[("status" .=) <$> _eStatus,
("annotation" .=) <$> _eAnnotation])
data SearchReadsResponse = SearchReadsResponse'
{ _sNextPageToken :: !(Maybe Text)
, _sAlignments :: !(Maybe [Read'])
} deriving (Eq,Show,Data,Typeable,Generic)
searchReadsResponse
:: SearchReadsResponse
searchReadsResponse =
SearchReadsResponse'
{ _sNextPageToken = Nothing
, _sAlignments = Nothing
}
sNextPageToken :: Lens' SearchReadsResponse (Maybe Text)
sNextPageToken
= lens _sNextPageToken
(\ s a -> s{_sNextPageToken = a})
sAlignments :: Lens' SearchReadsResponse [Read']
sAlignments
= lens _sAlignments (\ s a -> s{_sAlignments = a}) .
_Default
. _Coerce
instance FromJSON SearchReadsResponse where
parseJSON
= withObject "SearchReadsResponse"
(\ o ->
SearchReadsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "alignments" .!= mempty))
instance ToJSON SearchReadsResponse where
toJSON SearchReadsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _sNextPageToken,
("alignments" .=) <$> _sAlignments])
data Program = Program'
{ _pPrevProgramId :: !(Maybe Text)
, _pName :: !(Maybe Text)
, _pVersion :: !(Maybe Text)
, _pId :: !(Maybe Text)
, _pCommandLine :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
program
:: Program
program =
Program'
{ _pPrevProgramId = Nothing
, _pName = Nothing
, _pVersion = Nothing
, _pId = Nothing
, _pCommandLine = Nothing
}
pPrevProgramId :: Lens' Program (Maybe Text)
pPrevProgramId
= lens _pPrevProgramId
(\ s a -> s{_pPrevProgramId = a})
pName :: Lens' Program (Maybe Text)
pName = lens _pName (\ s a -> s{_pName = a})
pVersion :: Lens' Program (Maybe Text)
pVersion = lens _pVersion (\ s a -> s{_pVersion = a})
pId :: Lens' Program (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
pCommandLine :: Lens' Program (Maybe Text)
pCommandLine
= lens _pCommandLine (\ s a -> s{_pCommandLine = a})
instance FromJSON Program where
parseJSON
= withObject "Program"
(\ o ->
Program' <$>
(o .:? "prevProgramId") <*> (o .:? "name") <*>
(o .:? "version")
<*> (o .:? "id")
<*> (o .:? "commandLine"))
instance ToJSON Program where
toJSON Program'{..}
= object
(catMaybes
[("prevProgramId" .=) <$> _pPrevProgramId,
("name" .=) <$> _pName, ("version" .=) <$> _pVersion,
("id" .=) <$> _pId,
("commandLine" .=) <$> _pCommandLine])
data SearchReferencesRequest = SearchReferencesRequest'
{ _sReferenceSetId :: !(Maybe Text)
, _sMD5checksums :: !(Maybe [Text])
, _sAccessions :: !(Maybe [Text])
, _sPageToken :: !(Maybe Text)
, _sPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchReferencesRequest
:: SearchReferencesRequest
searchReferencesRequest =
SearchReferencesRequest'
{ _sReferenceSetId = Nothing
, _sMD5checksums = Nothing
, _sAccessions = Nothing
, _sPageToken = Nothing
, _sPageSize = Nothing
}
sReferenceSetId :: Lens' SearchReferencesRequest (Maybe Text)
sReferenceSetId
= lens _sReferenceSetId
(\ s a -> s{_sReferenceSetId = a})
sMD5checksums :: Lens' SearchReferencesRequest [Text]
sMD5checksums
= lens _sMD5checksums
(\ s a -> s{_sMD5checksums = a})
. _Default
. _Coerce
sAccessions :: Lens' SearchReferencesRequest [Text]
sAccessions
= lens _sAccessions (\ s a -> s{_sAccessions = a}) .
_Default
. _Coerce
sPageToken :: Lens' SearchReferencesRequest (Maybe Text)
sPageToken
= lens _sPageToken (\ s a -> s{_sPageToken = a})
sPageSize :: Lens' SearchReferencesRequest (Maybe Int32)
sPageSize
= lens _sPageSize (\ s a -> s{_sPageSize = a}) .
mapping _Coerce
instance FromJSON SearchReferencesRequest where
parseJSON
= withObject "SearchReferencesRequest"
(\ o ->
SearchReferencesRequest' <$>
(o .:? "referenceSetId") <*>
(o .:? "md5checksums" .!= mempty)
<*> (o .:? "accessions" .!= mempty)
<*> (o .:? "pageToken")
<*> (o .:? "pageSize"))
instance ToJSON SearchReferencesRequest where
toJSON SearchReferencesRequest'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _sReferenceSetId,
("md5checksums" .=) <$> _sMD5checksums,
("accessions" .=) <$> _sAccessions,
("pageToken" .=) <$> _sPageToken,
("pageSize" .=) <$> _sPageSize])
newtype BatchCreateAnnotationsResponse = BatchCreateAnnotationsResponse'
{ _bcarEntries :: Maybe [Entry]
} deriving (Eq,Show,Data,Typeable,Generic)
batchCreateAnnotationsResponse
:: BatchCreateAnnotationsResponse
batchCreateAnnotationsResponse =
BatchCreateAnnotationsResponse'
{ _bcarEntries = Nothing
}
bcarEntries :: Lens' BatchCreateAnnotationsResponse [Entry]
bcarEntries
= lens _bcarEntries (\ s a -> s{_bcarEntries = a}) .
_Default
. _Coerce
instance FromJSON BatchCreateAnnotationsResponse
where
parseJSON
= withObject "BatchCreateAnnotationsResponse"
(\ o ->
BatchCreateAnnotationsResponse' <$>
(o .:? "entries" .!= mempty))
instance ToJSON BatchCreateAnnotationsResponse where
toJSON BatchCreateAnnotationsResponse'{..}
= object
(catMaybes [("entries" .=) <$> _bcarEntries])
data CodingSequence = CodingSequence'
{ _csStart :: !(Maybe (Textual Int64))
, _csEnd :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
codingSequence
:: CodingSequence
codingSequence =
CodingSequence'
{ _csStart = Nothing
, _csEnd = Nothing
}
csStart :: Lens' CodingSequence (Maybe Int64)
csStart
= lens _csStart (\ s a -> s{_csStart = a}) .
mapping _Coerce
csEnd :: Lens' CodingSequence (Maybe Int64)
csEnd
= lens _csEnd (\ s a -> s{_csEnd = a}) .
mapping _Coerce
instance FromJSON CodingSequence where
parseJSON
= withObject "CodingSequence"
(\ o ->
CodingSequence' <$>
(o .:? "start") <*> (o .:? "end"))
instance ToJSON CodingSequence where
toJSON CodingSequence'{..}
= object
(catMaybes
[("start" .=) <$> _csStart, ("end" .=) <$> _csEnd])
data SearchReferenceSetsResponse = SearchReferenceSetsResponse'
{ _srsrNextPageToken :: !(Maybe Text)
, _srsrReferenceSets :: !(Maybe [ReferenceSet])
} deriving (Eq,Show,Data,Typeable,Generic)
searchReferenceSetsResponse
:: SearchReferenceSetsResponse
searchReferenceSetsResponse =
SearchReferenceSetsResponse'
{ _srsrNextPageToken = Nothing
, _srsrReferenceSets = Nothing
}
srsrNextPageToken :: Lens' SearchReferenceSetsResponse (Maybe Text)
srsrNextPageToken
= lens _srsrNextPageToken
(\ s a -> s{_srsrNextPageToken = a})
srsrReferenceSets :: Lens' SearchReferenceSetsResponse [ReferenceSet]
srsrReferenceSets
= lens _srsrReferenceSets
(\ s a -> s{_srsrReferenceSets = a})
. _Default
. _Coerce
instance FromJSON SearchReferenceSetsResponse where
parseJSON
= withObject "SearchReferenceSetsResponse"
(\ o ->
SearchReferenceSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "referenceSets" .!= mempty))
instance ToJSON SearchReferenceSetsResponse where
toJSON SearchReferenceSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _srsrNextPageToken,
("referenceSets" .=) <$> _srsrReferenceSets])
data Range = Range'
{ _rStart :: !(Maybe (Textual Int64))
, _rReferenceName :: !(Maybe Text)
, _rEnd :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
range
:: Range
range =
Range'
{ _rStart = Nothing
, _rReferenceName = Nothing
, _rEnd = Nothing
}
rStart :: Lens' Range (Maybe Int64)
rStart
= lens _rStart (\ s a -> s{_rStart = a}) .
mapping _Coerce
rReferenceName :: Lens' Range (Maybe Text)
rReferenceName
= lens _rReferenceName
(\ s a -> s{_rReferenceName = a})
rEnd :: Lens' Range (Maybe Int64)
rEnd
= lens _rEnd (\ s a -> s{_rEnd = a}) .
mapping _Coerce
instance FromJSON Range where
parseJSON
= withObject "Range"
(\ o ->
Range' <$>
(o .:? "start") <*> (o .:? "referenceName") <*>
(o .:? "end"))
instance ToJSON Range where
toJSON Range'{..}
= object
(catMaybes
[("start" .=) <$> _rStart,
("referenceName" .=) <$> _rReferenceName,
("end" .=) <$> _rEnd])
data ReadGroupSet = ReadGroupSet'
{ _rgsReferenceSetId :: !(Maybe Text)
, _rgsName :: !(Maybe Text)
, _rgsDataSetId :: !(Maybe Text)
, _rgsId :: !(Maybe Text)
, _rgsInfo :: !(Maybe ReadGroupSetInfo)
, _rgsReadGroups :: !(Maybe [ReadGroup])
, _rgsFilename :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSet
:: ReadGroupSet
readGroupSet =
ReadGroupSet'
{ _rgsReferenceSetId = Nothing
, _rgsName = Nothing
, _rgsDataSetId = Nothing
, _rgsId = Nothing
, _rgsInfo = Nothing
, _rgsReadGroups = Nothing
, _rgsFilename = Nothing
}
rgsReferenceSetId :: Lens' ReadGroupSet (Maybe Text)
rgsReferenceSetId
= lens _rgsReferenceSetId
(\ s a -> s{_rgsReferenceSetId = a})
rgsName :: Lens' ReadGroupSet (Maybe Text)
rgsName = lens _rgsName (\ s a -> s{_rgsName = a})
rgsDataSetId :: Lens' ReadGroupSet (Maybe Text)
rgsDataSetId
= lens _rgsDataSetId (\ s a -> s{_rgsDataSetId = a})
rgsId :: Lens' ReadGroupSet (Maybe Text)
rgsId = lens _rgsId (\ s a -> s{_rgsId = a})
rgsInfo :: Lens' ReadGroupSet (Maybe ReadGroupSetInfo)
rgsInfo = lens _rgsInfo (\ s a -> s{_rgsInfo = a})
rgsReadGroups :: Lens' ReadGroupSet [ReadGroup]
rgsReadGroups
= lens _rgsReadGroups
(\ s a -> s{_rgsReadGroups = a})
. _Default
. _Coerce
rgsFilename :: Lens' ReadGroupSet (Maybe Text)
rgsFilename
= lens _rgsFilename (\ s a -> s{_rgsFilename = a})
instance FromJSON ReadGroupSet where
parseJSON
= withObject "ReadGroupSet"
(\ o ->
ReadGroupSet' <$>
(o .:? "referenceSetId") <*> (o .:? "name") <*>
(o .:? "datasetId")
<*> (o .:? "id")
<*> (o .:? "info")
<*> (o .:? "readGroups" .!= mempty)
<*> (o .:? "filename"))
instance ToJSON ReadGroupSet where
toJSON ReadGroupSet'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _rgsReferenceSetId,
("name" .=) <$> _rgsName,
("datasetId" .=) <$> _rgsDataSetId,
("id" .=) <$> _rgsId, ("info" .=) <$> _rgsInfo,
("readGroups" .=) <$> _rgsReadGroups,
("filename" .=) <$> _rgsFilename])
data ExportReadGroupSetRequest = ExportReadGroupSetRequest'
{ _ergsrReferenceNames :: !(Maybe [Text])
, _ergsrExportURI :: !(Maybe Text)
, _ergsrProjectId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
exportReadGroupSetRequest
:: ExportReadGroupSetRequest
exportReadGroupSetRequest =
ExportReadGroupSetRequest'
{ _ergsrReferenceNames = Nothing
, _ergsrExportURI = Nothing
, _ergsrProjectId = Nothing
}
ergsrReferenceNames :: Lens' ExportReadGroupSetRequest [Text]
ergsrReferenceNames
= lens _ergsrReferenceNames
(\ s a -> s{_ergsrReferenceNames = a})
. _Default
. _Coerce
ergsrExportURI :: Lens' ExportReadGroupSetRequest (Maybe Text)
ergsrExportURI
= lens _ergsrExportURI
(\ s a -> s{_ergsrExportURI = a})
ergsrProjectId :: Lens' ExportReadGroupSetRequest (Maybe Text)
ergsrProjectId
= lens _ergsrProjectId
(\ s a -> s{_ergsrProjectId = a})
instance FromJSON ExportReadGroupSetRequest where
parseJSON
= withObject "ExportReadGroupSetRequest"
(\ o ->
ExportReadGroupSetRequest' <$>
(o .:? "referenceNames" .!= mempty) <*>
(o .:? "exportUri")
<*> (o .:? "projectId"))
instance ToJSON ExportReadGroupSetRequest where
toJSON ExportReadGroupSetRequest'{..}
= object
(catMaybes
[("referenceNames" .=) <$> _ergsrReferenceNames,
("exportUri" .=) <$> _ergsrExportURI,
("projectId" .=) <$> _ergsrProjectId])
newtype ImportVariantsResponse = ImportVariantsResponse'
{ _ivrCallSetIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
importVariantsResponse
:: ImportVariantsResponse
importVariantsResponse =
ImportVariantsResponse'
{ _ivrCallSetIds = Nothing
}
ivrCallSetIds :: Lens' ImportVariantsResponse [Text]
ivrCallSetIds
= lens _ivrCallSetIds
(\ s a -> s{_ivrCallSetIds = a})
. _Default
. _Coerce
instance FromJSON ImportVariantsResponse where
parseJSON
= withObject "ImportVariantsResponse"
(\ o ->
ImportVariantsResponse' <$>
(o .:? "callSetIds" .!= mempty))
instance ToJSON ImportVariantsResponse where
toJSON ImportVariantsResponse'{..}
= object
(catMaybes [("callSetIds" .=) <$> _ivrCallSetIds])
data ListCoverageBucketsResponse = ListCoverageBucketsResponse'
{ _lcbrNextPageToken :: !(Maybe Text)
, _lcbrBucketWidth :: !(Maybe (Textual Int64))
, _lcbrCoverageBuckets :: !(Maybe [CoverageBucket])
} deriving (Eq,Show,Data,Typeable,Generic)
listCoverageBucketsResponse
:: ListCoverageBucketsResponse
listCoverageBucketsResponse =
ListCoverageBucketsResponse'
{ _lcbrNextPageToken = Nothing
, _lcbrBucketWidth = Nothing
, _lcbrCoverageBuckets = Nothing
}
lcbrNextPageToken :: Lens' ListCoverageBucketsResponse (Maybe Text)
lcbrNextPageToken
= lens _lcbrNextPageToken
(\ s a -> s{_lcbrNextPageToken = a})
lcbrBucketWidth :: Lens' ListCoverageBucketsResponse (Maybe Int64)
lcbrBucketWidth
= lens _lcbrBucketWidth
(\ s a -> s{_lcbrBucketWidth = a})
. mapping _Coerce
lcbrCoverageBuckets :: Lens' ListCoverageBucketsResponse [CoverageBucket]
lcbrCoverageBuckets
= lens _lcbrCoverageBuckets
(\ s a -> s{_lcbrCoverageBuckets = a})
. _Default
. _Coerce
instance FromJSON ListCoverageBucketsResponse where
parseJSON
= withObject "ListCoverageBucketsResponse"
(\ o ->
ListCoverageBucketsResponse' <$>
(o .:? "nextPageToken") <*> (o .:? "bucketWidth") <*>
(o .:? "coverageBuckets" .!= mempty))
instance ToJSON ListCoverageBucketsResponse where
toJSON ListCoverageBucketsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lcbrNextPageToken,
("bucketWidth" .=) <$> _lcbrBucketWidth,
("coverageBuckets" .=) <$> _lcbrCoverageBuckets])
newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest'
{ _tiprPermissions :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
testIAMPermissionsRequest
:: TestIAMPermissionsRequest
testIAMPermissionsRequest =
TestIAMPermissionsRequest'
{ _tiprPermissions = Nothing
}
tiprPermissions :: Lens' TestIAMPermissionsRequest [Text]
tiprPermissions
= lens _tiprPermissions
(\ s a -> s{_tiprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsRequest where
parseJSON
= withObject "TestIAMPermissionsRequest"
(\ o ->
TestIAMPermissionsRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsRequest where
toJSON TestIAMPermissionsRequest'{..}
= object
(catMaybes [("permissions" .=) <$> _tiprPermissions])
newtype ImportReadGroupSetsResponse = ImportReadGroupSetsResponse'
{ _irgsrReadGroupSetIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
importReadGroupSetsResponse
:: ImportReadGroupSetsResponse
importReadGroupSetsResponse =
ImportReadGroupSetsResponse'
{ _irgsrReadGroupSetIds = Nothing
}
irgsrReadGroupSetIds :: Lens' ImportReadGroupSetsResponse [Text]
irgsrReadGroupSetIds
= lens _irgsrReadGroupSetIds
(\ s a -> s{_irgsrReadGroupSetIds = a})
. _Default
. _Coerce
instance FromJSON ImportReadGroupSetsResponse where
parseJSON
= withObject "ImportReadGroupSetsResponse"
(\ o ->
ImportReadGroupSetsResponse' <$>
(o .:? "readGroupSetIds" .!= mempty))
instance ToJSON ImportReadGroupSetsResponse where
toJSON ImportReadGroupSetsResponse'{..}
= object
(catMaybes
[("readGroupSetIds" .=) <$> _irgsrReadGroupSetIds])
data LinearAlignment = LinearAlignment'
{ _laCigar :: !(Maybe [CigarUnit])
, _laMAppingQuality :: !(Maybe (Textual Int32))
, _laPosition :: !(Maybe Position)
} deriving (Eq,Show,Data,Typeable,Generic)
linearAlignment
:: LinearAlignment
linearAlignment =
LinearAlignment'
{ _laCigar = Nothing
, _laMAppingQuality = Nothing
, _laPosition = Nothing
}
laCigar :: Lens' LinearAlignment [CigarUnit]
laCigar
= lens _laCigar (\ s a -> s{_laCigar = a}) . _Default
. _Coerce
laMAppingQuality :: Lens' LinearAlignment (Maybe Int32)
laMAppingQuality
= lens _laMAppingQuality
(\ s a -> s{_laMAppingQuality = a})
. mapping _Coerce
laPosition :: Lens' LinearAlignment (Maybe Position)
laPosition
= lens _laPosition (\ s a -> s{_laPosition = a})
instance FromJSON LinearAlignment where
parseJSON
= withObject "LinearAlignment"
(\ o ->
LinearAlignment' <$>
(o .:? "cigar" .!= mempty) <*>
(o .:? "mappingQuality")
<*> (o .:? "position"))
instance ToJSON LinearAlignment where
toJSON LinearAlignment'{..}
= object
(catMaybes
[("cigar" .=) <$> _laCigar,
("mappingQuality" .=) <$> _laMAppingQuality,
("position" .=) <$> _laPosition])
data AnnotationSet = AnnotationSet'
{ _asReferenceSetId :: !(Maybe Text)
, _asName :: !(Maybe Text)
, _asDataSetId :: !(Maybe Text)
, _asId :: !(Maybe Text)
, _asType :: !(Maybe AnnotationSetType)
, _asSourceURI :: !(Maybe Text)
, _asInfo :: !(Maybe AnnotationSetInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSet
:: AnnotationSet
annotationSet =
AnnotationSet'
{ _asReferenceSetId = Nothing
, _asName = Nothing
, _asDataSetId = Nothing
, _asId = Nothing
, _asType = Nothing
, _asSourceURI = Nothing
, _asInfo = Nothing
}
asReferenceSetId :: Lens' AnnotationSet (Maybe Text)
asReferenceSetId
= lens _asReferenceSetId
(\ s a -> s{_asReferenceSetId = a})
asName :: Lens' AnnotationSet (Maybe Text)
asName = lens _asName (\ s a -> s{_asName = a})
asDataSetId :: Lens' AnnotationSet (Maybe Text)
asDataSetId
= lens _asDataSetId (\ s a -> s{_asDataSetId = a})
asId :: Lens' AnnotationSet (Maybe Text)
asId = lens _asId (\ s a -> s{_asId = a})
asType :: Lens' AnnotationSet (Maybe AnnotationSetType)
asType = lens _asType (\ s a -> s{_asType = a})
asSourceURI :: Lens' AnnotationSet (Maybe Text)
asSourceURI
= lens _asSourceURI (\ s a -> s{_asSourceURI = a})
asInfo :: Lens' AnnotationSet (Maybe AnnotationSetInfo)
asInfo = lens _asInfo (\ s a -> s{_asInfo = a})
instance FromJSON AnnotationSet where
parseJSON
= withObject "AnnotationSet"
(\ o ->
AnnotationSet' <$>
(o .:? "referenceSetId") <*> (o .:? "name") <*>
(o .:? "datasetId")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "sourceUri")
<*> (o .:? "info"))
instance ToJSON AnnotationSet where
toJSON AnnotationSet'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _asReferenceSetId,
("name" .=) <$> _asName,
("datasetId" .=) <$> _asDataSetId,
("id" .=) <$> _asId, ("type" .=) <$> _asType,
("sourceUri" .=) <$> _asSourceURI,
("info" .=) <$> _asInfo])
data VariantSet = VariantSet'
{ _vsReferenceSetId :: !(Maybe Text)
, _vsName :: !(Maybe Text)
, _vsDataSetId :: !(Maybe Text)
, _vsReferenceBounds :: !(Maybe [ReferenceBound])
, _vsMetadata :: !(Maybe [VariantSetMetadata])
, _vsId :: !(Maybe Text)
, _vsDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSet
:: VariantSet
variantSet =
VariantSet'
{ _vsReferenceSetId = Nothing
, _vsName = Nothing
, _vsDataSetId = Nothing
, _vsReferenceBounds = Nothing
, _vsMetadata = Nothing
, _vsId = Nothing
, _vsDescription = Nothing
}
vsReferenceSetId :: Lens' VariantSet (Maybe Text)
vsReferenceSetId
= lens _vsReferenceSetId
(\ s a -> s{_vsReferenceSetId = a})
vsName :: Lens' VariantSet (Maybe Text)
vsName = lens _vsName (\ s a -> s{_vsName = a})
vsDataSetId :: Lens' VariantSet (Maybe Text)
vsDataSetId
= lens _vsDataSetId (\ s a -> s{_vsDataSetId = a})
vsReferenceBounds :: Lens' VariantSet [ReferenceBound]
vsReferenceBounds
= lens _vsReferenceBounds
(\ s a -> s{_vsReferenceBounds = a})
. _Default
. _Coerce
vsMetadata :: Lens' VariantSet [VariantSetMetadata]
vsMetadata
= lens _vsMetadata (\ s a -> s{_vsMetadata = a}) .
_Default
. _Coerce
vsId :: Lens' VariantSet (Maybe Text)
vsId = lens _vsId (\ s a -> s{_vsId = a})
vsDescription :: Lens' VariantSet (Maybe Text)
vsDescription
= lens _vsDescription
(\ s a -> s{_vsDescription = a})
instance FromJSON VariantSet where
parseJSON
= withObject "VariantSet"
(\ o ->
VariantSet' <$>
(o .:? "referenceSetId") <*> (o .:? "name") <*>
(o .:? "datasetId")
<*> (o .:? "referenceBounds" .!= mempty)
<*> (o .:? "metadata" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "description"))
instance ToJSON VariantSet where
toJSON VariantSet'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _vsReferenceSetId,
("name" .=) <$> _vsName,
("datasetId" .=) <$> _vsDataSetId,
("referenceBounds" .=) <$> _vsReferenceBounds,
("metadata" .=) <$> _vsMetadata, ("id" .=) <$> _vsId,
("description" .=) <$> _vsDescription])
newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse'
{ _tiamprPermissions :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
testIAMPermissionsResponse
:: TestIAMPermissionsResponse
testIAMPermissionsResponse =
TestIAMPermissionsResponse'
{ _tiamprPermissions = Nothing
}
tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]
tiamprPermissions
= lens _tiamprPermissions
(\ s a -> s{_tiamprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsResponse where
parseJSON
= withObject "TestIAMPermissionsResponse"
(\ o ->
TestIAMPermissionsResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsResponse where
toJSON TestIAMPermissionsResponse'{..}
= object
(catMaybes
[("permissions" .=) <$> _tiamprPermissions])
data ListDataSetsResponse = ListDataSetsResponse'
{ _ldsrNextPageToken :: !(Maybe Text)
, _ldsrDataSets :: !(Maybe [DataSet])
} deriving (Eq,Show,Data,Typeable,Generic)
listDataSetsResponse
:: ListDataSetsResponse
listDataSetsResponse =
ListDataSetsResponse'
{ _ldsrNextPageToken = Nothing
, _ldsrDataSets = Nothing
}
ldsrNextPageToken :: Lens' ListDataSetsResponse (Maybe Text)
ldsrNextPageToken
= lens _ldsrNextPageToken
(\ s a -> s{_ldsrNextPageToken = a})
ldsrDataSets :: Lens' ListDataSetsResponse [DataSet]
ldsrDataSets
= lens _ldsrDataSets (\ s a -> s{_ldsrDataSets = a})
. _Default
. _Coerce
instance FromJSON ListDataSetsResponse where
parseJSON
= withObject "ListDataSetsResponse"
(\ o ->
ListDataSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "datasets" .!= mempty))
instance ToJSON ListDataSetsResponse where
toJSON ListDataSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ldsrNextPageToken,
("datasets" .=) <$> _ldsrDataSets])
data ImportReadGroupSetsRequest = ImportReadGroupSetsRequest'
{ _irgsrReferenceSetId :: !(Maybe Text)
, _irgsrDataSetId :: !(Maybe Text)
, _irgsrSourceURIs :: !(Maybe [Text])
, _irgsrPartitionStrategy :: !(Maybe ImportReadGroupSetsRequestPartitionStrategy)
} deriving (Eq,Show,Data,Typeable,Generic)
importReadGroupSetsRequest
:: ImportReadGroupSetsRequest
importReadGroupSetsRequest =
ImportReadGroupSetsRequest'
{ _irgsrReferenceSetId = Nothing
, _irgsrDataSetId = Nothing
, _irgsrSourceURIs = Nothing
, _irgsrPartitionStrategy = Nothing
}
irgsrReferenceSetId :: Lens' ImportReadGroupSetsRequest (Maybe Text)
irgsrReferenceSetId
= lens _irgsrReferenceSetId
(\ s a -> s{_irgsrReferenceSetId = a})
irgsrDataSetId :: Lens' ImportReadGroupSetsRequest (Maybe Text)
irgsrDataSetId
= lens _irgsrDataSetId
(\ s a -> s{_irgsrDataSetId = a})
irgsrSourceURIs :: Lens' ImportReadGroupSetsRequest [Text]
irgsrSourceURIs
= lens _irgsrSourceURIs
(\ s a -> s{_irgsrSourceURIs = a})
. _Default
. _Coerce
irgsrPartitionStrategy :: Lens' ImportReadGroupSetsRequest (Maybe ImportReadGroupSetsRequestPartitionStrategy)
irgsrPartitionStrategy
= lens _irgsrPartitionStrategy
(\ s a -> s{_irgsrPartitionStrategy = a})
instance FromJSON ImportReadGroupSetsRequest where
parseJSON
= withObject "ImportReadGroupSetsRequest"
(\ o ->
ImportReadGroupSetsRequest' <$>
(o .:? "referenceSetId") <*> (o .:? "datasetId") <*>
(o .:? "sourceUris" .!= mempty)
<*> (o .:? "partitionStrategy"))
instance ToJSON ImportReadGroupSetsRequest where
toJSON ImportReadGroupSetsRequest'{..}
= object
(catMaybes
[("referenceSetId" .=) <$> _irgsrReferenceSetId,
("datasetId" .=) <$> _irgsrDataSetId,
("sourceUris" .=) <$> _irgsrSourceURIs,
("partitionStrategy" .=) <$>
_irgsrPartitionStrategy])
data ImportVariantsRequest = ImportVariantsRequest'
{ _ivrVariantSetId :: !(Maybe Text)
, _ivrFormat :: !(Maybe ImportVariantsRequestFormat)
, _ivrInfoMergeConfig :: !(Maybe ImportVariantsRequestInfoMergeConfig)
, _ivrNormalizeReferenceNames :: !(Maybe Bool)
, _ivrSourceURIs :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
importVariantsRequest
:: ImportVariantsRequest
importVariantsRequest =
ImportVariantsRequest'
{ _ivrVariantSetId = Nothing
, _ivrFormat = Nothing
, _ivrInfoMergeConfig = Nothing
, _ivrNormalizeReferenceNames = Nothing
, _ivrSourceURIs = Nothing
}
ivrVariantSetId :: Lens' ImportVariantsRequest (Maybe Text)
ivrVariantSetId
= lens _ivrVariantSetId
(\ s a -> s{_ivrVariantSetId = a})
ivrFormat :: Lens' ImportVariantsRequest (Maybe ImportVariantsRequestFormat)
ivrFormat
= lens _ivrFormat (\ s a -> s{_ivrFormat = a})
ivrInfoMergeConfig :: Lens' ImportVariantsRequest (Maybe ImportVariantsRequestInfoMergeConfig)
ivrInfoMergeConfig
= lens _ivrInfoMergeConfig
(\ s a -> s{_ivrInfoMergeConfig = a})
ivrNormalizeReferenceNames :: Lens' ImportVariantsRequest (Maybe Bool)
ivrNormalizeReferenceNames
= lens _ivrNormalizeReferenceNames
(\ s a -> s{_ivrNormalizeReferenceNames = a})
ivrSourceURIs :: Lens' ImportVariantsRequest [Text]
ivrSourceURIs
= lens _ivrSourceURIs
(\ s a -> s{_ivrSourceURIs = a})
. _Default
. _Coerce
instance FromJSON ImportVariantsRequest where
parseJSON
= withObject "ImportVariantsRequest"
(\ o ->
ImportVariantsRequest' <$>
(o .:? "variantSetId") <*> (o .:? "format") <*>
(o .:? "infoMergeConfig")
<*> (o .:? "normalizeReferenceNames")
<*> (o .:? "sourceUris" .!= mempty))
instance ToJSON ImportVariantsRequest where
toJSON ImportVariantsRequest'{..}
= object
(catMaybes
[("variantSetId" .=) <$> _ivrVariantSetId,
("format" .=) <$> _ivrFormat,
("infoMergeConfig" .=) <$> _ivrInfoMergeConfig,
("normalizeReferenceNames" .=) <$>
_ivrNormalizeReferenceNames,
("sourceUris" .=) <$> _ivrSourceURIs])
data ExternalId = ExternalId'
{ _eiSourceName :: !(Maybe Text)
, _eiId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
externalId
:: ExternalId
externalId =
ExternalId'
{ _eiSourceName = Nothing
, _eiId = Nothing
}
eiSourceName :: Lens' ExternalId (Maybe Text)
eiSourceName
= lens _eiSourceName (\ s a -> s{_eiSourceName = a})
eiId :: Lens' ExternalId (Maybe Text)
eiId = lens _eiId (\ s a -> s{_eiId = a})
instance FromJSON ExternalId where
parseJSON
= withObject "ExternalId"
(\ o ->
ExternalId' <$>
(o .:? "sourceName") <*> (o .:? "id"))
instance ToJSON ExternalId where
toJSON ExternalId'{..}
= object
(catMaybes
[("sourceName" .=) <$> _eiSourceName,
("id" .=) <$> _eiId])
data CigarUnit = CigarUnit'
{ _cuOperation :: !(Maybe CigarUnitOperation)
, _cuOperationLength :: !(Maybe (Textual Int64))
, _cuReferenceSequence :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
cigarUnit
:: CigarUnit
cigarUnit =
CigarUnit'
{ _cuOperation = Nothing
, _cuOperationLength = Nothing
, _cuReferenceSequence = Nothing
}
cuOperation :: Lens' CigarUnit (Maybe CigarUnitOperation)
cuOperation
= lens _cuOperation (\ s a -> s{_cuOperation = a})
cuOperationLength :: Lens' CigarUnit (Maybe Int64)
cuOperationLength
= lens _cuOperationLength
(\ s a -> s{_cuOperationLength = a})
. mapping _Coerce
cuReferenceSequence :: Lens' CigarUnit (Maybe Text)
cuReferenceSequence
= lens _cuReferenceSequence
(\ s a -> s{_cuReferenceSequence = a})
instance FromJSON CigarUnit where
parseJSON
= withObject "CigarUnit"
(\ o ->
CigarUnit' <$>
(o .:? "operation") <*> (o .:? "operationLength") <*>
(o .:? "referenceSequence"))
instance ToJSON CigarUnit where
toJSON CigarUnit'{..}
= object
(catMaybes
[("operation" .=) <$> _cuOperation,
("operationLength" .=) <$> _cuOperationLength,
("referenceSequence" .=) <$> _cuReferenceSequence])
data Policy = Policy'
{ _polEtag :: !(Maybe Bytes)
, _polVersion :: !(Maybe (Textual Int32))
, _polBindings :: !(Maybe [Binding])
} deriving (Eq,Show,Data,Typeable,Generic)
policy
:: Policy
policy =
Policy'
{ _polEtag = Nothing
, _polVersion = Nothing
, _polBindings = Nothing
}
polEtag :: Lens' Policy (Maybe ByteString)
polEtag
= lens _polEtag (\ s a -> s{_polEtag = a}) .
mapping _Bytes
polVersion :: Lens' Policy (Maybe Int32)
polVersion
= lens _polVersion (\ s a -> s{_polVersion = a}) .
mapping _Coerce
polBindings :: Lens' Policy [Binding]
polBindings
= lens _polBindings (\ s a -> s{_polBindings = a}) .
_Default
. _Coerce
instance FromJSON Policy where
parseJSON
= withObject "Policy"
(\ o ->
Policy' <$>
(o .:? "etag") <*> (o .:? "version") <*>
(o .:? "bindings" .!= mempty))
instance ToJSON Policy where
toJSON Policy'{..}
= object
(catMaybes
[("etag" .=) <$> _polEtag,
("version" .=) <$> _polVersion,
("bindings" .=) <$> _polBindings])
data ExportVariantSetRequest = ExportVariantSetRequest'
{ _evsrBigQueryDataSet :: !(Maybe Text)
, _evsrBigQueryTable :: !(Maybe Text)
, _evsrFormat :: !(Maybe ExportVariantSetRequestFormat)
, _evsrCallSetIds :: !(Maybe [Text])
, _evsrProjectId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
exportVariantSetRequest
:: ExportVariantSetRequest
exportVariantSetRequest =
ExportVariantSetRequest'
{ _evsrBigQueryDataSet = Nothing
, _evsrBigQueryTable = Nothing
, _evsrFormat = Nothing
, _evsrCallSetIds = Nothing
, _evsrProjectId = Nothing
}
evsrBigQueryDataSet :: Lens' ExportVariantSetRequest (Maybe Text)
evsrBigQueryDataSet
= lens _evsrBigQueryDataSet
(\ s a -> s{_evsrBigQueryDataSet = a})
evsrBigQueryTable :: Lens' ExportVariantSetRequest (Maybe Text)
evsrBigQueryTable
= lens _evsrBigQueryTable
(\ s a -> s{_evsrBigQueryTable = a})
evsrFormat :: Lens' ExportVariantSetRequest (Maybe ExportVariantSetRequestFormat)
evsrFormat
= lens _evsrFormat (\ s a -> s{_evsrFormat = a})
evsrCallSetIds :: Lens' ExportVariantSetRequest [Text]
evsrCallSetIds
= lens _evsrCallSetIds
(\ s a -> s{_evsrCallSetIds = a})
. _Default
. _Coerce
evsrProjectId :: Lens' ExportVariantSetRequest (Maybe Text)
evsrProjectId
= lens _evsrProjectId
(\ s a -> s{_evsrProjectId = a})
instance FromJSON ExportVariantSetRequest where
parseJSON
= withObject "ExportVariantSetRequest"
(\ o ->
ExportVariantSetRequest' <$>
(o .:? "bigqueryDataset") <*> (o .:? "bigqueryTable")
<*> (o .:? "format")
<*> (o .:? "callSetIds" .!= mempty)
<*> (o .:? "projectId"))
instance ToJSON ExportVariantSetRequest where
toJSON ExportVariantSetRequest'{..}
= object
(catMaybes
[("bigqueryDataset" .=) <$> _evsrBigQueryDataSet,
("bigqueryTable" .=) <$> _evsrBigQueryTable,
("format" .=) <$> _evsrFormat,
("callSetIds" .=) <$> _evsrCallSetIds,
("projectId" .=) <$> _evsrProjectId])
data OperationMetadata = OperationMetadata'
{ _omClientId :: !(Maybe Text)
, _omStartTime :: !(Maybe DateTime')
, _omEvents :: !(Maybe [OperationEvent])
, _omEndTime :: !(Maybe DateTime')
, _omLabels :: !(Maybe OperationMetadataLabels)
, _omProjectId :: !(Maybe Text)
, _omCreateTime :: !(Maybe DateTime')
, _omRuntimeMetadata :: !(Maybe OperationMetadataRuntimeMetadata)
, _omRequest :: !(Maybe OperationMetadataRequest)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadata
:: OperationMetadata
operationMetadata =
OperationMetadata'
{ _omClientId = Nothing
, _omStartTime = Nothing
, _omEvents = Nothing
, _omEndTime = Nothing
, _omLabels = Nothing
, _omProjectId = Nothing
, _omCreateTime = Nothing
, _omRuntimeMetadata = Nothing
, _omRequest = Nothing
}
omClientId :: Lens' OperationMetadata (Maybe Text)
omClientId
= lens _omClientId (\ s a -> s{_omClientId = a})
omStartTime :: Lens' OperationMetadata (Maybe UTCTime)
omStartTime
= lens _omStartTime (\ s a -> s{_omStartTime = a}) .
mapping _DateTime
omEvents :: Lens' OperationMetadata [OperationEvent]
omEvents
= lens _omEvents (\ s a -> s{_omEvents = a}) .
_Default
. _Coerce
omEndTime :: Lens' OperationMetadata (Maybe UTCTime)
omEndTime
= lens _omEndTime (\ s a -> s{_omEndTime = a}) .
mapping _DateTime
omLabels :: Lens' OperationMetadata (Maybe OperationMetadataLabels)
omLabels = lens _omLabels (\ s a -> s{_omLabels = a})
omProjectId :: Lens' OperationMetadata (Maybe Text)
omProjectId
= lens _omProjectId (\ s a -> s{_omProjectId = a})
omCreateTime :: Lens' OperationMetadata (Maybe UTCTime)
omCreateTime
= lens _omCreateTime (\ s a -> s{_omCreateTime = a})
. mapping _DateTime
omRuntimeMetadata :: Lens' OperationMetadata (Maybe OperationMetadataRuntimeMetadata)
omRuntimeMetadata
= lens _omRuntimeMetadata
(\ s a -> s{_omRuntimeMetadata = a})
omRequest :: Lens' OperationMetadata (Maybe OperationMetadataRequest)
omRequest
= lens _omRequest (\ s a -> s{_omRequest = a})
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o ->
OperationMetadata' <$>
(o .:? "clientId") <*> (o .:? "startTime") <*>
(o .:? "events" .!= mempty)
<*> (o .:? "endTime")
<*> (o .:? "labels")
<*> (o .:? "projectId")
<*> (o .:? "createTime")
<*> (o .:? "runtimeMetadata")
<*> (o .:? "request"))
instance ToJSON OperationMetadata where
toJSON OperationMetadata'{..}
= object
(catMaybes
[("clientId" .=) <$> _omClientId,
("startTime" .=) <$> _omStartTime,
("events" .=) <$> _omEvents,
("endTime" .=) <$> _omEndTime,
("labels" .=) <$> _omLabels,
("projectId" .=) <$> _omProjectId,
("createTime" .=) <$> _omCreateTime,
("runtimeMetadata" .=) <$> _omRuntimeMetadata,
("request" .=) <$> _omRequest])
data SearchAnnotationsRequest = SearchAnnotationsRequest'
{ _sarStart :: !(Maybe (Textual Int64))
, _sarReferenceId :: !(Maybe Text)
, _sarReferenceName :: !(Maybe Text)
, _sarEnd :: !(Maybe (Textual Int64))
, _sarPageToken :: !(Maybe Text)
, _sarAnnotationSetIds :: !(Maybe [Text])
, _sarPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchAnnotationsRequest
:: SearchAnnotationsRequest
searchAnnotationsRequest =
SearchAnnotationsRequest'
{ _sarStart = Nothing
, _sarReferenceId = Nothing
, _sarReferenceName = Nothing
, _sarEnd = Nothing
, _sarPageToken = Nothing
, _sarAnnotationSetIds = Nothing
, _sarPageSize = Nothing
}
sarStart :: Lens' SearchAnnotationsRequest (Maybe Int64)
sarStart
= lens _sarStart (\ s a -> s{_sarStart = a}) .
mapping _Coerce
sarReferenceId :: Lens' SearchAnnotationsRequest (Maybe Text)
sarReferenceId
= lens _sarReferenceId
(\ s a -> s{_sarReferenceId = a})
sarReferenceName :: Lens' SearchAnnotationsRequest (Maybe Text)
sarReferenceName
= lens _sarReferenceName
(\ s a -> s{_sarReferenceName = a})
sarEnd :: Lens' SearchAnnotationsRequest (Maybe Int64)
sarEnd
= lens _sarEnd (\ s a -> s{_sarEnd = a}) .
mapping _Coerce
sarPageToken :: Lens' SearchAnnotationsRequest (Maybe Text)
sarPageToken
= lens _sarPageToken (\ s a -> s{_sarPageToken = a})
sarAnnotationSetIds :: Lens' SearchAnnotationsRequest [Text]
sarAnnotationSetIds
= lens _sarAnnotationSetIds
(\ s a -> s{_sarAnnotationSetIds = a})
. _Default
. _Coerce
sarPageSize :: Lens' SearchAnnotationsRequest (Maybe Int32)
sarPageSize
= lens _sarPageSize (\ s a -> s{_sarPageSize = a}) .
mapping _Coerce
instance FromJSON SearchAnnotationsRequest where
parseJSON
= withObject "SearchAnnotationsRequest"
(\ o ->
SearchAnnotationsRequest' <$>
(o .:? "start") <*> (o .:? "referenceId") <*>
(o .:? "referenceName")
<*> (o .:? "end")
<*> (o .:? "pageToken")
<*> (o .:? "annotationSetIds" .!= mempty)
<*> (o .:? "pageSize"))
instance ToJSON SearchAnnotationsRequest where
toJSON SearchAnnotationsRequest'{..}
= object
(catMaybes
[("start" .=) <$> _sarStart,
("referenceId" .=) <$> _sarReferenceId,
("referenceName" .=) <$> _sarReferenceName,
("end" .=) <$> _sarEnd,
("pageToken" .=) <$> _sarPageToken,
("annotationSetIds" .=) <$> _sarAnnotationSetIds,
("pageSize" .=) <$> _sarPageSize])
data SearchVariantSetsResponse = SearchVariantSetsResponse'
{ _svsrNextPageToken :: !(Maybe Text)
, _svsrVariantSets :: !(Maybe [VariantSet])
} deriving (Eq,Show,Data,Typeable,Generic)
searchVariantSetsResponse
:: SearchVariantSetsResponse
searchVariantSetsResponse =
SearchVariantSetsResponse'
{ _svsrNextPageToken = Nothing
, _svsrVariantSets = Nothing
}
svsrNextPageToken :: Lens' SearchVariantSetsResponse (Maybe Text)
svsrNextPageToken
= lens _svsrNextPageToken
(\ s a -> s{_svsrNextPageToken = a})
svsrVariantSets :: Lens' SearchVariantSetsResponse [VariantSet]
svsrVariantSets
= lens _svsrVariantSets
(\ s a -> s{_svsrVariantSets = a})
. _Default
. _Coerce
instance FromJSON SearchVariantSetsResponse where
parseJSON
= withObject "SearchVariantSetsResponse"
(\ o ->
SearchVariantSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "variantSets" .!= mempty))
instance ToJSON SearchVariantSetsResponse where
toJSON SearchVariantSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _svsrNextPageToken,
("variantSets" .=) <$> _svsrVariantSets])
data SearchVariantsRequest = SearchVariantsRequest'
{ _svrStart :: !(Maybe (Textual Int64))
, _svrCallSetIds :: !(Maybe [Text])
, _svrReferenceName :: !(Maybe Text)
, _svrEnd :: !(Maybe (Textual Int64))
, _svrMaxCalls :: !(Maybe (Textual Int32))
, _svrPageToken :: !(Maybe Text)
, _svrVariantName :: !(Maybe Text)
, _svrVariantSetIds :: !(Maybe [Text])
, _svrPageSize :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
searchVariantsRequest
:: SearchVariantsRequest
searchVariantsRequest =
SearchVariantsRequest'
{ _svrStart = Nothing
, _svrCallSetIds = Nothing
, _svrReferenceName = Nothing
, _svrEnd = Nothing
, _svrMaxCalls = Nothing
, _svrPageToken = Nothing
, _svrVariantName = Nothing
, _svrVariantSetIds = Nothing
, _svrPageSize = Nothing
}
svrStart :: Lens' SearchVariantsRequest (Maybe Int64)
svrStart
= lens _svrStart (\ s a -> s{_svrStart = a}) .
mapping _Coerce
svrCallSetIds :: Lens' SearchVariantsRequest [Text]
svrCallSetIds
= lens _svrCallSetIds
(\ s a -> s{_svrCallSetIds = a})
. _Default
. _Coerce
svrReferenceName :: Lens' SearchVariantsRequest (Maybe Text)
svrReferenceName
= lens _svrReferenceName
(\ s a -> s{_svrReferenceName = a})
svrEnd :: Lens' SearchVariantsRequest (Maybe Int64)
svrEnd
= lens _svrEnd (\ s a -> s{_svrEnd = a}) .
mapping _Coerce
svrMaxCalls :: Lens' SearchVariantsRequest (Maybe Int32)
svrMaxCalls
= lens _svrMaxCalls (\ s a -> s{_svrMaxCalls = a}) .
mapping _Coerce
svrPageToken :: Lens' SearchVariantsRequest (Maybe Text)
svrPageToken
= lens _svrPageToken (\ s a -> s{_svrPageToken = a})
svrVariantName :: Lens' SearchVariantsRequest (Maybe Text)
svrVariantName
= lens _svrVariantName
(\ s a -> s{_svrVariantName = a})
svrVariantSetIds :: Lens' SearchVariantsRequest [Text]
svrVariantSetIds
= lens _svrVariantSetIds
(\ s a -> s{_svrVariantSetIds = a})
. _Default
. _Coerce
svrPageSize :: Lens' SearchVariantsRequest (Maybe Int32)
svrPageSize
= lens _svrPageSize (\ s a -> s{_svrPageSize = a}) .
mapping _Coerce
instance FromJSON SearchVariantsRequest where
parseJSON
= withObject "SearchVariantsRequest"
(\ o ->
SearchVariantsRequest' <$>
(o .:? "start") <*> (o .:? "callSetIds" .!= mempty)
<*> (o .:? "referenceName")
<*> (o .:? "end")
<*> (o .:? "maxCalls")
<*> (o .:? "pageToken")
<*> (o .:? "variantName")
<*> (o .:? "variantSetIds" .!= mempty)
<*> (o .:? "pageSize"))
instance ToJSON SearchVariantsRequest where
toJSON SearchVariantsRequest'{..}
= object
(catMaybes
[("start" .=) <$> _svrStart,
("callSetIds" .=) <$> _svrCallSetIds,
("referenceName" .=) <$> _svrReferenceName,
("end" .=) <$> _svrEnd,
("maxCalls" .=) <$> _svrMaxCalls,
("pageToken" .=) <$> _svrPageToken,
("variantName" .=) <$> _svrVariantName,
("variantSetIds" .=) <$> _svrVariantSetIds,
("pageSize" .=) <$> _svrPageSize])
newtype AnnotationSetInfo = AnnotationSetInfo'
{ _asiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
annotationSetInfo
:: HashMap Text [JSONValue]
-> AnnotationSetInfo
annotationSetInfo pAsiAddtional_ =
AnnotationSetInfo'
{ _asiAddtional = _Coerce # pAsiAddtional_
}
asiAddtional :: Lens' AnnotationSetInfo (HashMap Text [JSONValue])
asiAddtional
= lens _asiAddtional (\ s a -> s{_asiAddtional = a})
. _Coerce
instance FromJSON AnnotationSetInfo where
parseJSON
= withObject "AnnotationSetInfo"
(\ o -> AnnotationSetInfo' <$> (parseJSONObject o))
instance ToJSON AnnotationSetInfo where
toJSON = toJSON . _asiAddtional
data ComputeEngine = ComputeEngine'
{ _ceZone :: !(Maybe Text)
, _ceDiskNames :: !(Maybe [Text])
, _ceMachineType :: !(Maybe Text)
, _ceInstanceName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
computeEngine
:: ComputeEngine
computeEngine =
ComputeEngine'
{ _ceZone = Nothing
, _ceDiskNames = Nothing
, _ceMachineType = Nothing
, _ceInstanceName = Nothing
}
ceZone :: Lens' ComputeEngine (Maybe Text)
ceZone = lens _ceZone (\ s a -> s{_ceZone = a})
ceDiskNames :: Lens' ComputeEngine [Text]
ceDiskNames
= lens _ceDiskNames (\ s a -> s{_ceDiskNames = a}) .
_Default
. _Coerce
ceMachineType :: Lens' ComputeEngine (Maybe Text)
ceMachineType
= lens _ceMachineType
(\ s a -> s{_ceMachineType = a})
ceInstanceName :: Lens' ComputeEngine (Maybe Text)
ceInstanceName
= lens _ceInstanceName
(\ s a -> s{_ceInstanceName = a})
instance FromJSON ComputeEngine where
parseJSON
= withObject "ComputeEngine"
(\ o ->
ComputeEngine' <$>
(o .:? "zone") <*> (o .:? "diskNames" .!= mempty) <*>
(o .:? "machineType")
<*> (o .:? "instanceName"))
instance ToJSON ComputeEngine where
toJSON ComputeEngine'{..}
= object
(catMaybes
[("zone" .=) <$> _ceZone,
("diskNames" .=) <$> _ceDiskNames,
("machineType" .=) <$> _ceMachineType,
("instanceName" .=) <$> _ceInstanceName])
data SearchAnnotationSetsResponse = SearchAnnotationSetsResponse'
{ _sasrNextPageToken :: !(Maybe Text)
, _sasrAnnotationSets :: !(Maybe [AnnotationSet])
} deriving (Eq,Show,Data,Typeable,Generic)
searchAnnotationSetsResponse
:: SearchAnnotationSetsResponse
searchAnnotationSetsResponse =
SearchAnnotationSetsResponse'
{ _sasrNextPageToken = Nothing
, _sasrAnnotationSets = Nothing
}
sasrNextPageToken :: Lens' SearchAnnotationSetsResponse (Maybe Text)
sasrNextPageToken
= lens _sasrNextPageToken
(\ s a -> s{_sasrNextPageToken = a})
sasrAnnotationSets :: Lens' SearchAnnotationSetsResponse [AnnotationSet]
sasrAnnotationSets
= lens _sasrAnnotationSets
(\ s a -> s{_sasrAnnotationSets = a})
. _Default
. _Coerce
instance FromJSON SearchAnnotationSetsResponse where
parseJSON
= withObject "SearchAnnotationSetsResponse"
(\ o ->
SearchAnnotationSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "annotationSets" .!= mempty))
instance ToJSON SearchAnnotationSetsResponse where
toJSON SearchAnnotationSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _sasrNextPageToken,
("annotationSets" .=) <$> _sasrAnnotationSets])
newtype CallSetInfo = CallSetInfo'
{ _csiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
callSetInfo
:: HashMap Text [JSONValue]
-> CallSetInfo
callSetInfo pCsiAddtional_ =
CallSetInfo'
{ _csiAddtional = _Coerce # pCsiAddtional_
}
csiAddtional :: Lens' CallSetInfo (HashMap Text [JSONValue])
csiAddtional
= lens _csiAddtional (\ s a -> s{_csiAddtional = a})
. _Coerce
instance FromJSON CallSetInfo where
parseJSON
= withObject "CallSetInfo"
(\ o -> CallSetInfo' <$> (parseJSONObject o))
instance ToJSON CallSetInfo where
toJSON = toJSON . _csiAddtional
newtype VariantSetMetadataInfo = VariantSetMetadataInfo'
{ _vsmiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetMetadataInfo
:: HashMap Text [JSONValue]
-> VariantSetMetadataInfo
variantSetMetadataInfo pVsmiAddtional_ =
VariantSetMetadataInfo'
{ _vsmiAddtional = _Coerce # pVsmiAddtional_
}
vsmiAddtional :: Lens' VariantSetMetadataInfo (HashMap Text [JSONValue])
vsmiAddtional
= lens _vsmiAddtional
(\ s a -> s{_vsmiAddtional = a})
. _Coerce
instance FromJSON VariantSetMetadataInfo where
parseJSON
= withObject "VariantSetMetadataInfo"
(\ o ->
VariantSetMetadataInfo' <$> (parseJSONObject o))
instance ToJSON VariantSetMetadataInfo where
toJSON = toJSON . _vsmiAddtional
newtype OperationResponse = OperationResponse'
{ _orAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationResponse
:: HashMap Text JSONValue
-> OperationResponse
operationResponse pOrAddtional_ =
OperationResponse'
{ _orAddtional = _Coerce # pOrAddtional_
}
orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)
orAddtional
= lens _orAddtional (\ s a -> s{_orAddtional = a}) .
_Coerce
instance FromJSON OperationResponse where
parseJSON
= withObject "OperationResponse"
(\ o -> OperationResponse' <$> (parseJSONObject o))
instance ToJSON OperationResponse where
toJSON = toJSON . _orAddtional
data Transcript = Transcript'
{ _tGeneId :: !(Maybe Text)
, _tCodingSequence :: !(Maybe CodingSequence)
, _tExons :: !(Maybe [Exon])
} deriving (Eq,Show,Data,Typeable,Generic)
transcript
:: Transcript
transcript =
Transcript'
{ _tGeneId = Nothing
, _tCodingSequence = Nothing
, _tExons = Nothing
}
tGeneId :: Lens' Transcript (Maybe Text)
tGeneId = lens _tGeneId (\ s a -> s{_tGeneId = a})
tCodingSequence :: Lens' Transcript (Maybe CodingSequence)
tCodingSequence
= lens _tCodingSequence
(\ s a -> s{_tCodingSequence = a})
tExons :: Lens' Transcript [Exon]
tExons
= lens _tExons (\ s a -> s{_tExons = a}) . _Default .
_Coerce
instance FromJSON Transcript where
parseJSON
= withObject "Transcript"
(\ o ->
Transcript' <$>
(o .:? "geneId") <*> (o .:? "codingSequence") <*>
(o .:? "exons" .!= mempty))
instance ToJSON Transcript where
toJSON Transcript'{..}
= object
(catMaybes
[("geneId" .=) <$> _tGeneId,
("codingSequence" .=) <$> _tCodingSequence,
("exons" .=) <$> _tExons])
data OperationEvent = OperationEvent'
{ _oeStartTime :: !(Maybe DateTime')
, _oeEndTime :: !(Maybe DateTime')
, _oeDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationEvent
:: OperationEvent
operationEvent =
OperationEvent'
{ _oeStartTime = Nothing
, _oeEndTime = Nothing
, _oeDescription = Nothing
}
oeStartTime :: Lens' OperationEvent (Maybe UTCTime)
oeStartTime
= lens _oeStartTime (\ s a -> s{_oeStartTime = a}) .
mapping _DateTime
oeEndTime :: Lens' OperationEvent (Maybe UTCTime)
oeEndTime
= lens _oeEndTime (\ s a -> s{_oeEndTime = a}) .
mapping _DateTime
oeDescription :: Lens' OperationEvent (Maybe Text)
oeDescription
= lens _oeDescription
(\ s a -> s{_oeDescription = a})
instance FromJSON OperationEvent where
parseJSON
= withObject "OperationEvent"
(\ o ->
OperationEvent' <$>
(o .:? "startTime") <*> (o .:? "endTime") <*>
(o .:? "description"))
instance ToJSON OperationEvent where
toJSON OperationEvent'{..}
= object
(catMaybes
[("startTime" .=) <$> _oeStartTime,
("endTime" .=) <$> _oeEndTime,
("description" .=) <$> _oeDescription])
data ReferenceBound = ReferenceBound'
{ _rbUpperBound :: !(Maybe (Textual Int64))
, _rbReferenceName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referenceBound
:: ReferenceBound
referenceBound =
ReferenceBound'
{ _rbUpperBound = Nothing
, _rbReferenceName = Nothing
}
rbUpperBound :: Lens' ReferenceBound (Maybe Int64)
rbUpperBound
= lens _rbUpperBound (\ s a -> s{_rbUpperBound = a})
. mapping _Coerce
rbReferenceName :: Lens' ReferenceBound (Maybe Text)
rbReferenceName
= lens _rbReferenceName
(\ s a -> s{_rbReferenceName = a})
instance FromJSON ReferenceBound where
parseJSON
= withObject "ReferenceBound"
(\ o ->
ReferenceBound' <$>
(o .:? "upperBound") <*> (o .:? "referenceName"))
instance ToJSON ReferenceBound where
toJSON ReferenceBound'{..}
= object
(catMaybes
[("upperBound" .=) <$> _rbUpperBound,
("referenceName" .=) <$> _rbReferenceName])
data UndeleteDataSetRequest =
UndeleteDataSetRequest'
deriving (Eq,Show,Data,Typeable,Generic)
undeleteDataSetRequest
:: UndeleteDataSetRequest
undeleteDataSetRequest = UndeleteDataSetRequest'
instance FromJSON UndeleteDataSetRequest where
parseJSON
= withObject "UndeleteDataSetRequest"
(\ o -> pure UndeleteDataSetRequest')
instance ToJSON UndeleteDataSetRequest where
toJSON = const emptyObject
data Binding = Binding'
{ _bMembers :: !(Maybe [Text])
, _bRole :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
binding
:: Binding
binding =
Binding'
{ _bMembers = Nothing
, _bRole = Nothing
}
bMembers :: Lens' Binding [Text]
bMembers
= lens _bMembers (\ s a -> s{_bMembers = a}) .
_Default
. _Coerce
bRole :: Lens' Binding (Maybe Text)
bRole = lens _bRole (\ s a -> s{_bRole = a})
instance FromJSON Binding where
parseJSON
= withObject "Binding"
(\ o ->
Binding' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role"))
instance ToJSON Binding where
toJSON Binding'{..}
= object
(catMaybes
[("members" .=) <$> _bMembers,
("role" .=) <$> _bRole])
data Position = Position'
{ _pReverseStrand :: !(Maybe Bool)
, _pReferenceName :: !(Maybe Text)
, _pPosition :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
position
:: Position
position =
Position'
{ _pReverseStrand = Nothing
, _pReferenceName = Nothing
, _pPosition = Nothing
}
pReverseStrand :: Lens' Position (Maybe Bool)
pReverseStrand
= lens _pReverseStrand
(\ s a -> s{_pReverseStrand = a})
pReferenceName :: Lens' Position (Maybe Text)
pReferenceName
= lens _pReferenceName
(\ s a -> s{_pReferenceName = a})
pPosition :: Lens' Position (Maybe Int64)
pPosition
= lens _pPosition (\ s a -> s{_pPosition = a}) .
mapping _Coerce
instance FromJSON Position where
parseJSON
= withObject "Position"
(\ o ->
Position' <$>
(o .:? "reverseStrand") <*> (o .:? "referenceName")
<*> (o .:? "position"))
instance ToJSON Position where
toJSON Position'{..}
= object
(catMaybes
[("reverseStrand" .=) <$> _pReverseStrand,
("referenceName" .=) <$> _pReferenceName,
("position" .=) <$> _pPosition])
newtype RuntimeMetadata = RuntimeMetadata'
{ _rmComputeEngine :: Maybe ComputeEngine
} deriving (Eq,Show,Data,Typeable,Generic)
runtimeMetadata
:: RuntimeMetadata
runtimeMetadata =
RuntimeMetadata'
{ _rmComputeEngine = Nothing
}
rmComputeEngine :: Lens' RuntimeMetadata (Maybe ComputeEngine)
rmComputeEngine
= lens _rmComputeEngine
(\ s a -> s{_rmComputeEngine = a})
instance FromJSON RuntimeMetadata where
parseJSON
= withObject "RuntimeMetadata"
(\ o -> RuntimeMetadata' <$> (o .:? "computeEngine"))
instance ToJSON RuntimeMetadata where
toJSON RuntimeMetadata'{..}
= object
(catMaybes
[("computeEngine" .=) <$> _rmComputeEngine])
data SearchReadGroupSetsResponse = SearchReadGroupSetsResponse'
{ _srgsrNextPageToken :: !(Maybe Text)
, _srgsrReadGroupSets :: !(Maybe [ReadGroupSet])
} deriving (Eq,Show,Data,Typeable,Generic)
searchReadGroupSetsResponse
:: SearchReadGroupSetsResponse
searchReadGroupSetsResponse =
SearchReadGroupSetsResponse'
{ _srgsrNextPageToken = Nothing
, _srgsrReadGroupSets = Nothing
}
srgsrNextPageToken :: Lens' SearchReadGroupSetsResponse (Maybe Text)
srgsrNextPageToken
= lens _srgsrNextPageToken
(\ s a -> s{_srgsrNextPageToken = a})
srgsrReadGroupSets :: Lens' SearchReadGroupSetsResponse [ReadGroupSet]
srgsrReadGroupSets
= lens _srgsrReadGroupSets
(\ s a -> s{_srgsrReadGroupSets = a})
. _Default
. _Coerce
instance FromJSON SearchReadGroupSetsResponse where
parseJSON
= withObject "SearchReadGroupSetsResponse"
(\ o ->
SearchReadGroupSetsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "readGroupSets" .!= mempty))
instance ToJSON SearchReadGroupSetsResponse where
toJSON SearchReadGroupSetsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _srgsrNextPageToken,
("readGroupSets" .=) <$> _srgsrReadGroupSets])
newtype ReadGroupSetInfo = ReadGroupSetInfo'
{ _rgsiAddtional :: HashMap Text [JSONValue]
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetInfo
:: HashMap Text [JSONValue]
-> ReadGroupSetInfo
readGroupSetInfo pRgsiAddtional_ =
ReadGroupSetInfo'
{ _rgsiAddtional = _Coerce # pRgsiAddtional_
}
rgsiAddtional :: Lens' ReadGroupSetInfo (HashMap Text [JSONValue])
rgsiAddtional
= lens _rgsiAddtional
(\ s a -> s{_rgsiAddtional = a})
. _Coerce
instance FromJSON ReadGroupSetInfo where
parseJSON
= withObject "ReadGroupSetInfo"
(\ o -> ReadGroupSetInfo' <$> (parseJSONObject o))
instance ToJSON ReadGroupSetInfo where
toJSON = toJSON . _rgsiAddtional
data ReferenceSet = ReferenceSet'
{ _rsSourceAccessions :: !(Maybe [Text])
, _rsReferenceIds :: !(Maybe [Text])
, _rsMD5checksum :: !(Maybe Text)
, _rsNcbiTaxonId :: !(Maybe (Textual Int32))
, _rsId :: !(Maybe Text)
, _rsAssemblyId :: !(Maybe Text)
, _rsSourceURI :: !(Maybe Text)
, _rsDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referenceSet
:: ReferenceSet
referenceSet =
ReferenceSet'
{ _rsSourceAccessions = Nothing
, _rsReferenceIds = Nothing
, _rsMD5checksum = Nothing
, _rsNcbiTaxonId = Nothing
, _rsId = Nothing
, _rsAssemblyId = Nothing
, _rsSourceURI = Nothing
, _rsDescription = Nothing
}
rsSourceAccessions :: Lens' ReferenceSet [Text]
rsSourceAccessions
= lens _rsSourceAccessions
(\ s a -> s{_rsSourceAccessions = a})
. _Default
. _Coerce
rsReferenceIds :: Lens' ReferenceSet [Text]
rsReferenceIds
= lens _rsReferenceIds
(\ s a -> s{_rsReferenceIds = a})
. _Default
. _Coerce
rsMD5checksum :: Lens' ReferenceSet (Maybe Text)
rsMD5checksum
= lens _rsMD5checksum
(\ s a -> s{_rsMD5checksum = a})
rsNcbiTaxonId :: Lens' ReferenceSet (Maybe Int32)
rsNcbiTaxonId
= lens _rsNcbiTaxonId
(\ s a -> s{_rsNcbiTaxonId = a})
. mapping _Coerce
rsId :: Lens' ReferenceSet (Maybe Text)
rsId = lens _rsId (\ s a -> s{_rsId = a})
rsAssemblyId :: Lens' ReferenceSet (Maybe Text)
rsAssemblyId
= lens _rsAssemblyId (\ s a -> s{_rsAssemblyId = a})
rsSourceURI :: Lens' ReferenceSet (Maybe Text)
rsSourceURI
= lens _rsSourceURI (\ s a -> s{_rsSourceURI = a})
rsDescription :: Lens' ReferenceSet (Maybe Text)
rsDescription
= lens _rsDescription
(\ s a -> s{_rsDescription = a})
instance FromJSON ReferenceSet where
parseJSON
= withObject "ReferenceSet"
(\ o ->
ReferenceSet' <$>
(o .:? "sourceAccessions" .!= mempty) <*>
(o .:? "referenceIds" .!= mempty)
<*> (o .:? "md5checksum")
<*> (o .:? "ncbiTaxonId")
<*> (o .:? "id")
<*> (o .:? "assemblyId")
<*> (o .:? "sourceUri")
<*> (o .:? "description"))
instance ToJSON ReferenceSet where
toJSON ReferenceSet'{..}
= object
(catMaybes
[("sourceAccessions" .=) <$> _rsSourceAccessions,
("referenceIds" .=) <$> _rsReferenceIds,
("md5checksum" .=) <$> _rsMD5checksum,
("ncbiTaxonId" .=) <$> _rsNcbiTaxonId,
("id" .=) <$> _rsId,
("assemblyId" .=) <$> _rsAssemblyId,
("sourceUri" .=) <$> _rsSourceURI,
("description" .=) <$> _rsDescription])