{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}

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

-- |
-- Module      : Amazonka.Snowball.Types.LongTermPricingType
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.Snowball.Types.LongTermPricingType
  ( LongTermPricingType
      ( ..,
        LongTermPricingType_OneYear,
        LongTermPricingType_ThreeYear
      ),
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Prelude as Prelude

newtype LongTermPricingType = LongTermPricingType'
  { LongTermPricingType -> Text
fromLongTermPricingType ::
      Core.Text
  }
  deriving stock
    ( Int -> LongTermPricingType -> ShowS
[LongTermPricingType] -> ShowS
LongTermPricingType -> String
(Int -> LongTermPricingType -> ShowS)
-> (LongTermPricingType -> String)
-> ([LongTermPricingType] -> ShowS)
-> Show LongTermPricingType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LongTermPricingType] -> ShowS
$cshowList :: [LongTermPricingType] -> ShowS
show :: LongTermPricingType -> String
$cshow :: LongTermPricingType -> String
showsPrec :: Int -> LongTermPricingType -> ShowS
$cshowsPrec :: Int -> LongTermPricingType -> ShowS
Prelude.Show,
      ReadPrec [LongTermPricingType]
ReadPrec LongTermPricingType
Int -> ReadS LongTermPricingType
ReadS [LongTermPricingType]
(Int -> ReadS LongTermPricingType)
-> ReadS [LongTermPricingType]
-> ReadPrec LongTermPricingType
-> ReadPrec [LongTermPricingType]
-> Read LongTermPricingType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LongTermPricingType]
$creadListPrec :: ReadPrec [LongTermPricingType]
readPrec :: ReadPrec LongTermPricingType
$creadPrec :: ReadPrec LongTermPricingType
readList :: ReadS [LongTermPricingType]
$creadList :: ReadS [LongTermPricingType]
readsPrec :: Int -> ReadS LongTermPricingType
$creadsPrec :: Int -> ReadS LongTermPricingType
Prelude.Read,
      LongTermPricingType -> LongTermPricingType -> Bool
(LongTermPricingType -> LongTermPricingType -> Bool)
-> (LongTermPricingType -> LongTermPricingType -> Bool)
-> Eq LongTermPricingType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LongTermPricingType -> LongTermPricingType -> Bool
$c/= :: LongTermPricingType -> LongTermPricingType -> Bool
== :: LongTermPricingType -> LongTermPricingType -> Bool
$c== :: LongTermPricingType -> LongTermPricingType -> Bool
Prelude.Eq,
      Eq LongTermPricingType
Eq LongTermPricingType
-> (LongTermPricingType -> LongTermPricingType -> Ordering)
-> (LongTermPricingType -> LongTermPricingType -> Bool)
-> (LongTermPricingType -> LongTermPricingType -> Bool)
-> (LongTermPricingType -> LongTermPricingType -> Bool)
-> (LongTermPricingType -> LongTermPricingType -> Bool)
-> (LongTermPricingType
    -> LongTermPricingType -> LongTermPricingType)
-> (LongTermPricingType
    -> LongTermPricingType -> LongTermPricingType)
-> Ord LongTermPricingType
LongTermPricingType -> LongTermPricingType -> Bool
LongTermPricingType -> LongTermPricingType -> Ordering
LongTermPricingType -> LongTermPricingType -> LongTermPricingType
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: LongTermPricingType -> LongTermPricingType -> LongTermPricingType
$cmin :: LongTermPricingType -> LongTermPricingType -> LongTermPricingType
max :: LongTermPricingType -> LongTermPricingType -> LongTermPricingType
$cmax :: LongTermPricingType -> LongTermPricingType -> LongTermPricingType
>= :: LongTermPricingType -> LongTermPricingType -> Bool
$c>= :: LongTermPricingType -> LongTermPricingType -> Bool
> :: LongTermPricingType -> LongTermPricingType -> Bool
$c> :: LongTermPricingType -> LongTermPricingType -> Bool
<= :: LongTermPricingType -> LongTermPricingType -> Bool
$c<= :: LongTermPricingType -> LongTermPricingType -> Bool
< :: LongTermPricingType -> LongTermPricingType -> Bool
$c< :: LongTermPricingType -> LongTermPricingType -> Bool
compare :: LongTermPricingType -> LongTermPricingType -> Ordering
$ccompare :: LongTermPricingType -> LongTermPricingType -> Ordering
$cp1Ord :: Eq LongTermPricingType
Prelude.Ord,
      (forall x. LongTermPricingType -> Rep LongTermPricingType x)
-> (forall x. Rep LongTermPricingType x -> LongTermPricingType)
-> Generic LongTermPricingType
forall x. Rep LongTermPricingType x -> LongTermPricingType
forall x. LongTermPricingType -> Rep LongTermPricingType x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep LongTermPricingType x -> LongTermPricingType
$cfrom :: forall x. LongTermPricingType -> Rep LongTermPricingType x
Prelude.Generic
    )
  deriving newtype
    ( Int -> LongTermPricingType -> Int
LongTermPricingType -> Int
(Int -> LongTermPricingType -> Int)
-> (LongTermPricingType -> Int) -> Hashable LongTermPricingType
forall a. (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: LongTermPricingType -> Int
$chash :: LongTermPricingType -> Int
hashWithSalt :: Int -> LongTermPricingType -> Int
$chashWithSalt :: Int -> LongTermPricingType -> Int
Prelude.Hashable,
      LongTermPricingType -> ()
(LongTermPricingType -> ()) -> NFData LongTermPricingType
forall a. (a -> ()) -> NFData a
rnf :: LongTermPricingType -> ()
$crnf :: LongTermPricingType -> ()
Prelude.NFData,
      Text -> Either String LongTermPricingType
(Text -> Either String LongTermPricingType)
-> FromText LongTermPricingType
forall a. (Text -> Either String a) -> FromText a
fromText :: Text -> Either String LongTermPricingType
$cfromText :: Text -> Either String LongTermPricingType
Core.FromText,
      LongTermPricingType -> Text
(LongTermPricingType -> Text) -> ToText LongTermPricingType
forall a. (a -> Text) -> ToText a
toText :: LongTermPricingType -> Text
$ctoText :: LongTermPricingType -> Text
Core.ToText,
      LongTermPricingType -> ByteString
(LongTermPricingType -> ByteString)
-> ToByteString LongTermPricingType
forall a. (a -> ByteString) -> ToByteString a
toBS :: LongTermPricingType -> ByteString
$ctoBS :: LongTermPricingType -> ByteString
Core.ToByteString,
      LongTermPricingType -> ByteStringBuilder
(LongTermPricingType -> ByteStringBuilder)
-> ToLog LongTermPricingType
forall a. (a -> ByteStringBuilder) -> ToLog a
build :: LongTermPricingType -> ByteStringBuilder
$cbuild :: LongTermPricingType -> ByteStringBuilder
Core.ToLog,
      HeaderName -> LongTermPricingType -> [Header]
(HeaderName -> LongTermPricingType -> [Header])
-> ToHeader LongTermPricingType
forall a. (HeaderName -> a -> [Header]) -> ToHeader a
toHeader :: HeaderName -> LongTermPricingType -> [Header]
$ctoHeader :: HeaderName -> LongTermPricingType -> [Header]
Core.ToHeader,
      LongTermPricingType -> QueryString
(LongTermPricingType -> QueryString) -> ToQuery LongTermPricingType
forall a. (a -> QueryString) -> ToQuery a
toQuery :: LongTermPricingType -> QueryString
$ctoQuery :: LongTermPricingType -> QueryString
Core.ToQuery,
      Value -> Parser [LongTermPricingType]
Value -> Parser LongTermPricingType
(Value -> Parser LongTermPricingType)
-> (Value -> Parser [LongTermPricingType])
-> FromJSON LongTermPricingType
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [LongTermPricingType]
$cparseJSONList :: Value -> Parser [LongTermPricingType]
parseJSON :: Value -> Parser LongTermPricingType
$cparseJSON :: Value -> Parser LongTermPricingType
Core.FromJSON,
      FromJSONKeyFunction [LongTermPricingType]
FromJSONKeyFunction LongTermPricingType
FromJSONKeyFunction LongTermPricingType
-> FromJSONKeyFunction [LongTermPricingType]
-> FromJSONKey LongTermPricingType
forall a.
FromJSONKeyFunction a -> FromJSONKeyFunction [a] -> FromJSONKey a
fromJSONKeyList :: FromJSONKeyFunction [LongTermPricingType]
$cfromJSONKeyList :: FromJSONKeyFunction [LongTermPricingType]
fromJSONKey :: FromJSONKeyFunction LongTermPricingType
$cfromJSONKey :: FromJSONKeyFunction LongTermPricingType
Core.FromJSONKey,
      [LongTermPricingType] -> Encoding
[LongTermPricingType] -> Value
LongTermPricingType -> Encoding
LongTermPricingType -> Value
(LongTermPricingType -> Value)
-> (LongTermPricingType -> Encoding)
-> ([LongTermPricingType] -> Value)
-> ([LongTermPricingType] -> Encoding)
-> ToJSON LongTermPricingType
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [LongTermPricingType] -> Encoding
$ctoEncodingList :: [LongTermPricingType] -> Encoding
toJSONList :: [LongTermPricingType] -> Value
$ctoJSONList :: [LongTermPricingType] -> Value
toEncoding :: LongTermPricingType -> Encoding
$ctoEncoding :: LongTermPricingType -> Encoding
toJSON :: LongTermPricingType -> Value
$ctoJSON :: LongTermPricingType -> Value
Core.ToJSON,
      ToJSONKeyFunction [LongTermPricingType]
ToJSONKeyFunction LongTermPricingType
ToJSONKeyFunction LongTermPricingType
-> ToJSONKeyFunction [LongTermPricingType]
-> ToJSONKey LongTermPricingType
forall a.
ToJSONKeyFunction a -> ToJSONKeyFunction [a] -> ToJSONKey a
toJSONKeyList :: ToJSONKeyFunction [LongTermPricingType]
$ctoJSONKeyList :: ToJSONKeyFunction [LongTermPricingType]
toJSONKey :: ToJSONKeyFunction LongTermPricingType
$ctoJSONKey :: ToJSONKeyFunction LongTermPricingType
Core.ToJSONKey,
      [Node] -> Either String LongTermPricingType
([Node] -> Either String LongTermPricingType)
-> FromXML LongTermPricingType
forall a. ([Node] -> Either String a) -> FromXML a
parseXML :: [Node] -> Either String LongTermPricingType
$cparseXML :: [Node] -> Either String LongTermPricingType
Core.FromXML,
      LongTermPricingType -> XML
(LongTermPricingType -> XML) -> ToXML LongTermPricingType
forall a. (a -> XML) -> ToXML a
toXML :: LongTermPricingType -> XML
$ctoXML :: LongTermPricingType -> XML
Core.ToXML
    )

pattern LongTermPricingType_OneYear :: LongTermPricingType
pattern $bLongTermPricingType_OneYear :: LongTermPricingType
$mLongTermPricingType_OneYear :: forall r. LongTermPricingType -> (Void# -> r) -> (Void# -> r) -> r
LongTermPricingType_OneYear = LongTermPricingType' "OneYear"

pattern LongTermPricingType_ThreeYear :: LongTermPricingType
pattern $bLongTermPricingType_ThreeYear :: LongTermPricingType
$mLongTermPricingType_ThreeYear :: forall r. LongTermPricingType -> (Void# -> r) -> (Void# -> r) -> r
LongTermPricingType_ThreeYear = LongTermPricingType' "ThreeYear"

{-# COMPLETE
  LongTermPricingType_OneYear,
  LongTermPricingType_ThreeYear,
  LongTermPricingType'
  #-}