module Network.AWS.CodeCommit.Types.Sum where
import Network.AWS.Prelude
data OrderEnum
= Ascending
| Descending
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText OrderEnum where
parser = takeLowerText >>= \case
"ascending" -> pure Ascending
"descending" -> pure Descending
e -> fromTextError $ "Failure parsing OrderEnum from value: '" <> e
<> "'. Accepted values: ascending, descending"
instance ToText OrderEnum where
toText = \case
Ascending -> "ascending"
Descending -> "descending"
instance Hashable OrderEnum
instance NFData OrderEnum
instance ToByteString OrderEnum
instance ToQuery OrderEnum
instance ToHeader OrderEnum
instance ToJSON OrderEnum where
toJSON = toJSONText
data RepositoryTriggerEventEnum
= All
| CreateReference
| DeleteReference
| UpdateReference
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText RepositoryTriggerEventEnum where
parser = takeLowerText >>= \case
"all" -> pure All
"createreference" -> pure CreateReference
"deletereference" -> pure DeleteReference
"updatereference" -> pure UpdateReference
e -> fromTextError $ "Failure parsing RepositoryTriggerEventEnum from value: '" <> e
<> "'. Accepted values: all, createReference, deleteReference, updateReference"
instance ToText RepositoryTriggerEventEnum where
toText = \case
All -> "all"
CreateReference -> "createReference"
DeleteReference -> "deleteReference"
UpdateReference -> "updateReference"
instance Hashable RepositoryTriggerEventEnum
instance NFData RepositoryTriggerEventEnum
instance ToByteString RepositoryTriggerEventEnum
instance ToQuery RepositoryTriggerEventEnum
instance ToHeader RepositoryTriggerEventEnum
instance ToJSON RepositoryTriggerEventEnum where
toJSON = toJSONText
instance FromJSON RepositoryTriggerEventEnum where
parseJSON = parseJSONText "RepositoryTriggerEventEnum"
data SortByEnum
= LastModifiedDate
| RepositoryName
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText SortByEnum where
parser = takeLowerText >>= \case
"lastmodifieddate" -> pure LastModifiedDate
"repositoryname" -> pure RepositoryName
e -> fromTextError $ "Failure parsing SortByEnum from value: '" <> e
<> "'. Accepted values: lastModifiedDate, repositoryName"
instance ToText SortByEnum where
toText = \case
LastModifiedDate -> "lastModifiedDate"
RepositoryName -> "repositoryName"
instance Hashable SortByEnum
instance NFData SortByEnum
instance ToByteString SortByEnum
instance ToQuery SortByEnum
instance ToHeader SortByEnum
instance ToJSON SortByEnum where
toJSON = toJSONText