module Network.Google.Genomics.Types.Product where
import Network.Google.Genomics.Types.Sum
import Network.Google.Prelude
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 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 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 Text)
} 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 Text)
dsCreateTime
= lens _dsCreateTime (\ s a -> s{_dsCreateTime = a})
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])
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 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 Text)
, _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 Text)
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 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 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])
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])
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 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])
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 VariantSet = VariantSet
{ _vsDataSetId :: !(Maybe Text)
, _vsReferenceBounds :: !(Maybe [ReferenceBound])
, _vsMetadata :: !(Maybe [VariantSetMetadata])
, _vsId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSet
:: VariantSet
variantSet =
VariantSet
{ _vsDataSetId = Nothing
, _vsReferenceBounds = Nothing
, _vsMetadata = Nothing
, _vsId = Nothing
}
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})
instance FromJSON VariantSet where
parseJSON
= withObject "VariantSet"
(\ o ->
VariantSet <$>
(o .:? "datasetId") <*>
(o .:? "referenceBounds" .!= mempty)
<*> (o .:? "metadata" .!= mempty)
<*> (o .:? "id"))
instance ToJSON VariantSet where
toJSON VariantSet{..}
= object
(catMaybes
[("datasetId" .=) <$> _vsDataSetId,
("referenceBounds" .=) <$> _vsReferenceBounds,
("metadata" .=) <$> _vsMetadata,
("id" .=) <$> _vsId])
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 Text)
} 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 Text)
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 Text)
, _ivrNormalizeReferenceNames :: !(Maybe Bool)
, _ivrSourceURIs :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
importVariantsRequest
:: ImportVariantsRequest
importVariantsRequest =
ImportVariantsRequest
{ _ivrVariantSetId = Nothing
, _ivrFormat = Nothing
, _ivrNormalizeReferenceNames = Nothing
, _ivrSourceURIs = Nothing
}
ivrVariantSetId :: Lens' ImportVariantsRequest (Maybe Text)
ivrVariantSetId
= lens _ivrVariantSetId
(\ s a -> s{_ivrVariantSetId = a})
ivrFormat :: Lens' ImportVariantsRequest (Maybe Text)
ivrFormat
= lens _ivrFormat (\ s a -> s{_ivrFormat = 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 .:? "normalizeReferenceNames")
<*> (o .:? "sourceUris" .!= mempty))
instance ToJSON ImportVariantsRequest where
toJSON ImportVariantsRequest{..}
= object
(catMaybes
[("variantSetId" .=) <$> _ivrVariantSetId,
("format" .=) <$> _ivrFormat,
("normalizeReferenceNames" .=) <$>
_ivrNormalizeReferenceNames,
("sourceUris" .=) <$> _ivrSourceURIs])
data CigarUnit = CigarUnit
{ _cuOperation :: !(Maybe Text)
, _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 Text)
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 (Textual Word8))
, _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 Word8)
polEtag
= lens _polEtag (\ s a -> s{_polEtag = a}) .
mapping _Coerce
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 Text)
, _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 Text)
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
{ _omEvents :: !(Maybe [OperationEvent])
, _omProjectId :: !(Maybe Text)
, _omCreateTime :: !(Maybe Text)
, _omRequest :: !(Maybe OperationMetadataRequest)
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadata
:: OperationMetadata
operationMetadata =
OperationMetadata
{ _omEvents = Nothing
, _omProjectId = Nothing
, _omCreateTime = Nothing
, _omRequest = Nothing
}
omEvents :: Lens' OperationMetadata [OperationEvent]
omEvents
= lens _omEvents (\ s a -> s{_omEvents = a}) .
_Default
. _Coerce
omProjectId :: Lens' OperationMetadata (Maybe Text)
omProjectId
= lens _omProjectId (\ s a -> s{_omProjectId = a})
omCreateTime :: Lens' OperationMetadata (Maybe Text)
omCreateTime
= lens _omCreateTime (\ s a -> s{_omCreateTime = a})
omRequest :: Lens' OperationMetadata (Maybe OperationMetadataRequest)
omRequest
= lens _omRequest (\ s a -> s{_omRequest = a})
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o ->
OperationMetadata <$>
(o .:? "events" .!= mempty) <*> (o .:? "projectId")
<*> (o .:? "createTime")
<*> (o .:? "request"))
instance ToJSON OperationMetadata where
toJSON OperationMetadata{..}
= object
(catMaybes
[("events" .=) <$> _omEvents,
("projectId" .=) <$> _omProjectId,
("createTime" .=) <$> _omCreateTime,
("request" .=) <$> _omRequest])
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 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
newtype OperationEvent = OperationEvent
{ _oeDescription :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
operationEvent
:: OperationEvent
operationEvent =
OperationEvent
{ _oeDescription = Nothing
}
oeDescription :: Lens' OperationEvent (Maybe Text)
oeDescription
= lens _oeDescription
(\ s a -> s{_oeDescription = a})
instance FromJSON OperationEvent where
parseJSON
= withObject "OperationEvent"
(\ o -> OperationEvent <$> (o .:? "description"))
instance ToJSON OperationEvent where
toJSON OperationEvent{..}
= object
(catMaybes [("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])
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])