Regenerate 75ba8b0

amazonka-alexa-business/gen/Network/AWS/AlexaBusiness/AssociateContactWithAddressBook.hs

@@ -3,11 +3,13 @@
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE RecordWildCards    #-}
 {-# LANGUAGE TypeFamilies       #-}
+
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 {-# OPTIONS_GHC -fno-warn-unused-binds   #-}
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 -- Derived from AWS service descriptions, licensed under Apache 2.0.
+
 -- |
 -- Module      : Network.AWS.AlexaBusiness.AssociateContactWithAddressBook
 -- Copyright   : (c) 2013-2018 Brendan Hay
@@ -20,18 +22,20 @@
 --
 --
 module Network.AWS.AlexaBusiness.AssociateContactWithAddressBook
+    (
     -- * Creating a Request
-  ( associateContactWithAddressBook
-  , AssociateContactWithAddressBook
+      associateContactWithAddressBook
+    , AssociateContactWithAddressBook
     -- * Request Lenses
-  , acwabContactARN
-  , acwabAddressBookARN
+    , acwabContactARN
+    , acwabAddressBookARN
+
     -- * Destructuring the Response
-  , associateContactWithAddressBookResponse
-  , AssociateContactWithAddressBookResponse
+    , associateContactWithAddressBookResponse
+    , AssociateContactWithAddressBookResponse
     -- * Response Lenses
-  , acwabrsResponseStatus
-  ) where
+    , acwabrsResponseStatus
+    ) where
 
 import Network.AWS.AlexaBusiness.Types
 import Network.AWS.AlexaBusiness.Types.Product
@@ -48,64 +52,71 @@ data AssociateContactWithAddressBook =
     }
   deriving (Eq, Read, Show, Data, Typeable, Generic)
 
+
 -- | Creates a value of 'AssociateContactWithAddressBook' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
 -- * 'acwabContactARN' - The ARN of the contact to associate with an address book.
 --
 -- * 'acwabAddressBookARN' - The ARN of the address book with which to associate the contact.
-associateContactWithAddressBook ::
-     Text -- ^ 'acwabContactARN'
-  -> Text -- ^ 'acwabAddressBookARN'
-  -> AssociateContactWithAddressBook
+associateContactWithAddressBook
+    :: Text -- ^ 'acwabContactARN'
+    -> Text -- ^ 'acwabAddressBookARN'
+    -> AssociateContactWithAddressBook
 associateContactWithAddressBook pContactARN_ pAddressBookARN_ =
   AssociateContactWithAddressBook'
     {_acwabContactARN = pContactARN_, _acwabAddressBookARN = pAddressBookARN_}
 
+
 -- | The ARN of the contact to associate with an address book.
 acwabContactARN :: Lens' AssociateContactWithAddressBook Text
-acwabContactARN = lens _acwabContactARN (\s a -> s {_acwabContactARN = a})
+acwabContactARN = lens _acwabContactARN (\ s a -> s{_acwabContactARN = a})
 
 -- | The ARN of the address book with which to associate the contact.
 acwabAddressBookARN :: Lens' AssociateContactWithAddressBook Text
-acwabAddressBookARN =
-  lens _acwabAddressBookARN (\s a -> s {_acwabAddressBookARN = a})
-
-instance AWSRequest AssociateContactWithAddressBook where
-  type Rs AssociateContactWithAddressBook = AssociateContactWithAddressBookResponse
-  request = postJSON alexaBusiness
-  response =
-    receiveEmpty
-      (\s h x ->
-         AssociateContactWithAddressBookResponse' <$> (pure (fromEnum s)))
+acwabAddressBookARN = lens _acwabAddressBookARN (\ s a -> s{_acwabAddressBookARN = a})
+
+instance AWSRequest AssociateContactWithAddressBook
+         where
+        type Rs AssociateContactWithAddressBook =
+             AssociateContactWithAddressBookResponse
+        request = postJSON alexaBusiness
+        response
+          = receiveEmpty
+              (\ s h x ->
+                 AssociateContactWithAddressBookResponse' <$>
+                   (pure (fromEnum s)))
 
 instance Hashable AssociateContactWithAddressBook
+         where
 
-instance NFData AssociateContactWithAddressBook
+instance NFData AssociateContactWithAddressBook where
 
-instance ToHeaders AssociateContactWithAddressBook where
-  toHeaders =
-    const
-      (mconcat
-         [ "X-Amz-Target" =#
-           ("AlexaForBusiness.AssociateContactWithAddressBook" :: ByteString)
-         , "Content-Type" =# ("application/x-amz-json-1.1" :: ByteString)
-         ])
+instance ToHeaders AssociateContactWithAddressBook
+         where
+        toHeaders
+          = const
+              (mconcat
+                 ["X-Amz-Target" =#
+                    ("AlexaForBusiness.AssociateContactWithAddressBook"
+                       :: ByteString),
+                  "Content-Type" =#
+                    ("application/x-amz-json-1.1" :: ByteString)])
 
 instance ToJSON AssociateContactWithAddressBook where
-  toJSON AssociateContactWithAddressBook' {..} =
-    object
-      (catMaybes
-         [ Just ("ContactArn" .= _acwabContactARN)
-         , Just ("AddressBookArn" .= _acwabAddressBookARN)
-         ])
+        toJSON AssociateContactWithAddressBook'{..}
+          = object
+              (catMaybes
+                 [Just ("ContactArn" .= _acwabContactARN),
+                  Just ("AddressBookArn" .= _acwabAddressBookARN)])
 
 instance ToPath AssociateContactWithAddressBook where
-  toPath = const "/"
+        toPath = const "/"
 
-instance ToQuery AssociateContactWithAddressBook where
-  toQuery = const mempty
+instance ToQuery AssociateContactWithAddressBook
+         where
+        toQuery = const mempty
 
 -- | /See:/ 'associateContactWithAddressBookResponse' smart constructor.
 newtype AssociateContactWithAddressBookResponse =
@@ -114,21 +125,24 @@ newtype AssociateContactWithAddressBookResponse =
     }
   deriving (Eq, Read, Show, Data, Typeable, Generic)
 
+
 -- | Creates a value of 'AssociateContactWithAddressBookResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
 -- * 'acwabrsResponseStatus' - -- | The response status code.
-associateContactWithAddressBookResponse ::
-     Int -- ^ 'acwabrsResponseStatus'
-  -> AssociateContactWithAddressBookResponse
+associateContactWithAddressBookResponse
+    :: Int -- ^ 'acwabrsResponseStatus'
+    -> AssociateContactWithAddressBookResponse
 associateContactWithAddressBookResponse pResponseStatus_ =
   AssociateContactWithAddressBookResponse'
     {_acwabrsResponseStatus = pResponseStatus_}
 
+
 -- | -- | The response status code.
 acwabrsResponseStatus :: Lens' AssociateContactWithAddressBookResponse Int
-acwabrsResponseStatus =
-  lens _acwabrsResponseStatus (\s a -> s {_acwabrsResponseStatus = a})
+acwabrsResponseStatus = lens _acwabrsResponseStatus (\ s a -> s{_acwabrsResponseStatus = a})
 
-instance NFData AssociateContactWithAddressBookResponse
+instance NFData
+           AssociateContactWithAddressBookResponse
+         where

amazonka-alexa-business/gen/Network/AWS/AlexaBusiness/AssociateDeviceWithRoom.hs

@@ -3,11 +3,13 @@
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE RecordWildCards    #-}
 {-# LANGUAGE TypeFamilies       #-}
+
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 {-# OPTIONS_GHC -fno-warn-unused-binds   #-}
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 -- Derived from AWS service descriptions, licensed under Apache 2.0.
+
 -- |
 -- Module      : Network.AWS.AlexaBusiness.AssociateDeviceWithRoom
 -- Copyright   : (c) 2013-2018 Brendan Hay
@@ -20,18 +22,20 @@
 --
 --
 module Network.AWS.AlexaBusiness.AssociateDeviceWithRoom
+    (
     -- * Creating a Request
-  ( associateDeviceWithRoom
-  , AssociateDeviceWithRoom
+      associateDeviceWithRoom
+    , AssociateDeviceWithRoom
     -- * Request Lenses
-  , adwrDeviceARN
-  , adwrRoomARN
+    , adwrDeviceARN
+    , adwrRoomARN
+
     -- * Destructuring the Response
-  , associateDeviceWithRoomResponse
-  , AssociateDeviceWithRoomResponse
+    , associateDeviceWithRoomResponse
+    , AssociateDeviceWithRoomResponse
     -- * Response Lenses
-  , adwrrsResponseStatus
-  ) where
+    , adwrrsResponseStatus
+    ) where
 
 import Network.AWS.AlexaBusiness.Types
 import Network.AWS.AlexaBusiness.Types.Product
@@ -48,56 +52,64 @@ data AssociateDeviceWithRoom =
     }
   deriving (Eq, Read, Show, Data, Typeable, Generic)
 
+
 -- | Creates a value of 'AssociateDeviceWithRoom' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
 -- * 'adwrDeviceARN' - The ARN of the device to associate to a room. Required.
 --
 -- * 'adwrRoomARN' - The ARN of the room with which to associate the device. Required.
-associateDeviceWithRoom :: AssociateDeviceWithRoom
+associateDeviceWithRoom
+    :: AssociateDeviceWithRoom
 associateDeviceWithRoom =
   AssociateDeviceWithRoom' {_adwrDeviceARN = Nothing, _adwrRoomARN = Nothing}
 
+
 -- | The ARN of the device to associate to a room. Required.
 adwrDeviceARN :: Lens' AssociateDeviceWithRoom (Maybe Text)
-adwrDeviceARN = lens _adwrDeviceARN (\s a -> s {_adwrDeviceARN = a})
+adwrDeviceARN = lens _adwrDeviceARN (\ s a -> s{_adwrDeviceARN = a})
 
 -- | The ARN of the room with which to associate the device. Required.
 adwrRoomARN :: Lens' AssociateDeviceWithRoom (Maybe Text)
-adwrRoomARN = lens _adwrRoomARN (\s a -> s {_adwrRoomARN = a})
+adwrRoomARN = lens _adwrRoomARN (\ s a -> s{_adwrRoomARN = a})
 
 instance AWSRequest AssociateDeviceWithRoom where
-  type Rs AssociateDeviceWithRoom = AssociateDeviceWithRoomResponse
-  request = postJSON alexaBusiness
-  response =
-    receiveEmpty
-      (\s h x -> AssociateDeviceWithRoomResponse' <$> (pure (fromEnum s)))
+        type Rs AssociateDeviceWithRoom =
+             AssociateDeviceWithRoomResponse
+        request = postJSON alexaBusiness
+        response
+          = receiveEmpty
+              (\ s h x ->
+                 AssociateDeviceWithRoomResponse' <$>
+                   (pure (fromEnum s)))
 
-instance Hashable AssociateDeviceWithRoom
+instance Hashable AssociateDeviceWithRoom where
 
-instance NFData AssociateDeviceWithRoom
+instance NFData AssociateDeviceWithRoom where
 
 instance ToHeaders AssociateDeviceWithRoom where
-  toHeaders =
-    const
-      (mconcat
-         [ "X-Amz-Target" =#
-           ("AlexaForBusiness.AssociateDeviceWithRoom" :: ByteString)
-         , "Content-Type" =# ("application/x-amz-json-1.1" :: ByteString)
-         ])
+        toHeaders
+          = const
+              (mconcat
+                 ["X-Amz-Target" =#
+                    ("AlexaForBusiness.AssociateDeviceWithRoom" ::
+                       ByteString),
+                  "Content-Type" =#
+                    ("application/x-amz-json-1.1" :: ByteString)])
 
 instance ToJSON AssociateDeviceWithRoom where
-  toJSON AssociateDeviceWithRoom' {..} =
-    object
-      (catMaybes
-         [("DeviceArn" .=) <$> _adwrDeviceARN, ("RoomArn" .=) <$> _adwrRoomARN])
+        toJSON AssociateDeviceWithRoom'{..}
+          = object
+              (catMaybes
+                 [("DeviceArn" .=) <$> _adwrDeviceARN,
+                  ("RoomArn" .=) <$> _adwrRoomARN])
 
 instance ToPath AssociateDeviceWithRoom where
-  toPath = const "/"
+        toPath = const "/"
 
 instance ToQuery AssociateDeviceWithRoom where
-  toQuery = const mempty
+        toQuery = const mempty
 
 -- | /See:/ 'associateDeviceWithRoomResponse' smart constructor.
 newtype AssociateDeviceWithRoomResponse =
@@ -106,20 +118,21 @@ newtype AssociateDeviceWithRoomResponse =
     }
   deriving (Eq, Read, Show, Data, Typeable, Generic)
 
+
 -- | Creates a value of 'AssociateDeviceWithRoomResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
 -- * 'adwrrsResponseStatus' - -- | The response status code.
-associateDeviceWithRoomResponse ::
-     Int -- ^ 'adwrrsResponseStatus'
-  -> AssociateDeviceWithRoomResponse
+associateDeviceWithRoomResponse
+    :: Int -- ^ 'adwrrsResponseStatus'
+    -> AssociateDeviceWithRoomResponse
 associateDeviceWithRoomResponse pResponseStatus_ =
   AssociateDeviceWithRoomResponse' {_adwrrsResponseStatus = pResponseStatus_}
 
+
 -- | -- | The response status code.
 adwrrsResponseStatus :: Lens' AssociateDeviceWithRoomResponse Int
-adwrrsResponseStatus =
-  lens _adwrrsResponseStatus (\s a -> s {_adwrrsResponseStatus = a})
+adwrrsResponseStatus = lens _adwrrsResponseStatus (\ s a -> s{_adwrrsResponseStatus = a})
 
-instance NFData AssociateDeviceWithRoomResponse
+instance NFData AssociateDeviceWithRoomResponse where