{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.GroundStation.ListMissionProfiles
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns a list of mission profiles.
--
-- This operation returns paginated results.
module Amazonka.GroundStation.ListMissionProfiles
  ( -- * Creating a Request
    ListMissionProfiles (..),
    newListMissionProfiles,

    -- * Request Lenses
    listMissionProfiles_maxResults,
    listMissionProfiles_nextToken,

    -- * Destructuring the Response
    ListMissionProfilesResponse (..),
    newListMissionProfilesResponse,

    -- * Response Lenses
    listMissionProfilesResponse_missionProfileList,
    listMissionProfilesResponse_nextToken,
    listMissionProfilesResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GroundStation.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- |
--
-- /See:/ 'newListMissionProfiles' smart constructor.
data ListMissionProfiles = ListMissionProfiles'
  { -- | Maximum number of mission profiles returned.
    ListMissionProfiles -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
    -- | Next token returned in the request of a previous @ListMissionProfiles@
    -- call. Used to get the next page of results.
    ListMissionProfiles -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
  }
  deriving (ListMissionProfiles -> ListMissionProfiles -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMissionProfiles -> ListMissionProfiles -> Bool
$c/= :: ListMissionProfiles -> ListMissionProfiles -> Bool
== :: ListMissionProfiles -> ListMissionProfiles -> Bool
$c== :: ListMissionProfiles -> ListMissionProfiles -> Bool
Prelude.Eq, ReadPrec [ListMissionProfiles]
ReadPrec ListMissionProfiles
Int -> ReadS ListMissionProfiles
ReadS [ListMissionProfiles]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMissionProfiles]
$creadListPrec :: ReadPrec [ListMissionProfiles]
readPrec :: ReadPrec ListMissionProfiles
$creadPrec :: ReadPrec ListMissionProfiles
readList :: ReadS [ListMissionProfiles]
$creadList :: ReadS [ListMissionProfiles]
readsPrec :: Int -> ReadS ListMissionProfiles
$creadsPrec :: Int -> ReadS ListMissionProfiles
Prelude.Read, Int -> ListMissionProfiles -> ShowS
[ListMissionProfiles] -> ShowS
ListMissionProfiles -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMissionProfiles] -> ShowS
$cshowList :: [ListMissionProfiles] -> ShowS
show :: ListMissionProfiles -> String
$cshow :: ListMissionProfiles -> String
showsPrec :: Int -> ListMissionProfiles -> ShowS
$cshowsPrec :: Int -> ListMissionProfiles -> ShowS
Prelude.Show, forall x. Rep ListMissionProfiles x -> ListMissionProfiles
forall x. ListMissionProfiles -> Rep ListMissionProfiles x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListMissionProfiles x -> ListMissionProfiles
$cfrom :: forall x. ListMissionProfiles -> Rep ListMissionProfiles x
Prelude.Generic)

-- |
-- Create a value of 'ListMissionProfiles' 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:
--
-- 'maxResults', 'listMissionProfiles_maxResults' - Maximum number of mission profiles returned.
--
-- 'nextToken', 'listMissionProfiles_nextToken' - Next token returned in the request of a previous @ListMissionProfiles@
-- call. Used to get the next page of results.
newListMissionProfiles ::
  ListMissionProfiles
newListMissionProfiles :: ListMissionProfiles
newListMissionProfiles =
  ListMissionProfiles'
    { $sel:maxResults:ListMissionProfiles' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListMissionProfiles' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
    }

-- | Maximum number of mission profiles returned.
listMissionProfiles_maxResults :: Lens.Lens' ListMissionProfiles (Prelude.Maybe Prelude.Natural)
listMissionProfiles_maxResults :: Lens' ListMissionProfiles (Maybe Natural)
listMissionProfiles_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMissionProfiles' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListMissionProfiles' :: ListMissionProfiles -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListMissionProfiles
s@ListMissionProfiles' {} Maybe Natural
a -> ListMissionProfiles
s {$sel:maxResults:ListMissionProfiles' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListMissionProfiles)

-- | Next token returned in the request of a previous @ListMissionProfiles@
-- call. Used to get the next page of results.
listMissionProfiles_nextToken :: Lens.Lens' ListMissionProfiles (Prelude.Maybe Prelude.Text)
listMissionProfiles_nextToken :: Lens' ListMissionProfiles (Maybe Text)
listMissionProfiles_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMissionProfiles' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListMissionProfiles' :: ListMissionProfiles -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListMissionProfiles
s@ListMissionProfiles' {} Maybe Text
a -> ListMissionProfiles
s {$sel:nextToken:ListMissionProfiles' :: Maybe Text
nextToken = Maybe Text
a} :: ListMissionProfiles)

instance Core.AWSPager ListMissionProfiles where
  page :: ListMissionProfiles
-> AWSResponse ListMissionProfiles -> Maybe ListMissionProfiles
page ListMissionProfiles
rq AWSResponse ListMissionProfiles
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse ListMissionProfiles
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMissionProfilesResponse (Maybe Text)
listMissionProfilesResponse_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 ListMissionProfiles
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMissionProfilesResponse (Maybe [MissionProfileListItem])
listMissionProfilesResponse_missionProfileList
            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.$ ListMissionProfiles
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListMissionProfiles (Maybe Text)
listMissionProfiles_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListMissionProfiles
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMissionProfilesResponse (Maybe Text)
listMissionProfilesResponse_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 ListMissionProfiles where
  type
    AWSResponse ListMissionProfiles =
      ListMissionProfilesResponse
  request :: (Service -> Service)
-> ListMissionProfiles -> Request ListMissionProfiles
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 ListMissionProfiles
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse ListMissionProfiles)))
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 [MissionProfileListItem]
-> Maybe Text -> Int -> ListMissionProfilesResponse
ListMissionProfilesResponse'
            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
"missionProfileList"
                            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 ListMissionProfiles where
  hashWithSalt :: Int -> ListMissionProfiles -> Int
hashWithSalt Int
_salt ListMissionProfiles' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListMissionProfiles' :: ListMissionProfiles -> Maybe Text
$sel:maxResults:ListMissionProfiles' :: ListMissionProfiles -> Maybe Natural
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken

instance Prelude.NFData ListMissionProfiles where
  rnf :: ListMissionProfiles -> ()
rnf ListMissionProfiles' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListMissionProfiles' :: ListMissionProfiles -> Maybe Text
$sel:maxResults:ListMissionProfiles' :: ListMissionProfiles -> Maybe Natural
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken

instance Data.ToHeaders ListMissionProfiles where
  toHeaders :: ListMissionProfiles -> 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 ListMissionProfiles where
  toPath :: ListMissionProfiles -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/missionprofile"

instance Data.ToQuery ListMissionProfiles where
  toQuery :: ListMissionProfiles -> QueryString
toQuery ListMissionProfiles' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListMissionProfiles' :: ListMissionProfiles -> Maybe Text
$sel:maxResults:ListMissionProfiles' :: ListMissionProfiles -> Maybe Natural
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
        ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
      ]

-- |
--
-- /See:/ 'newListMissionProfilesResponse' smart constructor.
data ListMissionProfilesResponse = ListMissionProfilesResponse'
  { -- | List of mission profiles.
    ListMissionProfilesResponse -> Maybe [MissionProfileListItem]
missionProfileList :: Prelude.Maybe [MissionProfileListItem],
    -- | Next token returned in the response of a previous @ListMissionProfiles@
    -- call. Used to get the next page of results.
    ListMissionProfilesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListMissionProfilesResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ListMissionProfilesResponse -> ListMissionProfilesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMissionProfilesResponse -> ListMissionProfilesResponse -> Bool
$c/= :: ListMissionProfilesResponse -> ListMissionProfilesResponse -> Bool
== :: ListMissionProfilesResponse -> ListMissionProfilesResponse -> Bool
$c== :: ListMissionProfilesResponse -> ListMissionProfilesResponse -> Bool
Prelude.Eq, ReadPrec [ListMissionProfilesResponse]
ReadPrec ListMissionProfilesResponse
Int -> ReadS ListMissionProfilesResponse
ReadS [ListMissionProfilesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMissionProfilesResponse]
$creadListPrec :: ReadPrec [ListMissionProfilesResponse]
readPrec :: ReadPrec ListMissionProfilesResponse
$creadPrec :: ReadPrec ListMissionProfilesResponse
readList :: ReadS [ListMissionProfilesResponse]
$creadList :: ReadS [ListMissionProfilesResponse]
readsPrec :: Int -> ReadS ListMissionProfilesResponse
$creadsPrec :: Int -> ReadS ListMissionProfilesResponse
Prelude.Read, Int -> ListMissionProfilesResponse -> ShowS
[ListMissionProfilesResponse] -> ShowS
ListMissionProfilesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMissionProfilesResponse] -> ShowS
$cshowList :: [ListMissionProfilesResponse] -> ShowS
show :: ListMissionProfilesResponse -> String
$cshow :: ListMissionProfilesResponse -> String
showsPrec :: Int -> ListMissionProfilesResponse -> ShowS
$cshowsPrec :: Int -> ListMissionProfilesResponse -> ShowS
Prelude.Show, forall x.
Rep ListMissionProfilesResponse x -> ListMissionProfilesResponse
forall x.
ListMissionProfilesResponse -> Rep ListMissionProfilesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListMissionProfilesResponse x -> ListMissionProfilesResponse
$cfrom :: forall x.
ListMissionProfilesResponse -> Rep ListMissionProfilesResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListMissionProfilesResponse' 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:
--
-- 'missionProfileList', 'listMissionProfilesResponse_missionProfileList' - List of mission profiles.
--
-- 'nextToken', 'listMissionProfilesResponse_nextToken' - Next token returned in the response of a previous @ListMissionProfiles@
-- call. Used to get the next page of results.
--
-- 'httpStatus', 'listMissionProfilesResponse_httpStatus' - The response's http status code.
newListMissionProfilesResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListMissionProfilesResponse
newListMissionProfilesResponse :: Int -> ListMissionProfilesResponse
newListMissionProfilesResponse Int
pHttpStatus_ =
  ListMissionProfilesResponse'
    { $sel:missionProfileList:ListMissionProfilesResponse' :: Maybe [MissionProfileListItem]
missionProfileList =
        forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListMissionProfilesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListMissionProfilesResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | List of mission profiles.
listMissionProfilesResponse_missionProfileList :: Lens.Lens' ListMissionProfilesResponse (Prelude.Maybe [MissionProfileListItem])
listMissionProfilesResponse_missionProfileList :: Lens' ListMissionProfilesResponse (Maybe [MissionProfileListItem])
listMissionProfilesResponse_missionProfileList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMissionProfilesResponse' {Maybe [MissionProfileListItem]
missionProfileList :: Maybe [MissionProfileListItem]
$sel:missionProfileList:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Maybe [MissionProfileListItem]
missionProfileList} -> Maybe [MissionProfileListItem]
missionProfileList) (\s :: ListMissionProfilesResponse
s@ListMissionProfilesResponse' {} Maybe [MissionProfileListItem]
a -> ListMissionProfilesResponse
s {$sel:missionProfileList:ListMissionProfilesResponse' :: Maybe [MissionProfileListItem]
missionProfileList = Maybe [MissionProfileListItem]
a} :: ListMissionProfilesResponse) 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

-- | Next token returned in the response of a previous @ListMissionProfiles@
-- call. Used to get the next page of results.
listMissionProfilesResponse_nextToken :: Lens.Lens' ListMissionProfilesResponse (Prelude.Maybe Prelude.Text)
listMissionProfilesResponse_nextToken :: Lens' ListMissionProfilesResponse (Maybe Text)
listMissionProfilesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMissionProfilesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListMissionProfilesResponse
s@ListMissionProfilesResponse' {} Maybe Text
a -> ListMissionProfilesResponse
s {$sel:nextToken:ListMissionProfilesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListMissionProfilesResponse)

-- | The response's http status code.
listMissionProfilesResponse_httpStatus :: Lens.Lens' ListMissionProfilesResponse Prelude.Int
listMissionProfilesResponse_httpStatus :: Lens' ListMissionProfilesResponse Int
listMissionProfilesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMissionProfilesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListMissionProfilesResponse
s@ListMissionProfilesResponse' {} Int
a -> ListMissionProfilesResponse
s {$sel:httpStatus:ListMissionProfilesResponse' :: Int
httpStatus = Int
a} :: ListMissionProfilesResponse)

instance Prelude.NFData ListMissionProfilesResponse where
  rnf :: ListMissionProfilesResponse -> ()
rnf ListMissionProfilesResponse' {Int
Maybe [MissionProfileListItem]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
missionProfileList :: Maybe [MissionProfileListItem]
$sel:httpStatus:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Int
$sel:nextToken:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Maybe Text
$sel:missionProfileList:ListMissionProfilesResponse' :: ListMissionProfilesResponse -> Maybe [MissionProfileListItem]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [MissionProfileListItem]
missionProfileList
      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