{-# 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.ServerlessApplicationRepository.GetApplication
(
GetApplication (..),
newGetApplication,
getApplication_semanticVersion,
getApplication_applicationId,
GetApplicationResponse (..),
newGetApplicationResponse,
getApplicationResponse_applicationId,
getApplicationResponse_author,
getApplicationResponse_creationTime,
getApplicationResponse_description,
getApplicationResponse_homePageUrl,
getApplicationResponse_isVerifiedAuthor,
getApplicationResponse_labels,
getApplicationResponse_licenseUrl,
getApplicationResponse_name,
getApplicationResponse_readmeUrl,
getApplicationResponse_spdxLicenseId,
getApplicationResponse_verifiedAuthorUrl,
getApplicationResponse_version,
getApplicationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.ServerlessApplicationRepository.Types
data GetApplication = GetApplication'
{
GetApplication -> Maybe Text
semanticVersion :: Prelude.Maybe Prelude.Text,
GetApplication -> Text
applicationId :: Prelude.Text
}
deriving (GetApplication -> GetApplication -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetApplication -> GetApplication -> Bool
$c/= :: GetApplication -> GetApplication -> Bool
== :: GetApplication -> GetApplication -> Bool
$c== :: GetApplication -> GetApplication -> Bool
Prelude.Eq, ReadPrec [GetApplication]
ReadPrec GetApplication
Int -> ReadS GetApplication
ReadS [GetApplication]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetApplication]
$creadListPrec :: ReadPrec [GetApplication]
readPrec :: ReadPrec GetApplication
$creadPrec :: ReadPrec GetApplication
readList :: ReadS [GetApplication]
$creadList :: ReadS [GetApplication]
readsPrec :: Int -> ReadS GetApplication
$creadsPrec :: Int -> ReadS GetApplication
Prelude.Read, Int -> GetApplication -> ShowS
[GetApplication] -> ShowS
GetApplication -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetApplication] -> ShowS
$cshowList :: [GetApplication] -> ShowS
show :: GetApplication -> String
$cshow :: GetApplication -> String
showsPrec :: Int -> GetApplication -> ShowS
$cshowsPrec :: Int -> GetApplication -> ShowS
Prelude.Show, forall x. Rep GetApplication x -> GetApplication
forall x. GetApplication -> Rep GetApplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetApplication x -> GetApplication
$cfrom :: forall x. GetApplication -> Rep GetApplication x
Prelude.Generic)
newGetApplication ::
Prelude.Text ->
GetApplication
newGetApplication :: Text -> GetApplication
newGetApplication Text
pApplicationId_ =
GetApplication'
{ $sel:semanticVersion:GetApplication' :: Maybe Text
semanticVersion = forall a. Maybe a
Prelude.Nothing,
$sel:applicationId:GetApplication' :: Text
applicationId = Text
pApplicationId_
}
getApplication_semanticVersion :: Lens.Lens' GetApplication (Prelude.Maybe Prelude.Text)
getApplication_semanticVersion :: Lens' GetApplication (Maybe Text)
getApplication_semanticVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplication' {Maybe Text
semanticVersion :: Maybe Text
$sel:semanticVersion:GetApplication' :: GetApplication -> Maybe Text
semanticVersion} -> Maybe Text
semanticVersion) (\s :: GetApplication
s@GetApplication' {} Maybe Text
a -> GetApplication
s {$sel:semanticVersion:GetApplication' :: Maybe Text
semanticVersion = Maybe Text
a} :: GetApplication)
getApplication_applicationId :: Lens.Lens' GetApplication Prelude.Text
getApplication_applicationId :: Lens' GetApplication Text
getApplication_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplication' {Text
applicationId :: Text
$sel:applicationId:GetApplication' :: GetApplication -> Text
applicationId} -> Text
applicationId) (\s :: GetApplication
s@GetApplication' {} Text
a -> GetApplication
s {$sel:applicationId:GetApplication' :: Text
applicationId = Text
a} :: GetApplication)
instance Core.AWSRequest GetApplication where
type
AWSResponse GetApplication =
GetApplicationResponse
request :: (Service -> Service) -> GetApplication -> Request GetApplication
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetApplication
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetApplication)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Version
-> Int
-> GetApplicationResponse
GetApplicationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"applicationId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"author")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"creationTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"description")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"homePageUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"isVerifiedAuthor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"labels" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"licenseUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"readmeUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"spdxLicenseId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"verifiedAuthorUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"version")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetApplication where
hashWithSalt :: Int -> GetApplication -> Int
hashWithSalt Int
_salt GetApplication' {Maybe Text
Text
applicationId :: Text
semanticVersion :: Maybe Text
$sel:applicationId:GetApplication' :: GetApplication -> Text
$sel:semanticVersion:GetApplication' :: GetApplication -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
semanticVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationId
instance Prelude.NFData GetApplication where
rnf :: GetApplication -> ()
rnf GetApplication' {Maybe Text
Text
applicationId :: Text
semanticVersion :: Maybe Text
$sel:applicationId:GetApplication' :: GetApplication -> Text
$sel:semanticVersion:GetApplication' :: GetApplication -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
semanticVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationId
instance Data.ToHeaders GetApplication where
toHeaders :: GetApplication -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath GetApplication where
toPath :: GetApplication -> ByteString
toPath GetApplication' {Maybe Text
Text
applicationId :: Text
semanticVersion :: Maybe Text
$sel:applicationId:GetApplication' :: GetApplication -> Text
$sel:semanticVersion:GetApplication' :: GetApplication -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/applications/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationId]
instance Data.ToQuery GetApplication where
toQuery :: GetApplication -> QueryString
toQuery GetApplication' {Maybe Text
Text
applicationId :: Text
semanticVersion :: Maybe Text
$sel:applicationId:GetApplication' :: GetApplication -> Text
$sel:semanticVersion:GetApplication' :: GetApplication -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"semanticVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
semanticVersion]
data GetApplicationResponse = GetApplicationResponse'
{
GetApplicationResponse -> Maybe Text
applicationId :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
author :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
creationTime :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
homePageUrl :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Bool
isVerifiedAuthor :: Prelude.Maybe Prelude.Bool,
GetApplicationResponse -> Maybe [Text]
labels :: Prelude.Maybe [Prelude.Text],
GetApplicationResponse -> Maybe Text
licenseUrl :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
readmeUrl :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
spdxLicenseId :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Text
verifiedAuthorUrl :: Prelude.Maybe Prelude.Text,
GetApplicationResponse -> Maybe Version
version :: Prelude.Maybe Version,
GetApplicationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetApplicationResponse -> GetApplicationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetApplicationResponse -> GetApplicationResponse -> Bool
$c/= :: GetApplicationResponse -> GetApplicationResponse -> Bool
== :: GetApplicationResponse -> GetApplicationResponse -> Bool
$c== :: GetApplicationResponse -> GetApplicationResponse -> Bool
Prelude.Eq, ReadPrec [GetApplicationResponse]
ReadPrec GetApplicationResponse
Int -> ReadS GetApplicationResponse
ReadS [GetApplicationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetApplicationResponse]
$creadListPrec :: ReadPrec [GetApplicationResponse]
readPrec :: ReadPrec GetApplicationResponse
$creadPrec :: ReadPrec GetApplicationResponse
readList :: ReadS [GetApplicationResponse]
$creadList :: ReadS [GetApplicationResponse]
readsPrec :: Int -> ReadS GetApplicationResponse
$creadsPrec :: Int -> ReadS GetApplicationResponse
Prelude.Read, Int -> GetApplicationResponse -> ShowS
[GetApplicationResponse] -> ShowS
GetApplicationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetApplicationResponse] -> ShowS
$cshowList :: [GetApplicationResponse] -> ShowS
show :: GetApplicationResponse -> String
$cshow :: GetApplicationResponse -> String
showsPrec :: Int -> GetApplicationResponse -> ShowS
$cshowsPrec :: Int -> GetApplicationResponse -> ShowS
Prelude.Show, forall x. Rep GetApplicationResponse x -> GetApplicationResponse
forall x. GetApplicationResponse -> Rep GetApplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetApplicationResponse x -> GetApplicationResponse
$cfrom :: forall x. GetApplicationResponse -> Rep GetApplicationResponse x
Prelude.Generic)
newGetApplicationResponse ::
Prelude.Int ->
GetApplicationResponse
newGetApplicationResponse :: Int -> GetApplicationResponse
newGetApplicationResponse Int
pHttpStatus_ =
GetApplicationResponse'
{ $sel:applicationId:GetApplicationResponse' :: Maybe Text
applicationId =
forall a. Maybe a
Prelude.Nothing,
$sel:author:GetApplicationResponse' :: Maybe Text
author = forall a. Maybe a
Prelude.Nothing,
$sel:creationTime:GetApplicationResponse' :: Maybe Text
creationTime = forall a. Maybe a
Prelude.Nothing,
$sel:description:GetApplicationResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:homePageUrl:GetApplicationResponse' :: Maybe Text
homePageUrl = forall a. Maybe a
Prelude.Nothing,
$sel:isVerifiedAuthor:GetApplicationResponse' :: Maybe Bool
isVerifiedAuthor = forall a. Maybe a
Prelude.Nothing,
$sel:labels:GetApplicationResponse' :: Maybe [Text]
labels = forall a. Maybe a
Prelude.Nothing,
$sel:licenseUrl:GetApplicationResponse' :: Maybe Text
licenseUrl = forall a. Maybe a
Prelude.Nothing,
$sel:name:GetApplicationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:readmeUrl:GetApplicationResponse' :: Maybe Text
readmeUrl = forall a. Maybe a
Prelude.Nothing,
$sel:spdxLicenseId:GetApplicationResponse' :: Maybe Text
spdxLicenseId = forall a. Maybe a
Prelude.Nothing,
$sel:verifiedAuthorUrl:GetApplicationResponse' :: Maybe Text
verifiedAuthorUrl = forall a. Maybe a
Prelude.Nothing,
$sel:version:GetApplicationResponse' :: Maybe Version
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetApplicationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getApplicationResponse_applicationId :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_applicationId :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
applicationId :: Maybe Text
$sel:applicationId:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
applicationId} -> Maybe Text
applicationId) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:applicationId:GetApplicationResponse' :: Maybe Text
applicationId = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_author :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_author :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_author = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
author :: Maybe Text
$sel:author:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
author} -> Maybe Text
author) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:author:GetApplicationResponse' :: Maybe Text
author = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_creationTime :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_creationTime :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
creationTime :: Maybe Text
$sel:creationTime:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
creationTime} -> Maybe Text
creationTime) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:creationTime:GetApplicationResponse' :: Maybe Text
creationTime = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_description :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_description :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
description :: Maybe Text
$sel:description:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:description:GetApplicationResponse' :: Maybe Text
description = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_homePageUrl :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_homePageUrl :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_homePageUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
homePageUrl :: Maybe Text
$sel:homePageUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
homePageUrl} -> Maybe Text
homePageUrl) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:homePageUrl:GetApplicationResponse' :: Maybe Text
homePageUrl = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_isVerifiedAuthor :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Bool)
getApplicationResponse_isVerifiedAuthor :: Lens' GetApplicationResponse (Maybe Bool)
getApplicationResponse_isVerifiedAuthor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Bool
isVerifiedAuthor :: Maybe Bool
$sel:isVerifiedAuthor:GetApplicationResponse' :: GetApplicationResponse -> Maybe Bool
isVerifiedAuthor} -> Maybe Bool
isVerifiedAuthor) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Bool
a -> GetApplicationResponse
s {$sel:isVerifiedAuthor:GetApplicationResponse' :: Maybe Bool
isVerifiedAuthor = Maybe Bool
a} :: GetApplicationResponse)
getApplicationResponse_labels :: Lens.Lens' GetApplicationResponse (Prelude.Maybe [Prelude.Text])
getApplicationResponse_labels :: Lens' GetApplicationResponse (Maybe [Text])
getApplicationResponse_labels = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe [Text]
labels :: Maybe [Text]
$sel:labels:GetApplicationResponse' :: GetApplicationResponse -> Maybe [Text]
labels} -> Maybe [Text]
labels) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe [Text]
a -> GetApplicationResponse
s {$sel:labels:GetApplicationResponse' :: Maybe [Text]
labels = Maybe [Text]
a} :: GetApplicationResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getApplicationResponse_licenseUrl :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_licenseUrl :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_licenseUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
licenseUrl :: Maybe Text
$sel:licenseUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
licenseUrl} -> Maybe Text
licenseUrl) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:licenseUrl:GetApplicationResponse' :: Maybe Text
licenseUrl = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_name :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_name :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:name:GetApplicationResponse' :: Maybe Text
name = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_readmeUrl :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_readmeUrl :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_readmeUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
readmeUrl :: Maybe Text
$sel:readmeUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
readmeUrl} -> Maybe Text
readmeUrl) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:readmeUrl:GetApplicationResponse' :: Maybe Text
readmeUrl = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_spdxLicenseId :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_spdxLicenseId :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_spdxLicenseId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
spdxLicenseId :: Maybe Text
$sel:spdxLicenseId:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
spdxLicenseId} -> Maybe Text
spdxLicenseId) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:spdxLicenseId:GetApplicationResponse' :: Maybe Text
spdxLicenseId = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_verifiedAuthorUrl :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Prelude.Text)
getApplicationResponse_verifiedAuthorUrl :: Lens' GetApplicationResponse (Maybe Text)
getApplicationResponse_verifiedAuthorUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Text
verifiedAuthorUrl :: Maybe Text
$sel:verifiedAuthorUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
verifiedAuthorUrl} -> Maybe Text
verifiedAuthorUrl) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Text
a -> GetApplicationResponse
s {$sel:verifiedAuthorUrl:GetApplicationResponse' :: Maybe Text
verifiedAuthorUrl = Maybe Text
a} :: GetApplicationResponse)
getApplicationResponse_version :: Lens.Lens' GetApplicationResponse (Prelude.Maybe Version)
getApplicationResponse_version :: Lens' GetApplicationResponse (Maybe Version)
getApplicationResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Maybe Version
version :: Maybe Version
$sel:version:GetApplicationResponse' :: GetApplicationResponse -> Maybe Version
version} -> Maybe Version
version) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Maybe Version
a -> GetApplicationResponse
s {$sel:version:GetApplicationResponse' :: Maybe Version
version = Maybe Version
a} :: GetApplicationResponse)
getApplicationResponse_httpStatus :: Lens.Lens' GetApplicationResponse Prelude.Int
getApplicationResponse_httpStatus :: Lens' GetApplicationResponse Int
getApplicationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetApplicationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetApplicationResponse' :: GetApplicationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetApplicationResponse
s@GetApplicationResponse' {} Int
a -> GetApplicationResponse
s {$sel:httpStatus:GetApplicationResponse' :: Int
httpStatus = Int
a} :: GetApplicationResponse)
instance Prelude.NFData GetApplicationResponse where
rnf :: GetApplicationResponse -> ()
rnf GetApplicationResponse' {Int
Maybe Bool
Maybe [Text]
Maybe Text
Maybe Version
httpStatus :: Int
version :: Maybe Version
verifiedAuthorUrl :: Maybe Text
spdxLicenseId :: Maybe Text
readmeUrl :: Maybe Text
name :: Maybe Text
licenseUrl :: Maybe Text
labels :: Maybe [Text]
isVerifiedAuthor :: Maybe Bool
homePageUrl :: Maybe Text
description :: Maybe Text
creationTime :: Maybe Text
author :: Maybe Text
applicationId :: Maybe Text
$sel:httpStatus:GetApplicationResponse' :: GetApplicationResponse -> Int
$sel:version:GetApplicationResponse' :: GetApplicationResponse -> Maybe Version
$sel:verifiedAuthorUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:spdxLicenseId:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:readmeUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:name:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:licenseUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:labels:GetApplicationResponse' :: GetApplicationResponse -> Maybe [Text]
$sel:isVerifiedAuthor:GetApplicationResponse' :: GetApplicationResponse -> Maybe Bool
$sel:homePageUrl:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:description:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:creationTime:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:author:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
$sel:applicationId:GetApplicationResponse' :: GetApplicationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
author
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
homePageUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isVerifiedAuthor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
labels
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
licenseUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
readmeUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
spdxLicenseId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
verifiedAuthorUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Version
version
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus