{-# 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.GroundStation.Types.ContactData
-- 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.GroundStation.Types.ContactData where

import qualified Amazonka.Core as Core
import Amazonka.GroundStation.Types.ContactStatus
import Amazonka.GroundStation.Types.Elevation
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | Data describing a contact.
--
-- /See:/ 'newContactData' smart constructor.
data ContactData = ContactData'
  { -- | Status of a contact.
    ContactData -> Maybe ContactStatus
contactStatus :: Prelude.Maybe ContactStatus,
    -- | ARN of a mission profile.
    ContactData -> Maybe Text
missionProfileArn :: Prelude.Maybe Prelude.Text,
    -- | Start time of a contact.
    ContactData -> Maybe POSIX
startTime :: Prelude.Maybe Core.POSIX,
    -- | ARN of a satellite.
    ContactData -> Maybe Text
satelliteArn :: Prelude.Maybe Prelude.Text,
    -- | Maximum elevation angle of a contact.
    ContactData -> Maybe Elevation
maximumElevation :: Prelude.Maybe Elevation,
    -- | Name of a ground station.
    ContactData -> Maybe Text
groundStation :: Prelude.Maybe Prelude.Text,
    -- | End time of a contact.
    ContactData -> Maybe POSIX
endTime :: Prelude.Maybe Core.POSIX,
    -- | UUID of a contact.
    ContactData -> Maybe Text
contactId :: Prelude.Maybe Prelude.Text,
    -- | Region of a contact.
    ContactData -> Maybe Text
region :: Prelude.Maybe Prelude.Text,
    -- | Amount of time after a contact ends that you’d like to receive a
    -- CloudWatch event indicating the pass has finished.
    ContactData -> Maybe POSIX
postPassEndTime :: Prelude.Maybe Core.POSIX,
    -- | Amount of time prior to contact start you’d like to receive a CloudWatch
    -- event indicating an upcoming pass.
    ContactData -> Maybe POSIX
prePassStartTime :: Prelude.Maybe Core.POSIX,
    -- | Error message of a contact.
    ContactData -> Maybe Text
errorMessage :: Prelude.Maybe Prelude.Text,
    -- | Tags assigned to a contact.
    ContactData -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)
  }
  deriving (ContactData -> ContactData -> Bool
(ContactData -> ContactData -> Bool)
-> (ContactData -> ContactData -> Bool) -> Eq ContactData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ContactData -> ContactData -> Bool
$c/= :: ContactData -> ContactData -> Bool
== :: ContactData -> ContactData -> Bool
$c== :: ContactData -> ContactData -> Bool
Prelude.Eq, ReadPrec [ContactData]
ReadPrec ContactData
Int -> ReadS ContactData
ReadS [ContactData]
(Int -> ReadS ContactData)
-> ReadS [ContactData]
-> ReadPrec ContactData
-> ReadPrec [ContactData]
-> Read ContactData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ContactData]
$creadListPrec :: ReadPrec [ContactData]
readPrec :: ReadPrec ContactData
$creadPrec :: ReadPrec ContactData
readList :: ReadS [ContactData]
$creadList :: ReadS [ContactData]
readsPrec :: Int -> ReadS ContactData
$creadsPrec :: Int -> ReadS ContactData
Prelude.Read, Int -> ContactData -> ShowS
[ContactData] -> ShowS
ContactData -> String
(Int -> ContactData -> ShowS)
-> (ContactData -> String)
-> ([ContactData] -> ShowS)
-> Show ContactData
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ContactData] -> ShowS
$cshowList :: [ContactData] -> ShowS
show :: ContactData -> String
$cshow :: ContactData -> String
showsPrec :: Int -> ContactData -> ShowS
$cshowsPrec :: Int -> ContactData -> ShowS
Prelude.Show, (forall x. ContactData -> Rep ContactData x)
-> (forall x. Rep ContactData x -> ContactData)
-> Generic ContactData
forall x. Rep ContactData x -> ContactData
forall x. ContactData -> Rep ContactData x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ContactData x -> ContactData
$cfrom :: forall x. ContactData -> Rep ContactData x
Prelude.Generic)

-- |
-- Create a value of 'ContactData' 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:
--
-- 'contactStatus', 'contactData_contactStatus' - Status of a contact.
--
-- 'missionProfileArn', 'contactData_missionProfileArn' - ARN of a mission profile.
--
-- 'startTime', 'contactData_startTime' - Start time of a contact.
--
-- 'satelliteArn', 'contactData_satelliteArn' - ARN of a satellite.
--
-- 'maximumElevation', 'contactData_maximumElevation' - Maximum elevation angle of a contact.
--
-- 'groundStation', 'contactData_groundStation' - Name of a ground station.
--
-- 'endTime', 'contactData_endTime' - End time of a contact.
--
-- 'contactId', 'contactData_contactId' - UUID of a contact.
--
-- 'region', 'contactData_region' - Region of a contact.
--
-- 'postPassEndTime', 'contactData_postPassEndTime' - Amount of time after a contact ends that you’d like to receive a
-- CloudWatch event indicating the pass has finished.
--
-- 'prePassStartTime', 'contactData_prePassStartTime' - Amount of time prior to contact start you’d like to receive a CloudWatch
-- event indicating an upcoming pass.
--
-- 'errorMessage', 'contactData_errorMessage' - Error message of a contact.
--
-- 'tags', 'contactData_tags' - Tags assigned to a contact.
newContactData ::
  ContactData
newContactData :: ContactData
newContactData =
  ContactData' :: Maybe ContactStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Elevation
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> Maybe Text
-> Maybe (HashMap Text Text)
-> ContactData
ContactData'
    { $sel:contactStatus:ContactData' :: Maybe ContactStatus
contactStatus = Maybe ContactStatus
forall a. Maybe a
Prelude.Nothing,
      $sel:missionProfileArn:ContactData' :: Maybe Text
missionProfileArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:startTime:ContactData' :: Maybe POSIX
startTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:satelliteArn:ContactData' :: Maybe Text
satelliteArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:maximumElevation:ContactData' :: Maybe Elevation
maximumElevation = Maybe Elevation
forall a. Maybe a
Prelude.Nothing,
      $sel:groundStation:ContactData' :: Maybe Text
groundStation = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:endTime:ContactData' :: Maybe POSIX
endTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:contactId:ContactData' :: Maybe Text
contactId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:region:ContactData' :: Maybe Text
region = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:postPassEndTime:ContactData' :: Maybe POSIX
postPassEndTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:prePassStartTime:ContactData' :: Maybe POSIX
prePassStartTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:errorMessage:ContactData' :: Maybe Text
errorMessage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:ContactData' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing
    }

-- | Status of a contact.
contactData_contactStatus :: Lens.Lens' ContactData (Prelude.Maybe ContactStatus)
contactData_contactStatus :: (Maybe ContactStatus -> f (Maybe ContactStatus))
-> ContactData -> f ContactData
contactData_contactStatus = (ContactData -> Maybe ContactStatus)
-> (ContactData -> Maybe ContactStatus -> ContactData)
-> Lens
     ContactData ContactData (Maybe ContactStatus) (Maybe ContactStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe ContactStatus
contactStatus :: Maybe ContactStatus
$sel:contactStatus:ContactData' :: ContactData -> Maybe ContactStatus
contactStatus} -> Maybe ContactStatus
contactStatus) (\s :: ContactData
s@ContactData' {} Maybe ContactStatus
a -> ContactData
s {$sel:contactStatus:ContactData' :: Maybe ContactStatus
contactStatus = Maybe ContactStatus
a} :: ContactData)

-- | ARN of a mission profile.
contactData_missionProfileArn :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_missionProfileArn :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_missionProfileArn = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
missionProfileArn :: Maybe Text
$sel:missionProfileArn:ContactData' :: ContactData -> Maybe Text
missionProfileArn} -> Maybe Text
missionProfileArn) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:missionProfileArn:ContactData' :: Maybe Text
missionProfileArn = Maybe Text
a} :: ContactData)

-- | Start time of a contact.
contactData_startTime :: Lens.Lens' ContactData (Prelude.Maybe Prelude.UTCTime)
contactData_startTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData -> f ContactData
contactData_startTime = (ContactData -> Maybe POSIX)
-> (ContactData -> Maybe POSIX -> ContactData)
-> Lens ContactData ContactData (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe POSIX
startTime :: Maybe POSIX
$sel:startTime:ContactData' :: ContactData -> Maybe POSIX
startTime} -> Maybe POSIX
startTime) (\s :: ContactData
s@ContactData' {} Maybe POSIX
a -> ContactData
s {$sel:startTime:ContactData' :: Maybe POSIX
startTime = Maybe POSIX
a} :: ContactData) ((Maybe POSIX -> f (Maybe POSIX)) -> ContactData -> f ContactData)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData
-> f ContactData
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | ARN of a satellite.
contactData_satelliteArn :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_satelliteArn :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_satelliteArn = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
satelliteArn :: Maybe Text
$sel:satelliteArn:ContactData' :: ContactData -> Maybe Text
satelliteArn} -> Maybe Text
satelliteArn) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:satelliteArn:ContactData' :: Maybe Text
satelliteArn = Maybe Text
a} :: ContactData)

-- | Maximum elevation angle of a contact.
contactData_maximumElevation :: Lens.Lens' ContactData (Prelude.Maybe Elevation)
contactData_maximumElevation :: (Maybe Elevation -> f (Maybe Elevation))
-> ContactData -> f ContactData
contactData_maximumElevation = (ContactData -> Maybe Elevation)
-> (ContactData -> Maybe Elevation -> ContactData)
-> Lens ContactData ContactData (Maybe Elevation) (Maybe Elevation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Elevation
maximumElevation :: Maybe Elevation
$sel:maximumElevation:ContactData' :: ContactData -> Maybe Elevation
maximumElevation} -> Maybe Elevation
maximumElevation) (\s :: ContactData
s@ContactData' {} Maybe Elevation
a -> ContactData
s {$sel:maximumElevation:ContactData' :: Maybe Elevation
maximumElevation = Maybe Elevation
a} :: ContactData)

-- | Name of a ground station.
contactData_groundStation :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_groundStation :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_groundStation = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
groundStation :: Maybe Text
$sel:groundStation:ContactData' :: ContactData -> Maybe Text
groundStation} -> Maybe Text
groundStation) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:groundStation:ContactData' :: Maybe Text
groundStation = Maybe Text
a} :: ContactData)

-- | End time of a contact.
contactData_endTime :: Lens.Lens' ContactData (Prelude.Maybe Prelude.UTCTime)
contactData_endTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData -> f ContactData
contactData_endTime = (ContactData -> Maybe POSIX)
-> (ContactData -> Maybe POSIX -> ContactData)
-> Lens ContactData ContactData (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe POSIX
endTime :: Maybe POSIX
$sel:endTime:ContactData' :: ContactData -> Maybe POSIX
endTime} -> Maybe POSIX
endTime) (\s :: ContactData
s@ContactData' {} Maybe POSIX
a -> ContactData
s {$sel:endTime:ContactData' :: Maybe POSIX
endTime = Maybe POSIX
a} :: ContactData) ((Maybe POSIX -> f (Maybe POSIX)) -> ContactData -> f ContactData)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData
-> f ContactData
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | UUID of a contact.
contactData_contactId :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_contactId :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_contactId = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
contactId :: Maybe Text
$sel:contactId:ContactData' :: ContactData -> Maybe Text
contactId} -> Maybe Text
contactId) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:contactId:ContactData' :: Maybe Text
contactId = Maybe Text
a} :: ContactData)

-- | Region of a contact.
contactData_region :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_region :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_region = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
region :: Maybe Text
$sel:region:ContactData' :: ContactData -> Maybe Text
region} -> Maybe Text
region) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:region:ContactData' :: Maybe Text
region = Maybe Text
a} :: ContactData)

-- | Amount of time after a contact ends that you’d like to receive a
-- CloudWatch event indicating the pass has finished.
contactData_postPassEndTime :: Lens.Lens' ContactData (Prelude.Maybe Prelude.UTCTime)
contactData_postPassEndTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData -> f ContactData
contactData_postPassEndTime = (ContactData -> Maybe POSIX)
-> (ContactData -> Maybe POSIX -> ContactData)
-> Lens ContactData ContactData (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe POSIX
postPassEndTime :: Maybe POSIX
$sel:postPassEndTime:ContactData' :: ContactData -> Maybe POSIX
postPassEndTime} -> Maybe POSIX
postPassEndTime) (\s :: ContactData
s@ContactData' {} Maybe POSIX
a -> ContactData
s {$sel:postPassEndTime:ContactData' :: Maybe POSIX
postPassEndTime = Maybe POSIX
a} :: ContactData) ((Maybe POSIX -> f (Maybe POSIX)) -> ContactData -> f ContactData)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData
-> f ContactData
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | Amount of time prior to contact start you’d like to receive a CloudWatch
-- event indicating an upcoming pass.
contactData_prePassStartTime :: Lens.Lens' ContactData (Prelude.Maybe Prelude.UTCTime)
contactData_prePassStartTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData -> f ContactData
contactData_prePassStartTime = (ContactData -> Maybe POSIX)
-> (ContactData -> Maybe POSIX -> ContactData)
-> Lens ContactData ContactData (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe POSIX
prePassStartTime :: Maybe POSIX
$sel:prePassStartTime:ContactData' :: ContactData -> Maybe POSIX
prePassStartTime} -> Maybe POSIX
prePassStartTime) (\s :: ContactData
s@ContactData' {} Maybe POSIX
a -> ContactData
s {$sel:prePassStartTime:ContactData' :: Maybe POSIX
prePassStartTime = Maybe POSIX
a} :: ContactData) ((Maybe POSIX -> f (Maybe POSIX)) -> ContactData -> f ContactData)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ContactData
-> f ContactData
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | Error message of a contact.
contactData_errorMessage :: Lens.Lens' ContactData (Prelude.Maybe Prelude.Text)
contactData_errorMessage :: (Maybe Text -> f (Maybe Text)) -> ContactData -> f ContactData
contactData_errorMessage = (ContactData -> Maybe Text)
-> (ContactData -> Maybe Text -> ContactData)
-> Lens ContactData ContactData (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe Text
errorMessage :: Maybe Text
$sel:errorMessage:ContactData' :: ContactData -> Maybe Text
errorMessage} -> Maybe Text
errorMessage) (\s :: ContactData
s@ContactData' {} Maybe Text
a -> ContactData
s {$sel:errorMessage:ContactData' :: Maybe Text
errorMessage = Maybe Text
a} :: ContactData)

-- | Tags assigned to a contact.
contactData_tags :: Lens.Lens' ContactData (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
contactData_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> ContactData -> f ContactData
contactData_tags = (ContactData -> Maybe (HashMap Text Text))
-> (ContactData -> Maybe (HashMap Text Text) -> ContactData)
-> Lens
     ContactData
     ContactData
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ContactData' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:ContactData' :: ContactData -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: ContactData
s@ContactData' {} Maybe (HashMap Text Text)
a -> ContactData
s {$sel:tags:ContactData' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: ContactData) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> ContactData -> f ContactData)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> ContactData
-> f ContactData
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Core.FromJSON ContactData where
  parseJSON :: Value -> Parser ContactData
parseJSON =
    String
-> (Object -> Parser ContactData) -> Value -> Parser ContactData
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"ContactData"
      ( \Object
x ->
          Maybe ContactStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Elevation
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> Maybe Text
-> Maybe (HashMap Text Text)
-> ContactData
ContactData'
            (Maybe ContactStatus
 -> Maybe Text
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Elevation
 -> Maybe Text
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Text
 -> Maybe POSIX
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe (HashMap Text Text)
 -> ContactData)
-> Parser (Maybe ContactStatus)
-> Parser
     (Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Elevation
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe ContactStatus)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"contactStatus")
            Parser
  (Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Elevation
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Text)
-> Parser
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Elevation
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"missionProfileArn")
            Parser
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Elevation
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe POSIX)
-> Parser
     (Maybe Text
      -> Maybe Elevation
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"startTime")
            Parser
  (Maybe Text
   -> Maybe Elevation
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Text)
-> Parser
     (Maybe Elevation
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"satelliteArn")
            Parser
  (Maybe Elevation
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Elevation)
-> Parser
     (Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Elevation)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"maximumElevation")
            Parser
  (Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Text)
-> Parser
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"groundStation")
            Parser
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe POSIX)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"endTime")
            Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"contactId")
            Parser
  (Maybe Text
   -> Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe Text)
-> Parser
     (Maybe POSIX
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"region")
            Parser
  (Maybe POSIX
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> ContactData)
-> Parser (Maybe POSIX)
-> Parser
     (Maybe POSIX
      -> Maybe Text -> Maybe (HashMap Text Text) -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"postPassEndTime")
            Parser
  (Maybe POSIX
   -> Maybe Text -> Maybe (HashMap Text Text) -> ContactData)
-> Parser (Maybe POSIX)
-> Parser (Maybe Text -> Maybe (HashMap Text Text) -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"prePassStartTime")
            Parser (Maybe Text -> Maybe (HashMap Text Text) -> ContactData)
-> Parser (Maybe Text)
-> Parser (Maybe (HashMap Text Text) -> ContactData)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"errorMessage")
            Parser (Maybe (HashMap Text Text) -> ContactData)
-> Parser (Maybe (HashMap Text Text)) -> Parser ContactData
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"tags" Parser (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text) -> Parser (Maybe (HashMap Text Text))
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
      )

instance Prelude.Hashable ContactData

instance Prelude.NFData ContactData