module Network.AWS.EFS.Types.Sum where
import Network.AWS.Prelude
data LifeCycleState
= Available
| Creating
| Deleted
| Deleting
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText LifeCycleState where
parser = takeLowerText >>= \case
"available" -> pure Available
"creating" -> pure Creating
"deleted" -> pure Deleted
"deleting" -> pure Deleting
e -> fromTextError $ "Failure parsing LifeCycleState from value: '" <> e
<> "'. Accepted values: available, creating, deleted, deleting"
instance ToText LifeCycleState where
toText = \case
Available -> "available"
Creating -> "creating"
Deleted -> "deleted"
Deleting -> "deleting"
instance Hashable LifeCycleState
instance ToByteString LifeCycleState
instance ToQuery LifeCycleState
instance ToHeader LifeCycleState
instance FromJSON LifeCycleState where
parseJSON = parseJSONText "LifeCycleState"