{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Datastore.Types.Sum where
import Network.Google.Prelude
data PropertyOrderDirection
= DirectionUnspecified
| Ascending
| Descending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PropertyOrderDirection
instance FromHttpApiData PropertyOrderDirection where
parseQueryParam = \case
"DIRECTION_UNSPECIFIED" -> Right DirectionUnspecified
"ASCENDING" -> Right Ascending
"DESCENDING" -> Right Descending
x -> Left ("Unable to parse PropertyOrderDirection from: " <> x)
instance ToHttpApiData PropertyOrderDirection where
toQueryParam = \case
DirectionUnspecified -> "DIRECTION_UNSPECIFIED"
Ascending -> "ASCENDING"
Descending -> "DESCENDING"
instance FromJSON PropertyOrderDirection where
parseJSON = parseJSONText "PropertyOrderDirection"
instance ToJSON PropertyOrderDirection where
toJSON = toJSONText
data CompositeFilterOp
= OperatorUnspecified
| And
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompositeFilterOp
instance FromHttpApiData CompositeFilterOp where
parseQueryParam = \case
"OPERATOR_UNSPECIFIED" -> Right OperatorUnspecified
"AND" -> Right And
x -> Left ("Unable to parse CompositeFilterOp from: " <> x)
instance ToHttpApiData CompositeFilterOp where
toQueryParam = \case
OperatorUnspecified -> "OPERATOR_UNSPECIFIED"
And -> "AND"
instance FromJSON CompositeFilterOp where
parseJSON = parseJSONText "CompositeFilterOp"
instance ToJSON CompositeFilterOp where
toJSON = toJSONText
data QueryResultBatchEntityResultType
= QRBERTResultTypeUnspecified
| QRBERTFull
| QRBERTProjection
| QRBERTKeyOnly
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable QueryResultBatchEntityResultType
instance FromHttpApiData QueryResultBatchEntityResultType where
parseQueryParam = \case
"RESULT_TYPE_UNSPECIFIED" -> Right QRBERTResultTypeUnspecified
"FULL" -> Right QRBERTFull
"PROJECTION" -> Right QRBERTProjection
"KEY_ONLY" -> Right QRBERTKeyOnly
x -> Left ("Unable to parse QueryResultBatchEntityResultType from: " <> x)
instance ToHttpApiData QueryResultBatchEntityResultType where
toQueryParam = \case
QRBERTResultTypeUnspecified -> "RESULT_TYPE_UNSPECIFIED"
QRBERTFull -> "FULL"
QRBERTProjection -> "PROJECTION"
QRBERTKeyOnly -> "KEY_ONLY"
instance FromJSON QueryResultBatchEntityResultType where
parseJSON = parseJSONText "QueryResultBatchEntityResultType"
instance ToJSON QueryResultBatchEntityResultType where
toJSON = toJSONText
data QueryResultBatchMoreResults
= MoreResultsTypeUnspecified
| NotFinished
| MoreResultsAfterLimit
| MoreResultsAfterCursor
| NoMoreResults
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable QueryResultBatchMoreResults
instance FromHttpApiData QueryResultBatchMoreResults where
parseQueryParam = \case
"MORE_RESULTS_TYPE_UNSPECIFIED" -> Right MoreResultsTypeUnspecified
"NOT_FINISHED" -> Right NotFinished
"MORE_RESULTS_AFTER_LIMIT" -> Right MoreResultsAfterLimit
"MORE_RESULTS_AFTER_CURSOR" -> Right MoreResultsAfterCursor
"NO_MORE_RESULTS" -> Right NoMoreResults
x -> Left ("Unable to parse QueryResultBatchMoreResults from: " <> x)
instance ToHttpApiData QueryResultBatchMoreResults where
toQueryParam = \case
MoreResultsTypeUnspecified -> "MORE_RESULTS_TYPE_UNSPECIFIED"
NotFinished -> "NOT_FINISHED"
MoreResultsAfterLimit -> "MORE_RESULTS_AFTER_LIMIT"
MoreResultsAfterCursor -> "MORE_RESULTS_AFTER_CURSOR"
NoMoreResults -> "NO_MORE_RESULTS"
instance FromJSON QueryResultBatchMoreResults where
parseJSON = parseJSONText "QueryResultBatchMoreResults"
instance ToJSON QueryResultBatchMoreResults where
toJSON = toJSONText
data ValueNullValue
= NullValue
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ValueNullValue
instance FromHttpApiData ValueNullValue where
parseQueryParam = \case
"NULL_VALUE" -> Right NullValue
x -> Left ("Unable to parse ValueNullValue from: " <> x)
instance ToHttpApiData ValueNullValue where
toQueryParam = \case
NullValue -> "NULL_VALUE"
instance FromJSON ValueNullValue where
parseJSON = parseJSONText "ValueNullValue"
instance ToJSON ValueNullValue where
toJSON = toJSONText
data ReadOptionsReadConsistency
= ReadConsistencyUnspecified
| Strong
| Eventual
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ReadOptionsReadConsistency
instance FromHttpApiData ReadOptionsReadConsistency where
parseQueryParam = \case
"READ_CONSISTENCY_UNSPECIFIED" -> Right ReadConsistencyUnspecified
"STRONG" -> Right Strong
"EVENTUAL" -> Right Eventual
x -> Left ("Unable to parse ReadOptionsReadConsistency from: " <> x)
instance ToHttpApiData ReadOptionsReadConsistency where
toQueryParam = \case
ReadConsistencyUnspecified -> "READ_CONSISTENCY_UNSPECIFIED"
Strong -> "STRONG"
Eventual -> "EVENTUAL"
instance FromJSON ReadOptionsReadConsistency where
parseJSON = parseJSONText "ReadOptionsReadConsistency"
instance ToJSON ReadOptionsReadConsistency 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 PropertyFilterOp
= PFOOperatorUnspecified
| PFOLessThan
| PFOLessThanOrEqual
| PFOGreaterThan
| PFOGreaterThanOrEqual
| PFOEqual
| PFOHasAncestor
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PropertyFilterOp
instance FromHttpApiData PropertyFilterOp where
parseQueryParam = \case
"OPERATOR_UNSPECIFIED" -> Right PFOOperatorUnspecified
"LESS_THAN" -> Right PFOLessThan
"LESS_THAN_OR_EQUAL" -> Right PFOLessThanOrEqual
"GREATER_THAN" -> Right PFOGreaterThan
"GREATER_THAN_OR_EQUAL" -> Right PFOGreaterThanOrEqual
"EQUAL" -> Right PFOEqual
"HAS_ANCESTOR" -> Right PFOHasAncestor
x -> Left ("Unable to parse PropertyFilterOp from: " <> x)
instance ToHttpApiData PropertyFilterOp where
toQueryParam = \case
PFOOperatorUnspecified -> "OPERATOR_UNSPECIFIED"
PFOLessThan -> "LESS_THAN"
PFOLessThanOrEqual -> "LESS_THAN_OR_EQUAL"
PFOGreaterThan -> "GREATER_THAN"
PFOGreaterThanOrEqual -> "GREATER_THAN_OR_EQUAL"
PFOEqual -> "EQUAL"
PFOHasAncestor -> "HAS_ANCESTOR"
instance FromJSON PropertyFilterOp where
parseJSON = parseJSONText "PropertyFilterOp"
instance ToJSON PropertyFilterOp where
toJSON = toJSONText
data CommitRequestMode
= ModeUnspecified
| Transactional
| NonTransactional
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CommitRequestMode
instance FromHttpApiData CommitRequestMode where
parseQueryParam = \case
"MODE_UNSPECIFIED" -> Right ModeUnspecified
"TRANSACTIONAL" -> Right Transactional
"NON_TRANSACTIONAL" -> Right NonTransactional
x -> Left ("Unable to parse CommitRequestMode from: " <> x)
instance ToHttpApiData CommitRequestMode where
toQueryParam = \case
ModeUnspecified -> "MODE_UNSPECIFIED"
Transactional -> "TRANSACTIONAL"
NonTransactional -> "NON_TRANSACTIONAL"
instance FromJSON CommitRequestMode where
parseJSON = parseJSONText "CommitRequestMode"
instance ToJSON CommitRequestMode where
toJSON = toJSONText