Skip to content

Commit

Permalink
amazonka-gen: regenerating all services
Browse files Browse the repository at this point in the history
  • Loading branch information
brendanhay committed Jun 14, 2021
1 parent f47b960 commit ea1fe29
Show file tree
Hide file tree
Showing 15,482 changed files with 421,563 additions and 384,963 deletions.
The diff you're trying to view is too large. We only load the first 3000 changed files.
Original file line number Diff line number Diff line change
Expand Up @@ -43,15 +43,16 @@ where
import Network.AWS.AlexaBusiness.Types
import qualified Network.AWS.Core as Core
import qualified Network.AWS.Lens as Lens
import qualified Network.AWS.Prelude as Prelude
import qualified Network.AWS.Request as Request
import qualified Network.AWS.Response as Response

-- | /See:/ 'newApproveSkill' smart constructor.
data ApproveSkill = ApproveSkill'
{ -- | The unique identifier of the skill.
skillId :: Core.Text
skillId :: Prelude.Text
}
deriving (Core.Eq, Core.Read, Core.Show, Core.Generic)
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'ApproveSkill' with all optional fields omitted.
Expand All @@ -64,13 +65,13 @@ data ApproveSkill = ApproveSkill'
-- 'skillId', 'approveSkill_skillId' - The unique identifier of the skill.
newApproveSkill ::
-- | 'skillId'
Core.Text ->
Prelude.Text ->
ApproveSkill
newApproveSkill pSkillId_ =
ApproveSkill' {skillId = pSkillId_}

-- | The unique identifier of the skill.
approveSkill_skillId :: Lens.Lens' ApproveSkill Core.Text
approveSkill_skillId :: Lens.Lens' ApproveSkill Prelude.Text
approveSkill_skillId = Lens.lens (\ApproveSkill' {skillId} -> skillId) (\s@ApproveSkill' {} a -> s {skillId = a} :: ApproveSkill)

instance Core.AWSRequest ApproveSkill where
Expand All @@ -80,43 +81,47 @@ instance Core.AWSRequest ApproveSkill where
Response.receiveEmpty
( \s h x ->
ApproveSkillResponse'
Core.<$> (Core.pure (Core.fromEnum s))
Prelude.<$> (Prelude.pure (Prelude.fromEnum s))
)

instance Core.Hashable ApproveSkill
instance Prelude.Hashable ApproveSkill

instance Core.NFData ApproveSkill
instance Prelude.NFData ApproveSkill

instance Core.ToHeaders ApproveSkill where
toHeaders =
Core.const
( Core.mconcat
Prelude.const
( Prelude.mconcat
[ "X-Amz-Target"
Core.=# ("AlexaForBusiness.ApproveSkill" :: Core.ByteString),
Core.=# ( "AlexaForBusiness.ApproveSkill" ::
Prelude.ByteString
),
"Content-Type"
Core.=# ("application/x-amz-json-1.1" :: Core.ByteString)
Core.=# ( "application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)

instance Core.ToJSON ApproveSkill where
toJSON ApproveSkill' {..} =
Core.object
( Core.catMaybes
[Core.Just ("SkillId" Core..= skillId)]
( Prelude.catMaybes
[Prelude.Just ("SkillId" Core..= skillId)]
)

instance Core.ToPath ApproveSkill where
toPath = Core.const "/"
toPath = Prelude.const "/"

instance Core.ToQuery ApproveSkill where
toQuery = Core.const Core.mempty
toQuery = Prelude.const Prelude.mempty

-- | /See:/ 'newApproveSkillResponse' smart constructor.
data ApproveSkillResponse = ApproveSkillResponse'
{ -- | The response's http status code.
httpStatus :: Core.Int
httpStatus :: Prelude.Int
}
deriving (Core.Eq, Core.Read, Core.Show, Core.Generic)
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'ApproveSkillResponse' with all optional fields omitted.
Expand All @@ -129,13 +134,13 @@ data ApproveSkillResponse = ApproveSkillResponse'
-- 'httpStatus', 'approveSkillResponse_httpStatus' - The response's http status code.
newApproveSkillResponse ::
-- | 'httpStatus'
Core.Int ->
Prelude.Int ->
ApproveSkillResponse
newApproveSkillResponse pHttpStatus_ =
ApproveSkillResponse' {httpStatus = pHttpStatus_}

-- | The response's http status code.
approveSkillResponse_httpStatus :: Lens.Lens' ApproveSkillResponse Core.Int
approveSkillResponse_httpStatus :: Lens.Lens' ApproveSkillResponse Prelude.Int
approveSkillResponse_httpStatus = Lens.lens (\ApproveSkillResponse' {httpStatus} -> httpStatus) (\s@ApproveSkillResponse' {} a -> s {httpStatus = a} :: ApproveSkillResponse)

instance Core.NFData ApproveSkillResponse
instance Prelude.NFData ApproveSkillResponse
Original file line number Diff line number Diff line change
Expand Up @@ -42,17 +42,18 @@ where
import Network.AWS.AlexaBusiness.Types
import qualified Network.AWS.Core as Core
import qualified Network.AWS.Lens as Lens
import qualified Network.AWS.Prelude as Prelude
import qualified Network.AWS.Request as Request
import qualified Network.AWS.Response as Response

-- | /See:/ 'newAssociateContactWithAddressBook' smart constructor.
data AssociateContactWithAddressBook = AssociateContactWithAddressBook'
{ -- | The ARN of the contact to associate with an address book.
contactArn :: Core.Text,
contactArn :: Prelude.Text,
-- | The ARN of the address book with which to associate the contact.
addressBookArn :: Core.Text
addressBookArn :: Prelude.Text
}
deriving (Core.Eq, Core.Read, Core.Show, Core.Generic)
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'AssociateContactWithAddressBook' with all optional fields omitted.
Expand All @@ -67,9 +68,9 @@ data AssociateContactWithAddressBook = AssociateContactWithAddressBook'
-- 'addressBookArn', 'associateContactWithAddressBook_addressBookArn' - The ARN of the address book with which to associate the contact.
newAssociateContactWithAddressBook ::
-- | 'contactArn'
Core.Text ->
Prelude.Text ->
-- | 'addressBookArn'
Core.Text ->
Prelude.Text ->
AssociateContactWithAddressBook
newAssociateContactWithAddressBook
pContactArn_
Expand All @@ -81,11 +82,11 @@ newAssociateContactWithAddressBook
}

-- | The ARN of the contact to associate with an address book.
associateContactWithAddressBook_contactArn :: Lens.Lens' AssociateContactWithAddressBook Core.Text
associateContactWithAddressBook_contactArn :: Lens.Lens' AssociateContactWithAddressBook Prelude.Text
associateContactWithAddressBook_contactArn = Lens.lens (\AssociateContactWithAddressBook' {contactArn} -> contactArn) (\s@AssociateContactWithAddressBook' {} a -> s {contactArn = a} :: AssociateContactWithAddressBook)

-- | The ARN of the address book with which to associate the contact.
associateContactWithAddressBook_addressBookArn :: Lens.Lens' AssociateContactWithAddressBook Core.Text
associateContactWithAddressBook_addressBookArn :: Lens.Lens' AssociateContactWithAddressBook Prelude.Text
associateContactWithAddressBook_addressBookArn = Lens.lens (\AssociateContactWithAddressBook' {addressBookArn} -> addressBookArn) (\s@AssociateContactWithAddressBook' {} a -> s {addressBookArn = a} :: AssociateContactWithAddressBook)

instance
Expand All @@ -100,52 +101,57 @@ instance
Response.receiveEmpty
( \s h x ->
AssociateContactWithAddressBookResponse'
Core.<$> (Core.pure (Core.fromEnum s))
Prelude.<$> (Prelude.pure (Prelude.fromEnum s))
)

instance
Core.Hashable
Prelude.Hashable
AssociateContactWithAddressBook

instance Core.NFData AssociateContactWithAddressBook
instance
Prelude.NFData
AssociateContactWithAddressBook

instance
Core.ToHeaders
AssociateContactWithAddressBook
where
toHeaders =
Core.const
( Core.mconcat
Prelude.const
( Prelude.mconcat
[ "X-Amz-Target"
Core.=# ( "AlexaForBusiness.AssociateContactWithAddressBook" ::
Core.ByteString
Prelude.ByteString
),
"Content-Type"
Core.=# ("application/x-amz-json-1.1" :: Core.ByteString)
Core.=# ( "application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)

instance Core.ToJSON AssociateContactWithAddressBook where
toJSON AssociateContactWithAddressBook' {..} =
Core.object
( Core.catMaybes
[ Core.Just ("ContactArn" Core..= contactArn),
Core.Just ("AddressBookArn" Core..= addressBookArn)
( Prelude.catMaybes
[ Prelude.Just ("ContactArn" Core..= contactArn),
Prelude.Just
("AddressBookArn" Core..= addressBookArn)
]
)

instance Core.ToPath AssociateContactWithAddressBook where
toPath = Core.const "/"
toPath = Prelude.const "/"

instance Core.ToQuery AssociateContactWithAddressBook where
toQuery = Core.const Core.mempty
toQuery = Prelude.const Prelude.mempty

-- | /See:/ 'newAssociateContactWithAddressBookResponse' smart constructor.
data AssociateContactWithAddressBookResponse = AssociateContactWithAddressBookResponse'
{ -- | The response's http status code.
httpStatus :: Core.Int
httpStatus :: Prelude.Int
}
deriving (Core.Eq, Core.Read, Core.Show, Core.Generic)
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'AssociateContactWithAddressBookResponse' with all optional fields omitted.
Expand All @@ -158,7 +164,7 @@ data AssociateContactWithAddressBookResponse = AssociateContactWithAddressBookRe
-- 'httpStatus', 'associateContactWithAddressBookResponse_httpStatus' - The response's http status code.
newAssociateContactWithAddressBookResponse ::
-- | 'httpStatus'
Core.Int ->
Prelude.Int ->
AssociateContactWithAddressBookResponse
newAssociateContactWithAddressBookResponse
pHttpStatus_ =
Expand All @@ -168,9 +174,9 @@ newAssociateContactWithAddressBookResponse
}

-- | The response's http status code.
associateContactWithAddressBookResponse_httpStatus :: Lens.Lens' AssociateContactWithAddressBookResponse Core.Int
associateContactWithAddressBookResponse_httpStatus :: Lens.Lens' AssociateContactWithAddressBookResponse Prelude.Int
associateContactWithAddressBookResponse_httpStatus = Lens.lens (\AssociateContactWithAddressBookResponse' {httpStatus} -> httpStatus) (\s@AssociateContactWithAddressBookResponse' {} a -> s {httpStatus = a} :: AssociateContactWithAddressBookResponse)

instance
Core.NFData
Prelude.NFData
AssociateContactWithAddressBookResponse
Loading

0 comments on commit ea1fe29

Please sign in to comment.