{-# 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 #-}
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
data InstanceStatusDetails = InstanceStatusDetails'
{
InstanceStatusDetails -> Maybe ISO8601
impairedSince :: Prelude.Maybe Data.ISO8601,
InstanceStatusDetails -> Maybe StatusName
name :: Prelude.Maybe StatusName,
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)
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
}
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
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)
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