{-# 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.EC2.Types.InstanceStatusDetails
-- 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.EC2.Types.InstanceStatusDetails where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Internal
import Amazonka.EC2.Types.StatusName
import Amazonka.EC2.Types.StatusType
import qualified Amazonka.Prelude as Prelude

-- | Describes the instance status.
--
-- /See:/ 'newInstanceStatusDetails' smart constructor.
data InstanceStatusDetails = InstanceStatusDetails'
  { -- | The time when a status check failed. For an instance that was launched
    -- and impaired, this is the time when the instance was launched.
    InstanceStatusDetails -> Maybe ISO8601
impairedSince :: Prelude.Maybe Data.ISO8601,
    -- | The type of instance status.
    InstanceStatusDetails -> Maybe StatusName
name :: Prelude.Maybe StatusName,
    -- | The status.
    InstanceStatusDetails -> Maybe StatusType
status :: Prelude.Maybe StatusType
  }
  deriving (InstanceStatusDetails -> InstanceStatusDetails -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InstanceStatusDetails -> InstanceStatusDetails -> Bool
$c/= :: InstanceStatusDetails -> InstanceStatusDetails -> Bool
== :: InstanceStatusDetails -> InstanceStatusDetails -> Bool
$c== :: InstanceStatusDetails -> InstanceStatusDetails -> Bool
Prelude.Eq, ReadPrec [InstanceStatusDetails]
ReadPrec InstanceStatusDetails
Int -> ReadS InstanceStatusDetails
ReadS [InstanceStatusDetails]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [InstanceStatusDetails]
$creadListPrec :: ReadPrec [InstanceStatusDetails]
readPrec :: ReadPrec InstanceStatusDetails
$creadPrec :: ReadPrec InstanceStatusDetails
readList :: ReadS [InstanceStatusDetails]
$creadList :: ReadS [InstanceStatusDetails]
readsPrec :: Int -> ReadS InstanceStatusDetails
$creadsPrec :: Int -> ReadS InstanceStatusDetails
Prelude.Read, Int -> InstanceStatusDetails -> ShowS
[InstanceStatusDetails] -> ShowS
InstanceStatusDetails -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InstanceStatusDetails] -> ShowS
$cshowList :: [InstanceStatusDetails] -> ShowS
show :: InstanceStatusDetails -> String
$cshow :: InstanceStatusDetails -> String
showsPrec :: Int -> InstanceStatusDetails -> ShowS
$cshowsPrec :: Int -> InstanceStatusDetails -> ShowS
Prelude.Show, forall x. Rep InstanceStatusDetails x -> InstanceStatusDetails
forall x. InstanceStatusDetails -> Rep InstanceStatusDetails x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InstanceStatusDetails x -> InstanceStatusDetails
$cfrom :: forall x. InstanceStatusDetails -> Rep InstanceStatusDetails x
Prelude.Generic)

-- |
-- Create a value of 'InstanceStatusDetails' 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:
--
-- 'impairedSince', 'instanceStatusDetails_impairedSince' - The time when a status check failed. For an instance that was launched
-- and impaired, this is the time when the instance was launched.
--
-- 'name', 'instanceStatusDetails_name' - The type of instance status.
--
-- 'status', 'instanceStatusDetails_status' - The status.
newInstanceStatusDetails ::
  InstanceStatusDetails
newInstanceStatusDetails :: InstanceStatusDetails
newInstanceStatusDetails =
  InstanceStatusDetails'
    { $sel:impairedSince:InstanceStatusDetails' :: Maybe ISO8601
impairedSince =
        forall a. Maybe a
Prelude.Nothing,
      $sel:name:InstanceStatusDetails' :: Maybe StatusName
name = forall a. Maybe a
Prelude.Nothing,
      $sel:status:InstanceStatusDetails' :: Maybe StatusType
status = forall a. Maybe a
Prelude.Nothing
    }

-- | The time when a status check failed. For an instance that was launched
-- and impaired, this is the time when the instance was launched.
instanceStatusDetails_impairedSince :: Lens.Lens' InstanceStatusDetails (Prelude.Maybe Prelude.UTCTime)
instanceStatusDetails_impairedSince :: Lens' InstanceStatusDetails (Maybe UTCTime)
instanceStatusDetails_impairedSince = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InstanceStatusDetails' {Maybe ISO8601
impairedSince :: Maybe ISO8601
$sel:impairedSince:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe ISO8601
impairedSince} -> Maybe ISO8601
impairedSince) (\s :: InstanceStatusDetails
s@InstanceStatusDetails' {} Maybe ISO8601
a -> InstanceStatusDetails
s {$sel:impairedSince:InstanceStatusDetails' :: Maybe ISO8601
impairedSince = Maybe ISO8601
a} :: InstanceStatusDetails) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The type of instance status.
instanceStatusDetails_name :: Lens.Lens' InstanceStatusDetails (Prelude.Maybe StatusName)
instanceStatusDetails_name :: Lens' InstanceStatusDetails (Maybe StatusName)
instanceStatusDetails_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InstanceStatusDetails' {Maybe StatusName
name :: Maybe StatusName
$sel:name:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusName
name} -> Maybe StatusName
name) (\s :: InstanceStatusDetails
s@InstanceStatusDetails' {} Maybe StatusName
a -> InstanceStatusDetails
s {$sel:name:InstanceStatusDetails' :: Maybe StatusName
name = Maybe StatusName
a} :: InstanceStatusDetails)

-- | The status.
instanceStatusDetails_status :: Lens.Lens' InstanceStatusDetails (Prelude.Maybe StatusType)
instanceStatusDetails_status :: Lens' InstanceStatusDetails (Maybe StatusType)
instanceStatusDetails_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InstanceStatusDetails' {Maybe StatusType
status :: Maybe StatusType
$sel:status:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusType
status} -> Maybe StatusType
status) (\s :: InstanceStatusDetails
s@InstanceStatusDetails' {} Maybe StatusType
a -> InstanceStatusDetails
s {$sel:status:InstanceStatusDetails' :: Maybe StatusType
status = Maybe StatusType
a} :: InstanceStatusDetails)

instance Data.FromXML InstanceStatusDetails where
  parseXML :: [Node] -> Either String InstanceStatusDetails
parseXML [Node]
x =
    Maybe ISO8601
-> Maybe StatusName -> Maybe StatusType -> InstanceStatusDetails
InstanceStatusDetails'
      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"impairedSince")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"name")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"status")

instance Prelude.Hashable InstanceStatusDetails where
  hashWithSalt :: Int -> InstanceStatusDetails -> Int
hashWithSalt Int
_salt InstanceStatusDetails' {Maybe ISO8601
Maybe StatusName
Maybe StatusType
status :: Maybe StatusType
name :: Maybe StatusName
impairedSince :: Maybe ISO8601
$sel:status:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusType
$sel:name:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusName
$sel:impairedSince:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe ISO8601
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
impairedSince
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StatusName
name
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StatusType
status

instance Prelude.NFData InstanceStatusDetails where
  rnf :: InstanceStatusDetails -> ()
rnf InstanceStatusDetails' {Maybe ISO8601
Maybe StatusName
Maybe StatusType
status :: Maybe StatusType
name :: Maybe StatusName
impairedSince :: Maybe ISO8601
$sel:status:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusType
$sel:name:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe StatusName
$sel:impairedSince:InstanceStatusDetails' :: InstanceStatusDetails -> Maybe ISO8601
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
impairedSince
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StatusName
name
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StatusType
status