{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

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

-- |
-- Module      : Amazonka.MediaLive.Types.InputDeviceUhdSettings
-- 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.MediaLive.Types.InputDeviceUhdSettings where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.MediaLive.Types.InputDeviceActiveInput
import Amazonka.MediaLive.Types.InputDeviceConfiguredInput
import Amazonka.MediaLive.Types.InputDeviceScanType
import Amazonka.MediaLive.Types.InputDeviceState
import qualified Amazonka.Prelude as Prelude

-- | Settings that describe the active source from the input device, and the
-- video characteristics of that source.
--
-- /See:/ 'newInputDeviceUhdSettings' smart constructor.
data InputDeviceUhdSettings = InputDeviceUhdSettings'
  { -- | The frame rate of the video source.
    InputDeviceUhdSettings -> Maybe Double
framerate :: Prelude.Maybe Prelude.Double,
    -- | The scan type of the video source.
    InputDeviceUhdSettings -> Maybe InputDeviceScanType
scanType :: Prelude.Maybe InputDeviceScanType,
    -- | The state of the input device.
    InputDeviceUhdSettings -> Maybe InputDeviceState
deviceState :: Prelude.Maybe InputDeviceState,
    -- | The height of the video source, in pixels.
    InputDeviceUhdSettings -> Maybe Int
height :: Prelude.Maybe Prelude.Int,
    -- | If you specified Auto as the configured input, specifies which of the
    -- sources is currently active (SDI or HDMI).
    InputDeviceUhdSettings -> Maybe InputDeviceActiveInput
activeInput :: Prelude.Maybe InputDeviceActiveInput,
    -- | The width of the video source, in pixels.
    InputDeviceUhdSettings -> Maybe Int
width :: Prelude.Maybe Prelude.Int,
    -- | The source at the input device that is currently active. You can specify
    -- this source.
    InputDeviceUhdSettings -> Maybe InputDeviceConfiguredInput
configuredInput :: Prelude.Maybe InputDeviceConfiguredInput,
    -- | The current maximum bitrate for ingesting this source, in bits per
    -- second. You can specify this maximum.
    InputDeviceUhdSettings -> Maybe Int
maxBitrate :: Prelude.Maybe Prelude.Int
  }
  deriving (InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool
(InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool)
-> (InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool)
-> Eq InputDeviceUhdSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool
$c/= :: InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool
== :: InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool
$c== :: InputDeviceUhdSettings -> InputDeviceUhdSettings -> Bool
Prelude.Eq, ReadPrec [InputDeviceUhdSettings]
ReadPrec InputDeviceUhdSettings
Int -> ReadS InputDeviceUhdSettings
ReadS [InputDeviceUhdSettings]
(Int -> ReadS InputDeviceUhdSettings)
-> ReadS [InputDeviceUhdSettings]
-> ReadPrec InputDeviceUhdSettings
-> ReadPrec [InputDeviceUhdSettings]
-> Read InputDeviceUhdSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [InputDeviceUhdSettings]
$creadListPrec :: ReadPrec [InputDeviceUhdSettings]
readPrec :: ReadPrec InputDeviceUhdSettings
$creadPrec :: ReadPrec InputDeviceUhdSettings
readList :: ReadS [InputDeviceUhdSettings]
$creadList :: ReadS [InputDeviceUhdSettings]
readsPrec :: Int -> ReadS InputDeviceUhdSettings
$creadsPrec :: Int -> ReadS InputDeviceUhdSettings
Prelude.Read, Int -> InputDeviceUhdSettings -> ShowS
[InputDeviceUhdSettings] -> ShowS
InputDeviceUhdSettings -> String
(Int -> InputDeviceUhdSettings -> ShowS)
-> (InputDeviceUhdSettings -> String)
-> ([InputDeviceUhdSettings] -> ShowS)
-> Show InputDeviceUhdSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InputDeviceUhdSettings] -> ShowS
$cshowList :: [InputDeviceUhdSettings] -> ShowS
show :: InputDeviceUhdSettings -> String
$cshow :: InputDeviceUhdSettings -> String
showsPrec :: Int -> InputDeviceUhdSettings -> ShowS
$cshowsPrec :: Int -> InputDeviceUhdSettings -> ShowS
Prelude.Show, (forall x. InputDeviceUhdSettings -> Rep InputDeviceUhdSettings x)
-> (forall x.
    Rep InputDeviceUhdSettings x -> InputDeviceUhdSettings)
-> Generic InputDeviceUhdSettings
forall x. Rep InputDeviceUhdSettings x -> InputDeviceUhdSettings
forall x. InputDeviceUhdSettings -> Rep InputDeviceUhdSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InputDeviceUhdSettings x -> InputDeviceUhdSettings
$cfrom :: forall x. InputDeviceUhdSettings -> Rep InputDeviceUhdSettings x
Prelude.Generic)

-- |
-- Create a value of 'InputDeviceUhdSettings' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'framerate', 'inputDeviceUhdSettings_framerate' - The frame rate of the video source.
--
-- 'scanType', 'inputDeviceUhdSettings_scanType' - The scan type of the video source.
--
-- 'deviceState', 'inputDeviceUhdSettings_deviceState' - The state of the input device.
--
-- 'height', 'inputDeviceUhdSettings_height' - The height of the video source, in pixels.
--
-- 'activeInput', 'inputDeviceUhdSettings_activeInput' - If you specified Auto as the configured input, specifies which of the
-- sources is currently active (SDI or HDMI).
--
-- 'width', 'inputDeviceUhdSettings_width' - The width of the video source, in pixels.
--
-- 'configuredInput', 'inputDeviceUhdSettings_configuredInput' - The source at the input device that is currently active. You can specify
-- this source.
--
-- 'maxBitrate', 'inputDeviceUhdSettings_maxBitrate' - The current maximum bitrate for ingesting this source, in bits per
-- second. You can specify this maximum.
newInputDeviceUhdSettings ::
  InputDeviceUhdSettings
newInputDeviceUhdSettings :: InputDeviceUhdSettings
newInputDeviceUhdSettings =
  InputDeviceUhdSettings' :: Maybe Double
-> Maybe InputDeviceScanType
-> Maybe InputDeviceState
-> Maybe Int
-> Maybe InputDeviceActiveInput
-> Maybe Int
-> Maybe InputDeviceConfiguredInput
-> Maybe Int
-> InputDeviceUhdSettings
InputDeviceUhdSettings'
    { $sel:framerate:InputDeviceUhdSettings' :: Maybe Double
framerate =
        Maybe Double
forall a. Maybe a
Prelude.Nothing,
      $sel:scanType:InputDeviceUhdSettings' :: Maybe InputDeviceScanType
scanType = Maybe InputDeviceScanType
forall a. Maybe a
Prelude.Nothing,
      $sel:deviceState:InputDeviceUhdSettings' :: Maybe InputDeviceState
deviceState = Maybe InputDeviceState
forall a. Maybe a
Prelude.Nothing,
      $sel:height:InputDeviceUhdSettings' :: Maybe Int
height = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:activeInput:InputDeviceUhdSettings' :: Maybe InputDeviceActiveInput
activeInput = Maybe InputDeviceActiveInput
forall a. Maybe a
Prelude.Nothing,
      $sel:width:InputDeviceUhdSettings' :: Maybe Int
width = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:configuredInput:InputDeviceUhdSettings' :: Maybe InputDeviceConfiguredInput
configuredInput = Maybe InputDeviceConfiguredInput
forall a. Maybe a
Prelude.Nothing,
      $sel:maxBitrate:InputDeviceUhdSettings' :: Maybe Int
maxBitrate = Maybe Int
forall a. Maybe a
Prelude.Nothing
    }

-- | The frame rate of the video source.
inputDeviceUhdSettings_framerate :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe Prelude.Double)
inputDeviceUhdSettings_framerate :: (Maybe Double -> f (Maybe Double))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_framerate = (InputDeviceUhdSettings -> Maybe Double)
-> (InputDeviceUhdSettings
    -> Maybe Double -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe Double
framerate :: Maybe Double
$sel:framerate:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe Double
framerate} -> Maybe Double
framerate) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe Double
a -> InputDeviceUhdSettings
s {$sel:framerate:InputDeviceUhdSettings' :: Maybe Double
framerate = Maybe Double
a} :: InputDeviceUhdSettings)

-- | The scan type of the video source.
inputDeviceUhdSettings_scanType :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe InputDeviceScanType)
inputDeviceUhdSettings_scanType :: (Maybe InputDeviceScanType -> f (Maybe InputDeviceScanType))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_scanType = (InputDeviceUhdSettings -> Maybe InputDeviceScanType)
-> (InputDeviceUhdSettings
    -> Maybe InputDeviceScanType -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe InputDeviceScanType)
     (Maybe InputDeviceScanType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe InputDeviceScanType
scanType :: Maybe InputDeviceScanType
$sel:scanType:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe InputDeviceScanType
scanType} -> Maybe InputDeviceScanType
scanType) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe InputDeviceScanType
a -> InputDeviceUhdSettings
s {$sel:scanType:InputDeviceUhdSettings' :: Maybe InputDeviceScanType
scanType = Maybe InputDeviceScanType
a} :: InputDeviceUhdSettings)

-- | The state of the input device.
inputDeviceUhdSettings_deviceState :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe InputDeviceState)
inputDeviceUhdSettings_deviceState :: (Maybe InputDeviceState -> f (Maybe InputDeviceState))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_deviceState = (InputDeviceUhdSettings -> Maybe InputDeviceState)
-> (InputDeviceUhdSettings
    -> Maybe InputDeviceState -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe InputDeviceState)
     (Maybe InputDeviceState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe InputDeviceState
deviceState :: Maybe InputDeviceState
$sel:deviceState:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe InputDeviceState
deviceState} -> Maybe InputDeviceState
deviceState) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe InputDeviceState
a -> InputDeviceUhdSettings
s {$sel:deviceState:InputDeviceUhdSettings' :: Maybe InputDeviceState
deviceState = Maybe InputDeviceState
a} :: InputDeviceUhdSettings)

-- | The height of the video source, in pixels.
inputDeviceUhdSettings_height :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe Prelude.Int)
inputDeviceUhdSettings_height :: (Maybe Int -> f (Maybe Int))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_height = (InputDeviceUhdSettings -> Maybe Int)
-> (InputDeviceUhdSettings -> Maybe Int -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe Int
height :: Maybe Int
$sel:height:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe Int
height} -> Maybe Int
height) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe Int
a -> InputDeviceUhdSettings
s {$sel:height:InputDeviceUhdSettings' :: Maybe Int
height = Maybe Int
a} :: InputDeviceUhdSettings)

-- | If you specified Auto as the configured input, specifies which of the
-- sources is currently active (SDI or HDMI).
inputDeviceUhdSettings_activeInput :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe InputDeviceActiveInput)
inputDeviceUhdSettings_activeInput :: (Maybe InputDeviceActiveInput -> f (Maybe InputDeviceActiveInput))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_activeInput = (InputDeviceUhdSettings -> Maybe InputDeviceActiveInput)
-> (InputDeviceUhdSettings
    -> Maybe InputDeviceActiveInput -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe InputDeviceActiveInput)
     (Maybe InputDeviceActiveInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe InputDeviceActiveInput
activeInput :: Maybe InputDeviceActiveInput
$sel:activeInput:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe InputDeviceActiveInput
activeInput} -> Maybe InputDeviceActiveInput
activeInput) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe InputDeviceActiveInput
a -> InputDeviceUhdSettings
s {$sel:activeInput:InputDeviceUhdSettings' :: Maybe InputDeviceActiveInput
activeInput = Maybe InputDeviceActiveInput
a} :: InputDeviceUhdSettings)

-- | The width of the video source, in pixels.
inputDeviceUhdSettings_width :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe Prelude.Int)
inputDeviceUhdSettings_width :: (Maybe Int -> f (Maybe Int))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_width = (InputDeviceUhdSettings -> Maybe Int)
-> (InputDeviceUhdSettings -> Maybe Int -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe Int
width :: Maybe Int
$sel:width:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe Int
width} -> Maybe Int
width) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe Int
a -> InputDeviceUhdSettings
s {$sel:width:InputDeviceUhdSettings' :: Maybe Int
width = Maybe Int
a} :: InputDeviceUhdSettings)

-- | The source at the input device that is currently active. You can specify
-- this source.
inputDeviceUhdSettings_configuredInput :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe InputDeviceConfiguredInput)
inputDeviceUhdSettings_configuredInput :: (Maybe InputDeviceConfiguredInput
 -> f (Maybe InputDeviceConfiguredInput))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_configuredInput = (InputDeviceUhdSettings -> Maybe InputDeviceConfiguredInput)
-> (InputDeviceUhdSettings
    -> Maybe InputDeviceConfiguredInput -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe InputDeviceConfiguredInput)
     (Maybe InputDeviceConfiguredInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe InputDeviceConfiguredInput
configuredInput :: Maybe InputDeviceConfiguredInput
$sel:configuredInput:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe InputDeviceConfiguredInput
configuredInput} -> Maybe InputDeviceConfiguredInput
configuredInput) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe InputDeviceConfiguredInput
a -> InputDeviceUhdSettings
s {$sel:configuredInput:InputDeviceUhdSettings' :: Maybe InputDeviceConfiguredInput
configuredInput = Maybe InputDeviceConfiguredInput
a} :: InputDeviceUhdSettings)

-- | The current maximum bitrate for ingesting this source, in bits per
-- second. You can specify this maximum.
inputDeviceUhdSettings_maxBitrate :: Lens.Lens' InputDeviceUhdSettings (Prelude.Maybe Prelude.Int)
inputDeviceUhdSettings_maxBitrate :: (Maybe Int -> f (Maybe Int))
-> InputDeviceUhdSettings -> f InputDeviceUhdSettings
inputDeviceUhdSettings_maxBitrate = (InputDeviceUhdSettings -> Maybe Int)
-> (InputDeviceUhdSettings -> Maybe Int -> InputDeviceUhdSettings)
-> Lens
     InputDeviceUhdSettings
     InputDeviceUhdSettings
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputDeviceUhdSettings' {Maybe Int
maxBitrate :: Maybe Int
$sel:maxBitrate:InputDeviceUhdSettings' :: InputDeviceUhdSettings -> Maybe Int
maxBitrate} -> Maybe Int
maxBitrate) (\s :: InputDeviceUhdSettings
s@InputDeviceUhdSettings' {} Maybe Int
a -> InputDeviceUhdSettings
s {$sel:maxBitrate:InputDeviceUhdSettings' :: Maybe Int
maxBitrate = Maybe Int
a} :: InputDeviceUhdSettings)

instance Core.FromJSON InputDeviceUhdSettings where
  parseJSON :: Value -> Parser InputDeviceUhdSettings
parseJSON =
    String
-> (Object -> Parser InputDeviceUhdSettings)
-> Value
-> Parser InputDeviceUhdSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"InputDeviceUhdSettings"
      ( \Object
x ->
          Maybe Double
-> Maybe InputDeviceScanType
-> Maybe InputDeviceState
-> Maybe Int
-> Maybe InputDeviceActiveInput
-> Maybe Int
-> Maybe InputDeviceConfiguredInput
-> Maybe Int
-> InputDeviceUhdSettings
InputDeviceUhdSettings'
            (Maybe Double
 -> Maybe InputDeviceScanType
 -> Maybe InputDeviceState
 -> Maybe Int
 -> Maybe InputDeviceActiveInput
 -> Maybe Int
 -> Maybe InputDeviceConfiguredInput
 -> Maybe Int
 -> InputDeviceUhdSettings)
-> Parser (Maybe Double)
-> Parser
     (Maybe InputDeviceScanType
      -> Maybe InputDeviceState
      -> Maybe Int
      -> Maybe InputDeviceActiveInput
      -> Maybe Int
      -> Maybe InputDeviceConfiguredInput
      -> Maybe Int
      -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"framerate")
            Parser
  (Maybe InputDeviceScanType
   -> Maybe InputDeviceState
   -> Maybe Int
   -> Maybe InputDeviceActiveInput
   -> Maybe Int
   -> Maybe InputDeviceConfiguredInput
   -> Maybe Int
   -> InputDeviceUhdSettings)
-> Parser (Maybe InputDeviceScanType)
-> Parser
     (Maybe InputDeviceState
      -> Maybe Int
      -> Maybe InputDeviceActiveInput
      -> Maybe Int
      -> Maybe InputDeviceConfiguredInput
      -> Maybe Int
      -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDeviceScanType)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"scanType")
            Parser
  (Maybe InputDeviceState
   -> Maybe Int
   -> Maybe InputDeviceActiveInput
   -> Maybe Int
   -> Maybe InputDeviceConfiguredInput
   -> Maybe Int
   -> InputDeviceUhdSettings)
-> Parser (Maybe InputDeviceState)
-> Parser
     (Maybe Int
      -> Maybe InputDeviceActiveInput
      -> Maybe Int
      -> Maybe InputDeviceConfiguredInput
      -> Maybe Int
      -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDeviceState)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"deviceState")
            Parser
  (Maybe Int
   -> Maybe InputDeviceActiveInput
   -> Maybe Int
   -> Maybe InputDeviceConfiguredInput
   -> Maybe Int
   -> InputDeviceUhdSettings)
-> Parser (Maybe Int)
-> Parser
     (Maybe InputDeviceActiveInput
      -> Maybe Int
      -> Maybe InputDeviceConfiguredInput
      -> Maybe Int
      -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"height")
            Parser
  (Maybe InputDeviceActiveInput
   -> Maybe Int
   -> Maybe InputDeviceConfiguredInput
   -> Maybe Int
   -> InputDeviceUhdSettings)
-> Parser (Maybe InputDeviceActiveInput)
-> Parser
     (Maybe Int
      -> Maybe InputDeviceConfiguredInput
      -> Maybe Int
      -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDeviceActiveInput)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"activeInput")
            Parser
  (Maybe Int
   -> Maybe InputDeviceConfiguredInput
   -> Maybe Int
   -> InputDeviceUhdSettings)
-> Parser (Maybe Int)
-> Parser
     (Maybe InputDeviceConfiguredInput
      -> Maybe Int -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"width")
            Parser
  (Maybe InputDeviceConfiguredInput
   -> Maybe Int -> InputDeviceUhdSettings)
-> Parser (Maybe InputDeviceConfiguredInput)
-> Parser (Maybe Int -> InputDeviceUhdSettings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDeviceConfiguredInput)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"configuredInput")
            Parser (Maybe Int -> InputDeviceUhdSettings)
-> Parser (Maybe Int) -> Parser InputDeviceUhdSettings
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"maxBitrate")
      )

instance Prelude.Hashable InputDeviceUhdSettings

instance Prelude.NFData InputDeviceUhdSettings