{-# 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.Rekognition.Types.VideoColorRange
-- 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.Rekognition.Types.VideoColorRange
  ( VideoColorRange
      ( ..,
        VideoColorRange_FULL,
        VideoColorRange_LIMITED
      ),
  )
where

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

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

pattern VideoColorRange_FULL :: VideoColorRange
pattern $bVideoColorRange_FULL :: VideoColorRange
$mVideoColorRange_FULL :: forall r. VideoColorRange -> (Void# -> r) -> (Void# -> r) -> r
VideoColorRange_FULL = VideoColorRange' "FULL"

pattern VideoColorRange_LIMITED :: VideoColorRange
pattern $bVideoColorRange_LIMITED :: VideoColorRange
$mVideoColorRange_LIMITED :: forall r. VideoColorRange -> (Void# -> r) -> (Void# -> r) -> r
VideoColorRange_LIMITED = VideoColorRange' "LIMITED"

{-# COMPLETE
  VideoColorRange_FULL,
  VideoColorRange_LIMITED,
  VideoColorRange'
  #-}