{-# 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.Location.CreateRouteCalculator
(
CreateRouteCalculator (..),
newCreateRouteCalculator,
createRouteCalculator_description,
createRouteCalculator_pricingPlan,
createRouteCalculator_tags,
createRouteCalculator_calculatorName,
createRouteCalculator_dataSource,
CreateRouteCalculatorResponse (..),
newCreateRouteCalculatorResponse,
createRouteCalculatorResponse_httpStatus,
createRouteCalculatorResponse_calculatorArn,
createRouteCalculatorResponse_calculatorName,
createRouteCalculatorResponse_createTime,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Location.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateRouteCalculator = CreateRouteCalculator'
{
CreateRouteCalculator -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateRouteCalculator -> Maybe PricingPlan
pricingPlan :: Prelude.Maybe PricingPlan,
CreateRouteCalculator -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateRouteCalculator -> Text
calculatorName :: Prelude.Text,
CreateRouteCalculator -> Text
dataSource :: Prelude.Text
}
deriving (CreateRouteCalculator -> CreateRouteCalculator -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRouteCalculator -> CreateRouteCalculator -> Bool
$c/= :: CreateRouteCalculator -> CreateRouteCalculator -> Bool
== :: CreateRouteCalculator -> CreateRouteCalculator -> Bool
$c== :: CreateRouteCalculator -> CreateRouteCalculator -> Bool
Prelude.Eq, ReadPrec [CreateRouteCalculator]
ReadPrec CreateRouteCalculator
Int -> ReadS CreateRouteCalculator
ReadS [CreateRouteCalculator]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateRouteCalculator]
$creadListPrec :: ReadPrec [CreateRouteCalculator]
readPrec :: ReadPrec CreateRouteCalculator
$creadPrec :: ReadPrec CreateRouteCalculator
readList :: ReadS [CreateRouteCalculator]
$creadList :: ReadS [CreateRouteCalculator]
readsPrec :: Int -> ReadS CreateRouteCalculator
$creadsPrec :: Int -> ReadS CreateRouteCalculator
Prelude.Read, Int -> CreateRouteCalculator -> ShowS
[CreateRouteCalculator] -> ShowS
CreateRouteCalculator -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRouteCalculator] -> ShowS
$cshowList :: [CreateRouteCalculator] -> ShowS
show :: CreateRouteCalculator -> String
$cshow :: CreateRouteCalculator -> String
showsPrec :: Int -> CreateRouteCalculator -> ShowS
$cshowsPrec :: Int -> CreateRouteCalculator -> ShowS
Prelude.Show, forall x. Rep CreateRouteCalculator x -> CreateRouteCalculator
forall x. CreateRouteCalculator -> Rep CreateRouteCalculator x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateRouteCalculator x -> CreateRouteCalculator
$cfrom :: forall x. CreateRouteCalculator -> Rep CreateRouteCalculator x
Prelude.Generic)
newCreateRouteCalculator ::
Prelude.Text ->
Prelude.Text ->
CreateRouteCalculator
newCreateRouteCalculator :: Text -> Text -> CreateRouteCalculator
newCreateRouteCalculator
Text
pCalculatorName_
Text
pDataSource_ =
CreateRouteCalculator'
{ $sel:description:CreateRouteCalculator' :: Maybe Text
description =
forall a. Maybe a
Prelude.Nothing,
$sel:pricingPlan:CreateRouteCalculator' :: Maybe PricingPlan
pricingPlan = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateRouteCalculator' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:calculatorName:CreateRouteCalculator' :: Text
calculatorName = Text
pCalculatorName_,
$sel:dataSource:CreateRouteCalculator' :: Text
dataSource = Text
pDataSource_
}
createRouteCalculator_description :: Lens.Lens' CreateRouteCalculator (Prelude.Maybe Prelude.Text)
createRouteCalculator_description :: Lens' CreateRouteCalculator (Maybe Text)
createRouteCalculator_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculator' {Maybe Text
description :: Maybe Text
$sel:description:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateRouteCalculator
s@CreateRouteCalculator' {} Maybe Text
a -> CreateRouteCalculator
s {$sel:description:CreateRouteCalculator' :: Maybe Text
description = Maybe Text
a} :: CreateRouteCalculator)
createRouteCalculator_pricingPlan :: Lens.Lens' CreateRouteCalculator (Prelude.Maybe PricingPlan)
createRouteCalculator_pricingPlan :: Lens' CreateRouteCalculator (Maybe PricingPlan)
createRouteCalculator_pricingPlan = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculator' {Maybe PricingPlan
pricingPlan :: Maybe PricingPlan
$sel:pricingPlan:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe PricingPlan
pricingPlan} -> Maybe PricingPlan
pricingPlan) (\s :: CreateRouteCalculator
s@CreateRouteCalculator' {} Maybe PricingPlan
a -> CreateRouteCalculator
s {$sel:pricingPlan:CreateRouteCalculator' :: Maybe PricingPlan
pricingPlan = Maybe PricingPlan
a} :: CreateRouteCalculator)
createRouteCalculator_tags :: Lens.Lens' CreateRouteCalculator (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createRouteCalculator_tags :: Lens' CreateRouteCalculator (Maybe (HashMap Text Text))
createRouteCalculator_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculator' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateRouteCalculator
s@CreateRouteCalculator' {} Maybe (HashMap Text Text)
a -> CreateRouteCalculator
s {$sel:tags:CreateRouteCalculator' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateRouteCalculator) 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
createRouteCalculator_calculatorName :: Lens.Lens' CreateRouteCalculator Prelude.Text
createRouteCalculator_calculatorName :: Lens' CreateRouteCalculator Text
createRouteCalculator_calculatorName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculator' {Text
calculatorName :: Text
$sel:calculatorName:CreateRouteCalculator' :: CreateRouteCalculator -> Text
calculatorName} -> Text
calculatorName) (\s :: CreateRouteCalculator
s@CreateRouteCalculator' {} Text
a -> CreateRouteCalculator
s {$sel:calculatorName:CreateRouteCalculator' :: Text
calculatorName = Text
a} :: CreateRouteCalculator)
createRouteCalculator_dataSource :: Lens.Lens' CreateRouteCalculator Prelude.Text
createRouteCalculator_dataSource :: Lens' CreateRouteCalculator Text
createRouteCalculator_dataSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculator' {Text
dataSource :: Text
$sel:dataSource:CreateRouteCalculator' :: CreateRouteCalculator -> Text
dataSource} -> Text
dataSource) (\s :: CreateRouteCalculator
s@CreateRouteCalculator' {} Text
a -> CreateRouteCalculator
s {$sel:dataSource:CreateRouteCalculator' :: Text
dataSource = Text
a} :: CreateRouteCalculator)
instance Core.AWSRequest CreateRouteCalculator where
type
AWSResponse CreateRouteCalculator =
CreateRouteCalculatorResponse
request :: (Service -> Service)
-> CreateRouteCalculator -> Request CreateRouteCalculator
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 CreateRouteCalculator
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateRouteCalculator)))
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 ->
Int -> Text -> Text -> ISO8601 -> CreateRouteCalculatorResponse
CreateRouteCalculatorResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CalculatorArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CalculatorName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CreateTime")
)
instance Prelude.Hashable CreateRouteCalculator where
hashWithSalt :: Int -> CreateRouteCalculator -> Int
hashWithSalt Int
_salt CreateRouteCalculator' {Maybe Text
Maybe (HashMap Text Text)
Maybe PricingPlan
Text
dataSource :: Text
calculatorName :: Text
tags :: Maybe (HashMap Text Text)
pricingPlan :: Maybe PricingPlan
description :: Maybe Text
$sel:dataSource:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:calculatorName:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:tags:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe (HashMap Text Text)
$sel:pricingPlan:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe PricingPlan
$sel:description:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PricingPlan
pricingPlan
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
calculatorName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataSource
instance Prelude.NFData CreateRouteCalculator where
rnf :: CreateRouteCalculator -> ()
rnf CreateRouteCalculator' {Maybe Text
Maybe (HashMap Text Text)
Maybe PricingPlan
Text
dataSource :: Text
calculatorName :: Text
tags :: Maybe (HashMap Text Text)
pricingPlan :: Maybe PricingPlan
description :: Maybe Text
$sel:dataSource:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:calculatorName:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:tags:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe (HashMap Text Text)
$sel:pricingPlan:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe PricingPlan
$sel:description:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe Text
..} =
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 PricingPlan
pricingPlan
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
calculatorName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dataSource
instance Data.ToHeaders CreateRouteCalculator where
toHeaders :: CreateRouteCalculator -> 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.ToJSON CreateRouteCalculator where
toJSON :: CreateRouteCalculator -> Value
toJSON CreateRouteCalculator' {Maybe Text
Maybe (HashMap Text Text)
Maybe PricingPlan
Text
dataSource :: Text
calculatorName :: Text
tags :: Maybe (HashMap Text Text)
pricingPlan :: Maybe PricingPlan
description :: Maybe Text
$sel:dataSource:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:calculatorName:CreateRouteCalculator' :: CreateRouteCalculator -> Text
$sel:tags:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe (HashMap Text Text)
$sel:pricingPlan:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe PricingPlan
$sel:description:CreateRouteCalculator' :: CreateRouteCalculator -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Description" 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
description,
(Key
"PricingPlan" 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 PricingPlan
pricingPlan,
(Key
"Tags" 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 (HashMap Text Text)
tags,
forall a. a -> Maybe a
Prelude.Just
(Key
"CalculatorName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
calculatorName),
forall a. a -> Maybe a
Prelude.Just (Key
"DataSource" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
dataSource)
]
)
instance Data.ToPath CreateRouteCalculator where
toPath :: CreateRouteCalculator -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/routes/v0/calculators"
instance Data.ToQuery CreateRouteCalculator where
toQuery :: CreateRouteCalculator -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateRouteCalculatorResponse = CreateRouteCalculatorResponse'
{
CreateRouteCalculatorResponse -> Int
httpStatus :: Prelude.Int,
CreateRouteCalculatorResponse -> Text
calculatorArn :: Prelude.Text,
CreateRouteCalculatorResponse -> Text
calculatorName :: Prelude.Text,
CreateRouteCalculatorResponse -> ISO8601
createTime :: Data.ISO8601
}
deriving (CreateRouteCalculatorResponse
-> CreateRouteCalculatorResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRouteCalculatorResponse
-> CreateRouteCalculatorResponse -> Bool
$c/= :: CreateRouteCalculatorResponse
-> CreateRouteCalculatorResponse -> Bool
== :: CreateRouteCalculatorResponse
-> CreateRouteCalculatorResponse -> Bool
$c== :: CreateRouteCalculatorResponse
-> CreateRouteCalculatorResponse -> Bool
Prelude.Eq, ReadPrec [CreateRouteCalculatorResponse]
ReadPrec CreateRouteCalculatorResponse
Int -> ReadS CreateRouteCalculatorResponse
ReadS [CreateRouteCalculatorResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateRouteCalculatorResponse]
$creadListPrec :: ReadPrec [CreateRouteCalculatorResponse]
readPrec :: ReadPrec CreateRouteCalculatorResponse
$creadPrec :: ReadPrec CreateRouteCalculatorResponse
readList :: ReadS [CreateRouteCalculatorResponse]
$creadList :: ReadS [CreateRouteCalculatorResponse]
readsPrec :: Int -> ReadS CreateRouteCalculatorResponse
$creadsPrec :: Int -> ReadS CreateRouteCalculatorResponse
Prelude.Read, Int -> CreateRouteCalculatorResponse -> ShowS
[CreateRouteCalculatorResponse] -> ShowS
CreateRouteCalculatorResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRouteCalculatorResponse] -> ShowS
$cshowList :: [CreateRouteCalculatorResponse] -> ShowS
show :: CreateRouteCalculatorResponse -> String
$cshow :: CreateRouteCalculatorResponse -> String
showsPrec :: Int -> CreateRouteCalculatorResponse -> ShowS
$cshowsPrec :: Int -> CreateRouteCalculatorResponse -> ShowS
Prelude.Show, forall x.
Rep CreateRouteCalculatorResponse x
-> CreateRouteCalculatorResponse
forall x.
CreateRouteCalculatorResponse
-> Rep CreateRouteCalculatorResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateRouteCalculatorResponse x
-> CreateRouteCalculatorResponse
$cfrom :: forall x.
CreateRouteCalculatorResponse
-> Rep CreateRouteCalculatorResponse x
Prelude.Generic)
newCreateRouteCalculatorResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
Prelude.UTCTime ->
CreateRouteCalculatorResponse
newCreateRouteCalculatorResponse :: Int -> Text -> Text -> UTCTime -> CreateRouteCalculatorResponse
newCreateRouteCalculatorResponse
Int
pHttpStatus_
Text
pCalculatorArn_
Text
pCalculatorName_
UTCTime
pCreateTime_ =
CreateRouteCalculatorResponse'
{ $sel:httpStatus:CreateRouteCalculatorResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:calculatorArn:CreateRouteCalculatorResponse' :: Text
calculatorArn = Text
pCalculatorArn_,
$sel:calculatorName:CreateRouteCalculatorResponse' :: Text
calculatorName = Text
pCalculatorName_,
$sel:createTime:CreateRouteCalculatorResponse' :: ISO8601
createTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreateTime_
}
createRouteCalculatorResponse_httpStatus :: Lens.Lens' CreateRouteCalculatorResponse Prelude.Int
createRouteCalculatorResponse_httpStatus :: Lens' CreateRouteCalculatorResponse Int
createRouteCalculatorResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculatorResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateRouteCalculatorResponse
s@CreateRouteCalculatorResponse' {} Int
a -> CreateRouteCalculatorResponse
s {$sel:httpStatus:CreateRouteCalculatorResponse' :: Int
httpStatus = Int
a} :: CreateRouteCalculatorResponse)
createRouteCalculatorResponse_calculatorArn :: Lens.Lens' CreateRouteCalculatorResponse Prelude.Text
createRouteCalculatorResponse_calculatorArn :: Lens' CreateRouteCalculatorResponse Text
createRouteCalculatorResponse_calculatorArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculatorResponse' {Text
calculatorArn :: Text
$sel:calculatorArn:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Text
calculatorArn} -> Text
calculatorArn) (\s :: CreateRouteCalculatorResponse
s@CreateRouteCalculatorResponse' {} Text
a -> CreateRouteCalculatorResponse
s {$sel:calculatorArn:CreateRouteCalculatorResponse' :: Text
calculatorArn = Text
a} :: CreateRouteCalculatorResponse)
createRouteCalculatorResponse_calculatorName :: Lens.Lens' CreateRouteCalculatorResponse Prelude.Text
createRouteCalculatorResponse_calculatorName :: Lens' CreateRouteCalculatorResponse Text
createRouteCalculatorResponse_calculatorName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculatorResponse' {Text
calculatorName :: Text
$sel:calculatorName:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Text
calculatorName} -> Text
calculatorName) (\s :: CreateRouteCalculatorResponse
s@CreateRouteCalculatorResponse' {} Text
a -> CreateRouteCalculatorResponse
s {$sel:calculatorName:CreateRouteCalculatorResponse' :: Text
calculatorName = Text
a} :: CreateRouteCalculatorResponse)
createRouteCalculatorResponse_createTime :: Lens.Lens' CreateRouteCalculatorResponse Prelude.UTCTime
createRouteCalculatorResponse_createTime :: Lens' CreateRouteCalculatorResponse UTCTime
createRouteCalculatorResponse_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRouteCalculatorResponse' {ISO8601
createTime :: ISO8601
$sel:createTime:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> ISO8601
createTime} -> ISO8601
createTime) (\s :: CreateRouteCalculatorResponse
s@CreateRouteCalculatorResponse' {} ISO8601
a -> CreateRouteCalculatorResponse
s {$sel:createTime:CreateRouteCalculatorResponse' :: ISO8601
createTime = ISO8601
a} :: CreateRouteCalculatorResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
instance Prelude.NFData CreateRouteCalculatorResponse where
rnf :: CreateRouteCalculatorResponse -> ()
rnf CreateRouteCalculatorResponse' {Int
Text
ISO8601
createTime :: ISO8601
calculatorName :: Text
calculatorArn :: Text
httpStatus :: Int
$sel:createTime:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> ISO8601
$sel:calculatorName:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Text
$sel:calculatorArn:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Text
$sel:httpStatus:CreateRouteCalculatorResponse' :: CreateRouteCalculatorResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
calculatorArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
calculatorName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ISO8601
createTime