module Network.Google.ShoppingContent.Types.Sum where
import Network.Google.Prelude
data OrdersGettestOrdertemplateTemplateName
= TEMPLATE1
| TEMPLATE2
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable OrdersGettestOrdertemplateTemplateName
instance FromText OrdersGettestOrdertemplateTemplateName where
fromText = \case
"template1" -> Just TEMPLATE1
"template2" -> Just TEMPLATE2
_ -> Nothing
instance ToText OrdersGettestOrdertemplateTemplateName where
toText = \case
TEMPLATE1 -> "template1"
TEMPLATE2 -> "template2"
instance FromJSON OrdersGettestOrdertemplateTemplateName where
parseJSON = parseJSONText "OrdersGettestOrdertemplateTemplateName"
instance ToJSON OrdersGettestOrdertemplateTemplateName where
toJSON = toJSONText
data OrdersListOrderBy
= PlacedDateAsc
| PlacedDateDesc
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable OrdersListOrderBy
instance FromText OrdersListOrderBy where
fromText = \case
"placedDate asc" -> Just PlacedDateAsc
"placedDate desc" -> Just PlacedDateDesc
_ -> Nothing
instance ToText OrdersListOrderBy where
toText = \case
PlacedDateAsc -> "placedDate asc"
PlacedDateDesc -> "placedDate desc"
instance FromJSON OrdersListOrderBy where
parseJSON = parseJSONText "OrdersListOrderBy"
instance ToJSON OrdersListOrderBy where
toJSON = toJSONText
data OrdersListStatuses
= Active
| Canceled
| Completed
| Delivered
| InProgress
| PartiallyDelivered
| PartiallyReturned
| PartiallyShipped
| PendingShipment
| Returned
| Shipped
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable OrdersListStatuses
instance FromText OrdersListStatuses where
fromText = \case
"active" -> Just Active
"canceled" -> Just Canceled
"completed" -> Just Completed
"delivered" -> Just Delivered
"inProgress" -> Just InProgress
"partiallyDelivered" -> Just PartiallyDelivered
"partiallyReturned" -> Just PartiallyReturned
"partiallyShipped" -> Just PartiallyShipped
"pendingShipment" -> Just PendingShipment
"returned" -> Just Returned
"shipped" -> Just Shipped
_ -> Nothing
instance ToText OrdersListStatuses where
toText = \case
Active -> "active"
Canceled -> "canceled"
Completed -> "completed"
Delivered -> "delivered"
InProgress -> "inProgress"
PartiallyDelivered -> "partiallyDelivered"
PartiallyReturned -> "partiallyReturned"
PartiallyShipped -> "partiallyShipped"
PendingShipment -> "pendingShipment"
Returned -> "returned"
Shipped -> "shipped"
instance FromJSON OrdersListStatuses where
parseJSON = parseJSONText "OrdersListStatuses"
instance ToJSON OrdersListStatuses where
toJSON = toJSONText