module Network.Google.PlusDomains.Types.Sum where
import Network.Google.Prelude
data MediaInsertCollection
= Cloud
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable MediaInsertCollection
instance FromText MediaInsertCollection where
fromText = \case
"cloud" -> Just Cloud
_ -> Nothing
instance ToText MediaInsertCollection where
toText = \case
Cloud -> "cloud"
instance FromJSON MediaInsertCollection where
parseJSON = parseJSONText "MediaInsertCollection"
instance ToJSON MediaInsertCollection where
toJSON = toJSONText
data PeopleListByActivityCollection
= Plusoners
| Resharers
| Sharedto
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable PeopleListByActivityCollection
instance FromText PeopleListByActivityCollection where
fromText = \case
"plusoners" -> Just Plusoners
"resharers" -> Just Resharers
"sharedto" -> Just Sharedto
_ -> Nothing
instance ToText PeopleListByActivityCollection where
toText = \case
Plusoners -> "plusoners"
Resharers -> "resharers"
Sharedto -> "sharedto"
instance FromJSON PeopleListByActivityCollection where
parseJSON = parseJSONText "PeopleListByActivityCollection"
instance ToJSON PeopleListByActivityCollection where
toJSON = toJSONText
data PeopleListOrderBy
= Alphabetical
| Best
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable PeopleListOrderBy
instance FromText PeopleListOrderBy where
fromText = \case
"alphabetical" -> Just Alphabetical
"best" -> Just Best
_ -> Nothing
instance ToText PeopleListOrderBy where
toText = \case
Alphabetical -> "alphabetical"
Best -> "best"
instance FromJSON PeopleListOrderBy where
parseJSON = parseJSONText "PeopleListOrderBy"
instance ToJSON PeopleListOrderBy where
toJSON = toJSONText
data ActivitiesListCollection
= User
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable ActivitiesListCollection
instance FromText ActivitiesListCollection where
fromText = \case
"user" -> Just User
_ -> Nothing
instance ToText ActivitiesListCollection where
toText = \case
User -> "user"
instance FromJSON ActivitiesListCollection where
parseJSON = parseJSONText "ActivitiesListCollection"
instance ToJSON ActivitiesListCollection where
toJSON = toJSONText
data PeopleListCollection
= Circled
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable PeopleListCollection
instance FromText PeopleListCollection where
fromText = \case
"circled" -> Just Circled
_ -> Nothing
instance ToText PeopleListCollection where
toText = \case
Circled -> "circled"
instance FromJSON PeopleListCollection where
parseJSON = parseJSONText "PeopleListCollection"
instance ToJSON PeopleListCollection where
toJSON = toJSONText
data CommentsListSortOrder
= Ascending
| Descending
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable CommentsListSortOrder
instance FromText CommentsListSortOrder where
fromText = \case
"ascending" -> Just Ascending
"descending" -> Just Descending
_ -> Nothing
instance ToText CommentsListSortOrder where
toText = \case
Ascending -> "ascending"
Descending -> "descending"
instance FromJSON CommentsListSortOrder where
parseJSON = parseJSONText "CommentsListSortOrder"
instance ToJSON CommentsListSortOrder where
toJSON = toJSONText