{-# 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.MediaConvert.Types.HlsProgramDateTime
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaConvert.Types.HlsProgramDateTime
  ( HlsProgramDateTime
      ( ..,
        HlsProgramDateTime_EXCLUDE,
        HlsProgramDateTime_INCLUDE
      ),
  )
where

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

-- | Includes or excludes EXT-X-PROGRAM-DATE-TIME tag in .m3u8 manifest
-- files. The value is calculated as follows: either the program date and
-- time are initialized using the input timecode source, or the time is
-- initialized using the input timecode source and the date is initialized
-- using the timestamp_offset.
newtype HlsProgramDateTime = HlsProgramDateTime'
  { HlsProgramDateTime -> Text
fromHlsProgramDateTime ::
      Data.Text
  }
  deriving stock
    ( Int -> HlsProgramDateTime -> ShowS
[HlsProgramDateTime] -> ShowS
HlsProgramDateTime -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HlsProgramDateTime] -> ShowS
$cshowList :: [HlsProgramDateTime] -> ShowS
show :: HlsProgramDateTime -> String
$cshow :: HlsProgramDateTime -> String
showsPrec :: Int -> HlsProgramDateTime -> ShowS
$cshowsPrec :: Int -> HlsProgramDateTime -> ShowS
Prelude.Show,
      ReadPrec [HlsProgramDateTime]
ReadPrec HlsProgramDateTime
Int -> ReadS HlsProgramDateTime
ReadS [HlsProgramDateTime]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [HlsProgramDateTime]
$creadListPrec :: ReadPrec [HlsProgramDateTime]
readPrec :: ReadPrec HlsProgramDateTime
$creadPrec :: ReadPrec HlsProgramDateTime
readList :: ReadS [HlsProgramDateTime]
$creadList :: ReadS [HlsProgramDateTime]
readsPrec :: Int -> ReadS HlsProgramDateTime
$creadsPrec :: Int -> ReadS HlsProgramDateTime
Prelude.Read,
      HlsProgramDateTime -> HlsProgramDateTime -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c/= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
== :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c== :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
Prelude.Eq,
      Eq HlsProgramDateTime
HlsProgramDateTime -> HlsProgramDateTime -> Bool
HlsProgramDateTime -> HlsProgramDateTime -> Ordering
HlsProgramDateTime -> HlsProgramDateTime -> HlsProgramDateTime
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 :: HlsProgramDateTime -> HlsProgramDateTime -> HlsProgramDateTime
$cmin :: HlsProgramDateTime -> HlsProgramDateTime -> HlsProgramDateTime
max :: HlsProgramDateTime -> HlsProgramDateTime -> HlsProgramDateTime
$cmax :: HlsProgramDateTime -> HlsProgramDateTime -> HlsProgramDateTime
>= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c>= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
> :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c> :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
<= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c<= :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
< :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
$c< :: HlsProgramDateTime -> HlsProgramDateTime -> Bool
compare :: HlsProgramDateTime -> HlsProgramDateTime -> Ordering
$ccompare :: HlsProgramDateTime -> HlsProgramDateTime -> Ordering
Prelude.Ord,
      forall x. Rep HlsProgramDateTime x -> HlsProgramDateTime
forall x. HlsProgramDateTime -> Rep HlsProgramDateTime x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HlsProgramDateTime x -> HlsProgramDateTime
$cfrom :: forall x. HlsProgramDateTime -> Rep HlsProgramDateTime x
Prelude.Generic
    )
  deriving newtype
    ( Eq HlsProgramDateTime
Int -> HlsProgramDateTime -> Int
HlsProgramDateTime -> Int
forall a. Eq a -> (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: HlsProgramDateTime -> Int
$chash :: HlsProgramDateTime -> Int
hashWithSalt :: Int -> HlsProgramDateTime -> Int
$chashWithSalt :: Int -> HlsProgramDateTime -> Int
Prelude.Hashable,
      HlsProgramDateTime -> ()
forall a. (a -> ()) -> NFData a
rnf :: HlsProgramDateTime -> ()
$crnf :: HlsProgramDateTime -> ()
Prelude.NFData,
      Text -> Either String HlsProgramDateTime
forall a. (Text -> Either String a) -> FromText a
fromText :: Text -> Either String HlsProgramDateTime
$cfromText :: Text -> Either String HlsProgramDateTime
Data.FromText,
      HlsProgramDateTime -> Text
forall a. (a -> Text) -> ToText a
toText :: HlsProgramDateTime -> Text
$ctoText :: HlsProgramDateTime -> Text
Data.ToText,
      HlsProgramDateTime -> ByteString
forall a. (a -> ByteString) -> ToByteString a
toBS :: HlsProgramDateTime -> ByteString
$ctoBS :: HlsProgramDateTime -> ByteString
Data.ToByteString,
      HlsProgramDateTime -> ByteStringBuilder
forall a. (a -> ByteStringBuilder) -> ToLog a
build :: HlsProgramDateTime -> ByteStringBuilder
$cbuild :: HlsProgramDateTime -> ByteStringBuilder
Data.ToLog,
      HeaderName -> HlsProgramDateTime -> [Header]
forall a. (HeaderName -> a -> [Header]) -> ToHeader a
toHeader :: HeaderName -> HlsProgramDateTime -> [Header]
$ctoHeader :: HeaderName -> HlsProgramDateTime -> [Header]
Data.ToHeader,
      HlsProgramDateTime -> QueryString
forall a. (a -> QueryString) -> ToQuery a
toQuery :: HlsProgramDateTime -> QueryString
$ctoQuery :: HlsProgramDateTime -> QueryString
Data.ToQuery,
      Value -> Parser [HlsProgramDateTime]
Value -> Parser HlsProgramDateTime
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [HlsProgramDateTime]
$cparseJSONList :: Value -> Parser [HlsProgramDateTime]
parseJSON :: Value -> Parser HlsProgramDateTime
$cparseJSON :: Value -> Parser HlsProgramDateTime
Data.FromJSON,
      FromJSONKeyFunction [HlsProgramDateTime]
FromJSONKeyFunction HlsProgramDateTime
forall a.
FromJSONKeyFunction a -> FromJSONKeyFunction [a] -> FromJSONKey a
fromJSONKeyList :: FromJSONKeyFunction [HlsProgramDateTime]
$cfromJSONKeyList :: FromJSONKeyFunction [HlsProgramDateTime]
fromJSONKey :: FromJSONKeyFunction HlsProgramDateTime
$cfromJSONKey :: FromJSONKeyFunction HlsProgramDateTime
Data.FromJSONKey,
      [HlsProgramDateTime] -> Encoding
[HlsProgramDateTime] -> Value
HlsProgramDateTime -> Encoding
HlsProgramDateTime -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [HlsProgramDateTime] -> Encoding
$ctoEncodingList :: [HlsProgramDateTime] -> Encoding
toJSONList :: [HlsProgramDateTime] -> Value
$ctoJSONList :: [HlsProgramDateTime] -> Value
toEncoding :: HlsProgramDateTime -> Encoding
$ctoEncoding :: HlsProgramDateTime -> Encoding
toJSON :: HlsProgramDateTime -> Value
$ctoJSON :: HlsProgramDateTime -> Value
Data.ToJSON,
      ToJSONKeyFunction [HlsProgramDateTime]
ToJSONKeyFunction HlsProgramDateTime
forall a.
ToJSONKeyFunction a -> ToJSONKeyFunction [a] -> ToJSONKey a
toJSONKeyList :: ToJSONKeyFunction [HlsProgramDateTime]
$ctoJSONKeyList :: ToJSONKeyFunction [HlsProgramDateTime]
toJSONKey :: ToJSONKeyFunction HlsProgramDateTime
$ctoJSONKey :: ToJSONKeyFunction HlsProgramDateTime
Data.ToJSONKey,
      [Node] -> Either String HlsProgramDateTime
forall a. ([Node] -> Either String a) -> FromXML a
parseXML :: [Node] -> Either String HlsProgramDateTime
$cparseXML :: [Node] -> Either String HlsProgramDateTime
Data.FromXML,
      HlsProgramDateTime -> XML
forall a. (a -> XML) -> ToXML a
toXML :: HlsProgramDateTime -> XML
$ctoXML :: HlsProgramDateTime -> XML
Data.ToXML
    )

pattern HlsProgramDateTime_EXCLUDE :: HlsProgramDateTime
pattern $bHlsProgramDateTime_EXCLUDE :: HlsProgramDateTime
$mHlsProgramDateTime_EXCLUDE :: forall {r}. HlsProgramDateTime -> ((# #) -> r) -> ((# #) -> r) -> r
HlsProgramDateTime_EXCLUDE = HlsProgramDateTime' "EXCLUDE"

pattern HlsProgramDateTime_INCLUDE :: HlsProgramDateTime
pattern $bHlsProgramDateTime_INCLUDE :: HlsProgramDateTime
$mHlsProgramDateTime_INCLUDE :: forall {r}. HlsProgramDateTime -> ((# #) -> r) -> ((# #) -> r) -> r
HlsProgramDateTime_INCLUDE = HlsProgramDateTime' "INCLUDE"

{-# COMPLETE
  HlsProgramDateTime_EXCLUDE,
  HlsProgramDateTime_INCLUDE,
  HlsProgramDateTime'
  #-}