module Network.Google.DNS.Types.Sum where
import Network.Google.Prelude
data ChangesListSortBy
= ChangeSequence
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ChangesListSortBy
instance FromHttpApiData ChangesListSortBy where
parseQueryParam = \case
"changeSequence" -> Right ChangeSequence
x -> Left ("Unable to parse ChangesListSortBy from: " <> x)
instance ToHttpApiData ChangesListSortBy where
toQueryParam = \case
ChangeSequence -> "changeSequence"
instance FromJSON ChangesListSortBy where
parseJSON = parseJSONText "ChangesListSortBy"
instance ToJSON ChangesListSortBy where
toJSON = toJSONText
data ChangeStatus
= Done
| Pending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ChangeStatus
instance FromHttpApiData ChangeStatus where
parseQueryParam = \case
"done" -> Right Done
"pending" -> Right Pending
x -> Left ("Unable to parse ChangeStatus from: " <> x)
instance ToHttpApiData ChangeStatus where
toQueryParam = \case
Done -> "done"
Pending -> "pending"
instance FromJSON ChangeStatus where
parseJSON = parseJSONText "ChangeStatus"
instance ToJSON ChangeStatus where
toJSON = toJSONText