{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric      #-}
{-# LANGUAGE LambdaCase         #-}
{-# LANGUAGE OverloadedStrings  #-}

{-# OPTIONS_GHC -fno-warn-unused-imports #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.EFS.Types.Sum
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.EFS.Types.Sum where

import           Network.AWS.Prelude

data LifeCycleState
    = Available
    | Creating
    | Deleted
    | Deleting
    deriving (Eq,Ord,Read,Show,Enum,Bounded,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 NFData       LifeCycleState
instance ToByteString LifeCycleState
instance ToQuery      LifeCycleState
instance ToHeader     LifeCycleState

instance FromJSON LifeCycleState where
    parseJSON = parseJSONText "LifeCycleState"

data PerformanceMode
    = GeneralPurpose
    | MaxIO
    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)

instance FromText PerformanceMode where
    parser = takeLowerText >>= \case
        "generalpurpose" -> pure GeneralPurpose
        "maxio" -> pure MaxIO
        e -> fromTextError $ "Failure parsing PerformanceMode from value: '" <> e
           <> "'. Accepted values: generalpurpose, maxio"

instance ToText PerformanceMode where
    toText = \case
        GeneralPurpose -> "generalPurpose"
        MaxIO -> "maxIO"

instance Hashable     PerformanceMode
instance NFData       PerformanceMode
instance ToByteString PerformanceMode
instance ToQuery      PerformanceMode
instance ToHeader     PerformanceMode

instance ToJSON PerformanceMode where
    toJSON = toJSONText

instance FromJSON PerformanceMode where
    parseJSON = parseJSONText "PerformanceMode"