module Network.Google.Genomics.Types.Sum where
import Network.Google.Prelude
data VariantAnnotationEffect
= EffectUnspecified
| EffectOther
| Frameshift
| FramePreservingIndel
| SynonymousSnp
| NonsynonymousSnp
| StopGain
| StopLoss
| SpliceSiteDisruption
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VariantAnnotationEffect
instance FromHttpApiData VariantAnnotationEffect where
parseQueryParam = \case
"EFFECT_UNSPECIFIED" -> Right EffectUnspecified
"EFFECT_OTHER" -> Right EffectOther
"FRAMESHIFT" -> Right Frameshift
"FRAME_PRESERVING_INDEL" -> Right FramePreservingIndel
"SYNONYMOUS_SNP" -> Right SynonymousSnp
"NONSYNONYMOUS_SNP" -> Right NonsynonymousSnp
"STOP_GAIN" -> Right StopGain
"STOP_LOSS" -> Right StopLoss
"SPLICE_SITE_DISRUPTION" -> Right SpliceSiteDisruption
x -> Left ("Unable to parse VariantAnnotationEffect from: " <> x)
instance ToHttpApiData VariantAnnotationEffect where
toQueryParam = \case
EffectUnspecified -> "EFFECT_UNSPECIFIED"
EffectOther -> "EFFECT_OTHER"
Frameshift -> "FRAMESHIFT"
FramePreservingIndel -> "FRAME_PRESERVING_INDEL"
SynonymousSnp -> "SYNONYMOUS_SNP"
NonsynonymousSnp -> "NONSYNONYMOUS_SNP"
StopGain -> "STOP_GAIN"
StopLoss -> "STOP_LOSS"
SpliceSiteDisruption -> "SPLICE_SITE_DISRUPTION"
instance FromJSON VariantAnnotationEffect where
parseJSON = parseJSONText "VariantAnnotationEffect"
instance ToJSON VariantAnnotationEffect where
toJSON = toJSONText
data AnnotationSetType
= ASTAnnotationTypeUnspecified
| ASTGeneric
| ASTVariant
| ASTGene
| ASTTranscript
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AnnotationSetType
instance FromHttpApiData AnnotationSetType where
parseQueryParam = \case
"ANNOTATION_TYPE_UNSPECIFIED" -> Right ASTAnnotationTypeUnspecified
"GENERIC" -> Right ASTGeneric
"VARIANT" -> Right ASTVariant
"GENE" -> Right ASTGene
"TRANSCRIPT" -> Right ASTTranscript
x -> Left ("Unable to parse AnnotationSetType from: " <> x)
instance ToHttpApiData AnnotationSetType where
toQueryParam = \case
ASTAnnotationTypeUnspecified -> "ANNOTATION_TYPE_UNSPECIFIED"
ASTGeneric -> "GENERIC"
ASTVariant -> "VARIANT"
ASTGene -> "GENE"
ASTTranscript -> "TRANSCRIPT"
instance FromJSON AnnotationSetType where
parseJSON = parseJSONText "AnnotationSetType"
instance ToJSON AnnotationSetType where
toJSON = toJSONText
data VariantAnnotationClinicalSignificance
= ClinicalSignificanceUnspecified
| ClinicalSignificanceOther
| Uncertain
| Benign
| LikelyBenign
| LikelyPathogenic
| Pathogenic
| DrugResponse
| Histocompatibility
| ConfersSensitivity
| RiskFactor
| Association
| Protective
| MultipleReported
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VariantAnnotationClinicalSignificance
instance FromHttpApiData VariantAnnotationClinicalSignificance where
parseQueryParam = \case
"CLINICAL_SIGNIFICANCE_UNSPECIFIED" -> Right ClinicalSignificanceUnspecified
"CLINICAL_SIGNIFICANCE_OTHER" -> Right ClinicalSignificanceOther
"UNCERTAIN" -> Right Uncertain
"BENIGN" -> Right Benign
"LIKELY_BENIGN" -> Right LikelyBenign
"LIKELY_PATHOGENIC" -> Right LikelyPathogenic
"PATHOGENIC" -> Right Pathogenic
"DRUG_RESPONSE" -> Right DrugResponse
"HISTOCOMPATIBILITY" -> Right Histocompatibility
"CONFERS_SENSITIVITY" -> Right ConfersSensitivity
"RISK_FACTOR" -> Right RiskFactor
"ASSOCIATION" -> Right Association
"PROTECTIVE" -> Right Protective
"MULTIPLE_REPORTED" -> Right MultipleReported
x -> Left ("Unable to parse VariantAnnotationClinicalSignificance from: " <> x)
instance ToHttpApiData VariantAnnotationClinicalSignificance where
toQueryParam = \case
ClinicalSignificanceUnspecified -> "CLINICAL_SIGNIFICANCE_UNSPECIFIED"
ClinicalSignificanceOther -> "CLINICAL_SIGNIFICANCE_OTHER"
Uncertain -> "UNCERTAIN"
Benign -> "BENIGN"
LikelyBenign -> "LIKELY_BENIGN"
LikelyPathogenic -> "LIKELY_PATHOGENIC"
Pathogenic -> "PATHOGENIC"
DrugResponse -> "DRUG_RESPONSE"
Histocompatibility -> "HISTOCOMPATIBILITY"
ConfersSensitivity -> "CONFERS_SENSITIVITY"
RiskFactor -> "RISK_FACTOR"
Association -> "ASSOCIATION"
Protective -> "PROTECTIVE"
MultipleReported -> "MULTIPLE_REPORTED"
instance FromJSON VariantAnnotationClinicalSignificance where
parseJSON = parseJSONText "VariantAnnotationClinicalSignificance"
instance ToJSON VariantAnnotationClinicalSignificance where
toJSON = toJSONText
data ImportReadGroupSetsRequestPartitionStrategy
= PartitionStrategyUnspecified
| PerFilePerSample
| MergeAll
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ImportReadGroupSetsRequestPartitionStrategy
instance FromHttpApiData ImportReadGroupSetsRequestPartitionStrategy where
parseQueryParam = \case
"PARTITION_STRATEGY_UNSPECIFIED" -> Right PartitionStrategyUnspecified
"PER_FILE_PER_SAMPLE" -> Right PerFilePerSample
"MERGE_ALL" -> Right MergeAll
x -> Left ("Unable to parse ImportReadGroupSetsRequestPartitionStrategy from: " <> x)
instance ToHttpApiData ImportReadGroupSetsRequestPartitionStrategy where
toQueryParam = \case
PartitionStrategyUnspecified -> "PARTITION_STRATEGY_UNSPECIFIED"
PerFilePerSample -> "PER_FILE_PER_SAMPLE"
MergeAll -> "MERGE_ALL"
instance FromJSON ImportReadGroupSetsRequestPartitionStrategy where
parseJSON = parseJSONText "ImportReadGroupSetsRequestPartitionStrategy"
instance ToJSON ImportReadGroupSetsRequestPartitionStrategy where
toJSON = toJSONText
data AnnotationType
= ATAnnotationTypeUnspecified
| ATGeneric
| ATVariant
| ATGene
| ATTranscript
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AnnotationType
instance FromHttpApiData AnnotationType where
parseQueryParam = \case
"ANNOTATION_TYPE_UNSPECIFIED" -> Right ATAnnotationTypeUnspecified
"GENERIC" -> Right ATGeneric
"VARIANT" -> Right ATVariant
"GENE" -> Right ATGene
"TRANSCRIPT" -> Right ATTranscript
x -> Left ("Unable to parse AnnotationType from: " <> x)
instance ToHttpApiData AnnotationType where
toQueryParam = \case
ATAnnotationTypeUnspecified -> "ANNOTATION_TYPE_UNSPECIFIED"
ATGeneric -> "GENERIC"
ATVariant -> "VARIANT"
ATGene -> "GENE"
ATTranscript -> "TRANSCRIPT"
instance FromJSON AnnotationType where
parseJSON = parseJSONText "AnnotationType"
instance ToJSON AnnotationType where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data CigarUnitOperation
= OperationUnspecified
| AlignmentMatch
| Insert
| Delete'
| Skip
| ClipSoft
| ClipHard
| Pad
| SequenceMatch
| SequenceMismatch
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CigarUnitOperation
instance FromHttpApiData CigarUnitOperation where
parseQueryParam = \case
"OPERATION_UNSPECIFIED" -> Right OperationUnspecified
"ALIGNMENT_MATCH" -> Right AlignmentMatch
"INSERT" -> Right Insert
"DELETE" -> Right Delete'
"SKIP" -> Right Skip
"CLIP_SOFT" -> Right ClipSoft
"CLIP_HARD" -> Right ClipHard
"PAD" -> Right Pad
"SEQUENCE_MATCH" -> Right SequenceMatch
"SEQUENCE_MISMATCH" -> Right SequenceMismatch
x -> Left ("Unable to parse CigarUnitOperation from: " <> x)
instance ToHttpApiData CigarUnitOperation where
toQueryParam = \case
OperationUnspecified -> "OPERATION_UNSPECIFIED"
AlignmentMatch -> "ALIGNMENT_MATCH"
Insert -> "INSERT"
Delete' -> "DELETE"
Skip -> "SKIP"
ClipSoft -> "CLIP_SOFT"
ClipHard -> "CLIP_HARD"
Pad -> "PAD"
SequenceMatch -> "SEQUENCE_MATCH"
SequenceMismatch -> "SEQUENCE_MISMATCH"
instance FromJSON CigarUnitOperation where
parseJSON = parseJSONText "CigarUnitOperation"
instance ToJSON CigarUnitOperation where
toJSON = toJSONText
data VariantSetMetadataType
= TypeUnspecified
| Integer
| Float
| Flag
| Character
| String
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VariantSetMetadataType
instance FromHttpApiData VariantSetMetadataType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right TypeUnspecified
"INTEGER" -> Right Integer
"FLOAT" -> Right Float
"FLAG" -> Right Flag
"CHARACTER" -> Right Character
"STRING" -> Right String
x -> Left ("Unable to parse VariantSetMetadataType from: " <> x)
instance ToHttpApiData VariantSetMetadataType where
toQueryParam = \case
TypeUnspecified -> "TYPE_UNSPECIFIED"
Integer -> "INTEGER"
Float -> "FLOAT"
Flag -> "FLAG"
Character -> "CHARACTER"
String -> "STRING"
instance FromJSON VariantSetMetadataType where
parseJSON = parseJSONText "VariantSetMetadataType"
instance ToJSON VariantSetMetadataType where
toJSON = toJSONText
data VariantAnnotationType
= VATTypeUnspecified
| VATTypeOther
| VATInsertion
| VATDeletion
| VATSubstitution
| VATSnp
| VATStructural
| VATCnv
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VariantAnnotationType
instance FromHttpApiData VariantAnnotationType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right VATTypeUnspecified
"TYPE_OTHER" -> Right VATTypeOther
"INSERTION" -> Right VATInsertion
"DELETION" -> Right VATDeletion
"SUBSTITUTION" -> Right VATSubstitution
"SNP" -> Right VATSnp
"STRUCTURAL" -> Right VATStructural
"CNV" -> Right VATCnv
x -> Left ("Unable to parse VariantAnnotationType from: " <> x)
instance ToHttpApiData VariantAnnotationType where
toQueryParam = \case
VATTypeUnspecified -> "TYPE_UNSPECIFIED"
VATTypeOther -> "TYPE_OTHER"
VATInsertion -> "INSERTION"
VATDeletion -> "DELETION"
VATSubstitution -> "SUBSTITUTION"
VATSnp -> "SNP"
VATStructural -> "STRUCTURAL"
VATCnv -> "CNV"
instance FromJSON VariantAnnotationType where
parseJSON = parseJSONText "VariantAnnotationType"
instance ToJSON VariantAnnotationType where
toJSON = toJSONText
data ImportVariantsRequestFormat
= FormatUnspecified
| FormatVcf
| FormatCompleteGenomics
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ImportVariantsRequestFormat
instance FromHttpApiData ImportVariantsRequestFormat where
parseQueryParam = \case
"FORMAT_UNSPECIFIED" -> Right FormatUnspecified
"FORMAT_VCF" -> Right FormatVcf
"FORMAT_COMPLETE_GENOMICS" -> Right FormatCompleteGenomics
x -> Left ("Unable to parse ImportVariantsRequestFormat from: " <> x)
instance ToHttpApiData ImportVariantsRequestFormat where
toQueryParam = \case
FormatUnspecified -> "FORMAT_UNSPECIFIED"
FormatVcf -> "FORMAT_VCF"
FormatCompleteGenomics -> "FORMAT_COMPLETE_GENOMICS"
instance FromJSON ImportVariantsRequestFormat where
parseJSON = parseJSONText "ImportVariantsRequestFormat"
instance ToJSON ImportVariantsRequestFormat where
toJSON = toJSONText
data ExportVariantSetRequestFormat
= EVSRFFormatUnspecified
| EVSRFFormatBigQuery
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ExportVariantSetRequestFormat
instance FromHttpApiData ExportVariantSetRequestFormat where
parseQueryParam = \case
"FORMAT_UNSPECIFIED" -> Right EVSRFFormatUnspecified
"FORMAT_BIGQUERY" -> Right EVSRFFormatBigQuery
x -> Left ("Unable to parse ExportVariantSetRequestFormat from: " <> x)
instance ToHttpApiData ExportVariantSetRequestFormat where
toQueryParam = \case
EVSRFFormatUnspecified -> "FORMAT_UNSPECIFIED"
EVSRFFormatBigQuery -> "FORMAT_BIGQUERY"
instance FromJSON ExportVariantSetRequestFormat where
parseJSON = parseJSONText "ExportVariantSetRequestFormat"
instance ToJSON ExportVariantSetRequestFormat where
toJSON = toJSONText