{-# 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.Pinpoint.Types.SegmentType
-- 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.Pinpoint.Types.SegmentType
  ( SegmentType
      ( ..,
        SegmentType_DIMENSIONAL,
        SegmentType_IMPORT
      ),
  )
where

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

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

pattern SegmentType_DIMENSIONAL :: SegmentType
pattern $bSegmentType_DIMENSIONAL :: SegmentType
$mSegmentType_DIMENSIONAL :: forall r. SegmentType -> (Void# -> r) -> (Void# -> r) -> r
SegmentType_DIMENSIONAL = SegmentType' "DIMENSIONAL"

pattern SegmentType_IMPORT :: SegmentType
pattern $bSegmentType_IMPORT :: SegmentType
$mSegmentType_IMPORT :: forall r. SegmentType -> (Void# -> r) -> (Void# -> r) -> r
SegmentType_IMPORT = SegmentType' "IMPORT"

{-# COMPLETE
  SegmentType_DIMENSIONAL,
  SegmentType_IMPORT,
  SegmentType'
  #-}