{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SSM.GetDefaultPatchBaseline
(
GetDefaultPatchBaseline (..),
newGetDefaultPatchBaseline,
getDefaultPatchBaseline_operatingSystem,
GetDefaultPatchBaselineResponse (..),
newGetDefaultPatchBaselineResponse,
getDefaultPatchBaselineResponse_operatingSystem,
getDefaultPatchBaselineResponse_baselineId,
getDefaultPatchBaselineResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SSM.Types
data GetDefaultPatchBaseline = GetDefaultPatchBaseline'
{
GetDefaultPatchBaseline -> Maybe OperatingSystem
operatingSystem :: Prelude.Maybe OperatingSystem
}
deriving (GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool
(GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool)
-> (GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool)
-> Eq GetDefaultPatchBaseline
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool
$c/= :: GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool
== :: GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool
$c== :: GetDefaultPatchBaseline -> GetDefaultPatchBaseline -> Bool
Prelude.Eq, ReadPrec [GetDefaultPatchBaseline]
ReadPrec GetDefaultPatchBaseline
Int -> ReadS GetDefaultPatchBaseline
ReadS [GetDefaultPatchBaseline]
(Int -> ReadS GetDefaultPatchBaseline)
-> ReadS [GetDefaultPatchBaseline]
-> ReadPrec GetDefaultPatchBaseline
-> ReadPrec [GetDefaultPatchBaseline]
-> Read GetDefaultPatchBaseline
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDefaultPatchBaseline]
$creadListPrec :: ReadPrec [GetDefaultPatchBaseline]
readPrec :: ReadPrec GetDefaultPatchBaseline
$creadPrec :: ReadPrec GetDefaultPatchBaseline
readList :: ReadS [GetDefaultPatchBaseline]
$creadList :: ReadS [GetDefaultPatchBaseline]
readsPrec :: Int -> ReadS GetDefaultPatchBaseline
$creadsPrec :: Int -> ReadS GetDefaultPatchBaseline
Prelude.Read, Int -> GetDefaultPatchBaseline -> ShowS
[GetDefaultPatchBaseline] -> ShowS
GetDefaultPatchBaseline -> String
(Int -> GetDefaultPatchBaseline -> ShowS)
-> (GetDefaultPatchBaseline -> String)
-> ([GetDefaultPatchBaseline] -> ShowS)
-> Show GetDefaultPatchBaseline
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDefaultPatchBaseline] -> ShowS
$cshowList :: [GetDefaultPatchBaseline] -> ShowS
show :: GetDefaultPatchBaseline -> String
$cshow :: GetDefaultPatchBaseline -> String
showsPrec :: Int -> GetDefaultPatchBaseline -> ShowS
$cshowsPrec :: Int -> GetDefaultPatchBaseline -> ShowS
Prelude.Show, (forall x.
GetDefaultPatchBaseline -> Rep GetDefaultPatchBaseline x)
-> (forall x.
Rep GetDefaultPatchBaseline x -> GetDefaultPatchBaseline)
-> Generic GetDefaultPatchBaseline
forall x. Rep GetDefaultPatchBaseline x -> GetDefaultPatchBaseline
forall x. GetDefaultPatchBaseline -> Rep GetDefaultPatchBaseline x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetDefaultPatchBaseline x -> GetDefaultPatchBaseline
$cfrom :: forall x. GetDefaultPatchBaseline -> Rep GetDefaultPatchBaseline x
Prelude.Generic)
newGetDefaultPatchBaseline ::
GetDefaultPatchBaseline
newGetDefaultPatchBaseline :: GetDefaultPatchBaseline
newGetDefaultPatchBaseline =
GetDefaultPatchBaseline' :: Maybe OperatingSystem -> GetDefaultPatchBaseline
GetDefaultPatchBaseline'
{ $sel:operatingSystem:GetDefaultPatchBaseline' :: Maybe OperatingSystem
operatingSystem =
Maybe OperatingSystem
forall a. Maybe a
Prelude.Nothing
}
getDefaultPatchBaseline_operatingSystem :: Lens.Lens' GetDefaultPatchBaseline (Prelude.Maybe OperatingSystem)
getDefaultPatchBaseline_operatingSystem :: (Maybe OperatingSystem -> f (Maybe OperatingSystem))
-> GetDefaultPatchBaseline -> f GetDefaultPatchBaseline
getDefaultPatchBaseline_operatingSystem = (GetDefaultPatchBaseline -> Maybe OperatingSystem)
-> (GetDefaultPatchBaseline
-> Maybe OperatingSystem -> GetDefaultPatchBaseline)
-> Lens
GetDefaultPatchBaseline
GetDefaultPatchBaseline
(Maybe OperatingSystem)
(Maybe OperatingSystem)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDefaultPatchBaseline' {Maybe OperatingSystem
operatingSystem :: Maybe OperatingSystem
$sel:operatingSystem:GetDefaultPatchBaseline' :: GetDefaultPatchBaseline -> Maybe OperatingSystem
operatingSystem} -> Maybe OperatingSystem
operatingSystem) (\s :: GetDefaultPatchBaseline
s@GetDefaultPatchBaseline' {} Maybe OperatingSystem
a -> GetDefaultPatchBaseline
s {$sel:operatingSystem:GetDefaultPatchBaseline' :: Maybe OperatingSystem
operatingSystem = Maybe OperatingSystem
a} :: GetDefaultPatchBaseline)
instance Core.AWSRequest GetDefaultPatchBaseline where
type
AWSResponse GetDefaultPatchBaseline =
GetDefaultPatchBaselineResponse
request :: GetDefaultPatchBaseline -> Request GetDefaultPatchBaseline
request = Service
-> GetDefaultPatchBaseline -> Request GetDefaultPatchBaseline
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy GetDefaultPatchBaseline
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetDefaultPatchBaseline)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse GetDefaultPatchBaseline))
-> Logger
-> Service
-> Proxy GetDefaultPatchBaseline
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetDefaultPatchBaseline)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe OperatingSystem
-> Maybe Text -> Int -> GetDefaultPatchBaselineResponse
GetDefaultPatchBaselineResponse'
(Maybe OperatingSystem
-> Maybe Text -> Int -> GetDefaultPatchBaselineResponse)
-> Either String (Maybe OperatingSystem)
-> Either
String (Maybe Text -> Int -> GetDefaultPatchBaselineResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe OperatingSystem)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"OperatingSystem")
Either
String (Maybe Text -> Int -> GetDefaultPatchBaselineResponse)
-> Either String (Maybe Text)
-> Either String (Int -> GetDefaultPatchBaselineResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"BaselineId")
Either String (Int -> GetDefaultPatchBaselineResponse)
-> Either String Int
-> Either String GetDefaultPatchBaselineResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetDefaultPatchBaseline
instance Prelude.NFData GetDefaultPatchBaseline
instance Core.ToHeaders GetDefaultPatchBaseline where
toHeaders :: GetDefaultPatchBaseline -> ResponseHeaders
toHeaders =
ResponseHeaders -> GetDefaultPatchBaseline -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"AmazonSSM.GetDefaultPatchBaseline" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON GetDefaultPatchBaseline where
toJSON :: GetDefaultPatchBaseline -> Value
toJSON GetDefaultPatchBaseline' {Maybe OperatingSystem
operatingSystem :: Maybe OperatingSystem
$sel:operatingSystem:GetDefaultPatchBaseline' :: GetDefaultPatchBaseline -> Maybe OperatingSystem
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"OperatingSystem" Text -> OperatingSystem -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(OperatingSystem -> Pair) -> Maybe OperatingSystem -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OperatingSystem
operatingSystem
]
)
instance Core.ToPath GetDefaultPatchBaseline where
toPath :: GetDefaultPatchBaseline -> ByteString
toPath = ByteString -> GetDefaultPatchBaseline -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery GetDefaultPatchBaseline where
toQuery :: GetDefaultPatchBaseline -> QueryString
toQuery = QueryString -> GetDefaultPatchBaseline -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data GetDefaultPatchBaselineResponse = GetDefaultPatchBaselineResponse'
{
GetDefaultPatchBaselineResponse -> Maybe OperatingSystem
operatingSystem :: Prelude.Maybe OperatingSystem,
GetDefaultPatchBaselineResponse -> Maybe Text
baselineId :: Prelude.Maybe Prelude.Text,
GetDefaultPatchBaselineResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool
(GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool)
-> (GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool)
-> Eq GetDefaultPatchBaselineResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool
$c/= :: GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool
== :: GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool
$c== :: GetDefaultPatchBaselineResponse
-> GetDefaultPatchBaselineResponse -> Bool
Prelude.Eq, ReadPrec [GetDefaultPatchBaselineResponse]
ReadPrec GetDefaultPatchBaselineResponse
Int -> ReadS GetDefaultPatchBaselineResponse
ReadS [GetDefaultPatchBaselineResponse]
(Int -> ReadS GetDefaultPatchBaselineResponse)
-> ReadS [GetDefaultPatchBaselineResponse]
-> ReadPrec GetDefaultPatchBaselineResponse
-> ReadPrec [GetDefaultPatchBaselineResponse]
-> Read GetDefaultPatchBaselineResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDefaultPatchBaselineResponse]
$creadListPrec :: ReadPrec [GetDefaultPatchBaselineResponse]
readPrec :: ReadPrec GetDefaultPatchBaselineResponse
$creadPrec :: ReadPrec GetDefaultPatchBaselineResponse
readList :: ReadS [GetDefaultPatchBaselineResponse]
$creadList :: ReadS [GetDefaultPatchBaselineResponse]
readsPrec :: Int -> ReadS GetDefaultPatchBaselineResponse
$creadsPrec :: Int -> ReadS GetDefaultPatchBaselineResponse
Prelude.Read, Int -> GetDefaultPatchBaselineResponse -> ShowS
[GetDefaultPatchBaselineResponse] -> ShowS
GetDefaultPatchBaselineResponse -> String
(Int -> GetDefaultPatchBaselineResponse -> ShowS)
-> (GetDefaultPatchBaselineResponse -> String)
-> ([GetDefaultPatchBaselineResponse] -> ShowS)
-> Show GetDefaultPatchBaselineResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDefaultPatchBaselineResponse] -> ShowS
$cshowList :: [GetDefaultPatchBaselineResponse] -> ShowS
show :: GetDefaultPatchBaselineResponse -> String
$cshow :: GetDefaultPatchBaselineResponse -> String
showsPrec :: Int -> GetDefaultPatchBaselineResponse -> ShowS
$cshowsPrec :: Int -> GetDefaultPatchBaselineResponse -> ShowS
Prelude.Show, (forall x.
GetDefaultPatchBaselineResponse
-> Rep GetDefaultPatchBaselineResponse x)
-> (forall x.
Rep GetDefaultPatchBaselineResponse x
-> GetDefaultPatchBaselineResponse)
-> Generic GetDefaultPatchBaselineResponse
forall x.
Rep GetDefaultPatchBaselineResponse x
-> GetDefaultPatchBaselineResponse
forall x.
GetDefaultPatchBaselineResponse
-> Rep GetDefaultPatchBaselineResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetDefaultPatchBaselineResponse x
-> GetDefaultPatchBaselineResponse
$cfrom :: forall x.
GetDefaultPatchBaselineResponse
-> Rep GetDefaultPatchBaselineResponse x
Prelude.Generic)
newGetDefaultPatchBaselineResponse ::
Prelude.Int ->
GetDefaultPatchBaselineResponse
newGetDefaultPatchBaselineResponse :: Int -> GetDefaultPatchBaselineResponse
newGetDefaultPatchBaselineResponse Int
pHttpStatus_ =
GetDefaultPatchBaselineResponse' :: Maybe OperatingSystem
-> Maybe Text -> Int -> GetDefaultPatchBaselineResponse
GetDefaultPatchBaselineResponse'
{ $sel:operatingSystem:GetDefaultPatchBaselineResponse' :: Maybe OperatingSystem
operatingSystem =
Maybe OperatingSystem
forall a. Maybe a
Prelude.Nothing,
$sel:baselineId:GetDefaultPatchBaselineResponse' :: Maybe Text
baselineId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetDefaultPatchBaselineResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getDefaultPatchBaselineResponse_operatingSystem :: Lens.Lens' GetDefaultPatchBaselineResponse (Prelude.Maybe OperatingSystem)
getDefaultPatchBaselineResponse_operatingSystem :: (Maybe OperatingSystem -> f (Maybe OperatingSystem))
-> GetDefaultPatchBaselineResponse
-> f GetDefaultPatchBaselineResponse
getDefaultPatchBaselineResponse_operatingSystem = (GetDefaultPatchBaselineResponse -> Maybe OperatingSystem)
-> (GetDefaultPatchBaselineResponse
-> Maybe OperatingSystem -> GetDefaultPatchBaselineResponse)
-> Lens
GetDefaultPatchBaselineResponse
GetDefaultPatchBaselineResponse
(Maybe OperatingSystem)
(Maybe OperatingSystem)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDefaultPatchBaselineResponse' {Maybe OperatingSystem
operatingSystem :: Maybe OperatingSystem
$sel:operatingSystem:GetDefaultPatchBaselineResponse' :: GetDefaultPatchBaselineResponse -> Maybe OperatingSystem
operatingSystem} -> Maybe OperatingSystem
operatingSystem) (\s :: GetDefaultPatchBaselineResponse
s@GetDefaultPatchBaselineResponse' {} Maybe OperatingSystem
a -> GetDefaultPatchBaselineResponse
s {$sel:operatingSystem:GetDefaultPatchBaselineResponse' :: Maybe OperatingSystem
operatingSystem = Maybe OperatingSystem
a} :: GetDefaultPatchBaselineResponse)
getDefaultPatchBaselineResponse_baselineId :: Lens.Lens' GetDefaultPatchBaselineResponse (Prelude.Maybe Prelude.Text)
getDefaultPatchBaselineResponse_baselineId :: (Maybe Text -> f (Maybe Text))
-> GetDefaultPatchBaselineResponse
-> f GetDefaultPatchBaselineResponse
getDefaultPatchBaselineResponse_baselineId = (GetDefaultPatchBaselineResponse -> Maybe Text)
-> (GetDefaultPatchBaselineResponse
-> Maybe Text -> GetDefaultPatchBaselineResponse)
-> Lens
GetDefaultPatchBaselineResponse
GetDefaultPatchBaselineResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDefaultPatchBaselineResponse' {Maybe Text
baselineId :: Maybe Text
$sel:baselineId:GetDefaultPatchBaselineResponse' :: GetDefaultPatchBaselineResponse -> Maybe Text
baselineId} -> Maybe Text
baselineId) (\s :: GetDefaultPatchBaselineResponse
s@GetDefaultPatchBaselineResponse' {} Maybe Text
a -> GetDefaultPatchBaselineResponse
s {$sel:baselineId:GetDefaultPatchBaselineResponse' :: Maybe Text
baselineId = Maybe Text
a} :: GetDefaultPatchBaselineResponse)
getDefaultPatchBaselineResponse_httpStatus :: Lens.Lens' GetDefaultPatchBaselineResponse Prelude.Int
getDefaultPatchBaselineResponse_httpStatus :: (Int -> f Int)
-> GetDefaultPatchBaselineResponse
-> f GetDefaultPatchBaselineResponse
getDefaultPatchBaselineResponse_httpStatus = (GetDefaultPatchBaselineResponse -> Int)
-> (GetDefaultPatchBaselineResponse
-> Int -> GetDefaultPatchBaselineResponse)
-> Lens
GetDefaultPatchBaselineResponse
GetDefaultPatchBaselineResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDefaultPatchBaselineResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetDefaultPatchBaselineResponse' :: GetDefaultPatchBaselineResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetDefaultPatchBaselineResponse
s@GetDefaultPatchBaselineResponse' {} Int
a -> GetDefaultPatchBaselineResponse
s {$sel:httpStatus:GetDefaultPatchBaselineResponse' :: Int
httpStatus = Int
a} :: GetDefaultPatchBaselineResponse)
instance
Prelude.NFData
GetDefaultPatchBaselineResponse