{-# 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.DeviceFarm.ListNetworkProfiles
(
ListNetworkProfiles (..),
newListNetworkProfiles,
listNetworkProfiles_nextToken,
listNetworkProfiles_type,
listNetworkProfiles_arn,
ListNetworkProfilesResponse (..),
newListNetworkProfilesResponse,
listNetworkProfilesResponse_networkProfiles,
listNetworkProfilesResponse_nextToken,
listNetworkProfilesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DeviceFarm.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListNetworkProfiles = ListNetworkProfiles'
{
ListNetworkProfiles -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListNetworkProfiles -> Maybe NetworkProfileType
type' :: Prelude.Maybe NetworkProfileType,
ListNetworkProfiles -> Text
arn :: Prelude.Text
}
deriving (ListNetworkProfiles -> ListNetworkProfiles -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListNetworkProfiles -> ListNetworkProfiles -> Bool
$c/= :: ListNetworkProfiles -> ListNetworkProfiles -> Bool
== :: ListNetworkProfiles -> ListNetworkProfiles -> Bool
$c== :: ListNetworkProfiles -> ListNetworkProfiles -> Bool
Prelude.Eq, ReadPrec [ListNetworkProfiles]
ReadPrec ListNetworkProfiles
Int -> ReadS ListNetworkProfiles
ReadS [ListNetworkProfiles]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListNetworkProfiles]
$creadListPrec :: ReadPrec [ListNetworkProfiles]
readPrec :: ReadPrec ListNetworkProfiles
$creadPrec :: ReadPrec ListNetworkProfiles
readList :: ReadS [ListNetworkProfiles]
$creadList :: ReadS [ListNetworkProfiles]
readsPrec :: Int -> ReadS ListNetworkProfiles
$creadsPrec :: Int -> ReadS ListNetworkProfiles
Prelude.Read, Int -> ListNetworkProfiles -> ShowS
[ListNetworkProfiles] -> ShowS
ListNetworkProfiles -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListNetworkProfiles] -> ShowS
$cshowList :: [ListNetworkProfiles] -> ShowS
show :: ListNetworkProfiles -> String
$cshow :: ListNetworkProfiles -> String
showsPrec :: Int -> ListNetworkProfiles -> ShowS
$cshowsPrec :: Int -> ListNetworkProfiles -> ShowS
Prelude.Show, forall x. Rep ListNetworkProfiles x -> ListNetworkProfiles
forall x. ListNetworkProfiles -> Rep ListNetworkProfiles x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListNetworkProfiles x -> ListNetworkProfiles
$cfrom :: forall x. ListNetworkProfiles -> Rep ListNetworkProfiles x
Prelude.Generic)
newListNetworkProfiles ::
Prelude.Text ->
ListNetworkProfiles
newListNetworkProfiles :: Text -> ListNetworkProfiles
newListNetworkProfiles Text
pArn_ =
ListNetworkProfiles'
{ $sel:nextToken:ListNetworkProfiles' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:type':ListNetworkProfiles' :: Maybe NetworkProfileType
type' = forall a. Maybe a
Prelude.Nothing,
$sel:arn:ListNetworkProfiles' :: Text
arn = Text
pArn_
}
listNetworkProfiles_nextToken :: Lens.Lens' ListNetworkProfiles (Prelude.Maybe Prelude.Text)
listNetworkProfiles_nextToken :: Lens' ListNetworkProfiles (Maybe Text)
listNetworkProfiles_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfiles' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListNetworkProfiles' :: ListNetworkProfiles -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListNetworkProfiles
s@ListNetworkProfiles' {} Maybe Text
a -> ListNetworkProfiles
s {$sel:nextToken:ListNetworkProfiles' :: Maybe Text
nextToken = Maybe Text
a} :: ListNetworkProfiles)
listNetworkProfiles_type :: Lens.Lens' ListNetworkProfiles (Prelude.Maybe NetworkProfileType)
listNetworkProfiles_type :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
listNetworkProfiles_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfiles' {Maybe NetworkProfileType
type' :: Maybe NetworkProfileType
$sel:type':ListNetworkProfiles' :: ListNetworkProfiles -> Maybe NetworkProfileType
type'} -> Maybe NetworkProfileType
type') (\s :: ListNetworkProfiles
s@ListNetworkProfiles' {} Maybe NetworkProfileType
a -> ListNetworkProfiles
s {$sel:type':ListNetworkProfiles' :: Maybe NetworkProfileType
type' = Maybe NetworkProfileType
a} :: ListNetworkProfiles)
listNetworkProfiles_arn :: Lens.Lens' ListNetworkProfiles Prelude.Text
listNetworkProfiles_arn :: Lens' ListNetworkProfiles Text
listNetworkProfiles_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfiles' {Text
arn :: Text
$sel:arn:ListNetworkProfiles' :: ListNetworkProfiles -> Text
arn} -> Text
arn) (\s :: ListNetworkProfiles
s@ListNetworkProfiles' {} Text
a -> ListNetworkProfiles
s {$sel:arn:ListNetworkProfiles' :: Text
arn = Text
a} :: ListNetworkProfiles)
instance Core.AWSPager ListNetworkProfiles where
page :: ListNetworkProfiles
-> AWSResponse ListNetworkProfiles -> Maybe ListNetworkProfiles
page ListNetworkProfiles
rq AWSResponse ListNetworkProfiles
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListNetworkProfiles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListNetworkProfilesResponse (Maybe Text)
listNetworkProfilesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListNetworkProfiles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListNetworkProfilesResponse (Maybe [NetworkProfile])
listNetworkProfilesResponse_networkProfiles
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListNetworkProfiles
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListNetworkProfiles (Maybe Text)
listNetworkProfiles_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListNetworkProfiles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListNetworkProfilesResponse (Maybe Text)
listNetworkProfilesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListNetworkProfiles where
type
AWSResponse ListNetworkProfiles =
ListNetworkProfilesResponse
request :: (Service -> Service)
-> ListNetworkProfiles -> Request ListNetworkProfiles
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListNetworkProfiles
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListNetworkProfiles)))
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 [NetworkProfile]
-> Maybe Text -> Int -> ListNetworkProfilesResponse
ListNetworkProfilesResponse'
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
"networkProfiles"
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
"nextToken")
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 ListNetworkProfiles where
hashWithSalt :: Int -> ListNetworkProfiles -> Int
hashWithSalt Int
_salt ListNetworkProfiles' {Maybe Text
Maybe NetworkProfileType
Text
arn :: Text
type' :: Maybe NetworkProfileType
nextToken :: Maybe Text
$sel:arn:ListNetworkProfiles' :: ListNetworkProfiles -> Text
$sel:type':ListNetworkProfiles' :: ListNetworkProfiles -> Maybe NetworkProfileType
$sel:nextToken:ListNetworkProfiles' :: ListNetworkProfiles -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkProfileType
type'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
arn
instance Prelude.NFData ListNetworkProfiles where
rnf :: ListNetworkProfiles -> ()
rnf ListNetworkProfiles' {Maybe Text
Maybe NetworkProfileType
Text
arn :: Text
type' :: Maybe NetworkProfileType
nextToken :: Maybe Text
$sel:arn:ListNetworkProfiles' :: ListNetworkProfiles -> Text
$sel:type':ListNetworkProfiles' :: ListNetworkProfiles -> Maybe NetworkProfileType
$sel:nextToken:ListNetworkProfiles' :: ListNetworkProfiles -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe NetworkProfileType
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn
instance Data.ToHeaders ListNetworkProfiles where
toHeaders :: ListNetworkProfiles -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"DeviceFarm_20150623.ListNetworkProfiles" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListNetworkProfiles where
toJSON :: ListNetworkProfiles -> Value
toJSON ListNetworkProfiles' {Maybe Text
Maybe NetworkProfileType
Text
arn :: Text
type' :: Maybe NetworkProfileType
nextToken :: Maybe Text
$sel:arn:ListNetworkProfiles' :: ListNetworkProfiles -> Text
$sel:type':ListNetworkProfiles' :: ListNetworkProfiles -> Maybe NetworkProfileType
$sel:nextToken:ListNetworkProfiles' :: ListNetworkProfiles -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"nextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NetworkProfileType
type',
forall a. a -> Maybe a
Prelude.Just (Key
"arn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
arn)
]
)
instance Data.ToPath ListNetworkProfiles where
toPath :: ListNetworkProfiles -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListNetworkProfiles where
toQuery :: ListNetworkProfiles -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListNetworkProfilesResponse = ListNetworkProfilesResponse'
{
ListNetworkProfilesResponse -> Maybe [NetworkProfile]
networkProfiles :: Prelude.Maybe [NetworkProfile],
ListNetworkProfilesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListNetworkProfilesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListNetworkProfilesResponse -> ListNetworkProfilesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListNetworkProfilesResponse -> ListNetworkProfilesResponse -> Bool
$c/= :: ListNetworkProfilesResponse -> ListNetworkProfilesResponse -> Bool
== :: ListNetworkProfilesResponse -> ListNetworkProfilesResponse -> Bool
$c== :: ListNetworkProfilesResponse -> ListNetworkProfilesResponse -> Bool
Prelude.Eq, ReadPrec [ListNetworkProfilesResponse]
ReadPrec ListNetworkProfilesResponse
Int -> ReadS ListNetworkProfilesResponse
ReadS [ListNetworkProfilesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListNetworkProfilesResponse]
$creadListPrec :: ReadPrec [ListNetworkProfilesResponse]
readPrec :: ReadPrec ListNetworkProfilesResponse
$creadPrec :: ReadPrec ListNetworkProfilesResponse
readList :: ReadS [ListNetworkProfilesResponse]
$creadList :: ReadS [ListNetworkProfilesResponse]
readsPrec :: Int -> ReadS ListNetworkProfilesResponse
$creadsPrec :: Int -> ReadS ListNetworkProfilesResponse
Prelude.Read, Int -> ListNetworkProfilesResponse -> ShowS
[ListNetworkProfilesResponse] -> ShowS
ListNetworkProfilesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListNetworkProfilesResponse] -> ShowS
$cshowList :: [ListNetworkProfilesResponse] -> ShowS
show :: ListNetworkProfilesResponse -> String
$cshow :: ListNetworkProfilesResponse -> String
showsPrec :: Int -> ListNetworkProfilesResponse -> ShowS
$cshowsPrec :: Int -> ListNetworkProfilesResponse -> ShowS
Prelude.Show, forall x.
Rep ListNetworkProfilesResponse x -> ListNetworkProfilesResponse
forall x.
ListNetworkProfilesResponse -> Rep ListNetworkProfilesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListNetworkProfilesResponse x -> ListNetworkProfilesResponse
$cfrom :: forall x.
ListNetworkProfilesResponse -> Rep ListNetworkProfilesResponse x
Prelude.Generic)
newListNetworkProfilesResponse ::
Prelude.Int ->
ListNetworkProfilesResponse
newListNetworkProfilesResponse :: Int -> ListNetworkProfilesResponse
newListNetworkProfilesResponse Int
pHttpStatus_ =
ListNetworkProfilesResponse'
{ $sel:networkProfiles:ListNetworkProfilesResponse' :: Maybe [NetworkProfile]
networkProfiles =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListNetworkProfilesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListNetworkProfilesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listNetworkProfilesResponse_networkProfiles :: Lens.Lens' ListNetworkProfilesResponse (Prelude.Maybe [NetworkProfile])
listNetworkProfilesResponse_networkProfiles :: Lens' ListNetworkProfilesResponse (Maybe [NetworkProfile])
listNetworkProfilesResponse_networkProfiles = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfilesResponse' {Maybe [NetworkProfile]
networkProfiles :: Maybe [NetworkProfile]
$sel:networkProfiles:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Maybe [NetworkProfile]
networkProfiles} -> Maybe [NetworkProfile]
networkProfiles) (\s :: ListNetworkProfilesResponse
s@ListNetworkProfilesResponse' {} Maybe [NetworkProfile]
a -> ListNetworkProfilesResponse
s {$sel:networkProfiles:ListNetworkProfilesResponse' :: Maybe [NetworkProfile]
networkProfiles = Maybe [NetworkProfile]
a} :: ListNetworkProfilesResponse) 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
listNetworkProfilesResponse_nextToken :: Lens.Lens' ListNetworkProfilesResponse (Prelude.Maybe Prelude.Text)
listNetworkProfilesResponse_nextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
listNetworkProfilesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfilesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListNetworkProfilesResponse
s@ListNetworkProfilesResponse' {} Maybe Text
a -> ListNetworkProfilesResponse
s {$sel:nextToken:ListNetworkProfilesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListNetworkProfilesResponse)
listNetworkProfilesResponse_httpStatus :: Lens.Lens' ListNetworkProfilesResponse Prelude.Int
listNetworkProfilesResponse_httpStatus :: Lens' ListNetworkProfilesResponse Int
listNetworkProfilesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListNetworkProfilesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListNetworkProfilesResponse
s@ListNetworkProfilesResponse' {} Int
a -> ListNetworkProfilesResponse
s {$sel:httpStatus:ListNetworkProfilesResponse' :: Int
httpStatus = Int
a} :: ListNetworkProfilesResponse)
instance Prelude.NFData ListNetworkProfilesResponse where
rnf :: ListNetworkProfilesResponse -> ()
rnf ListNetworkProfilesResponse' {Int
Maybe [NetworkProfile]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
networkProfiles :: Maybe [NetworkProfile]
$sel:httpStatus:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Int
$sel:nextToken:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Maybe Text
$sel:networkProfiles:ListNetworkProfilesResponse' :: ListNetworkProfilesResponse -> Maybe [NetworkProfile]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [NetworkProfile]
networkProfiles
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus