module Network.AWS.Mobile.DescribeBundle
(
describeBundle
, DescribeBundle
, dbBundleId
, describeBundleResponse
, DescribeBundleResponse
, dbrsDetails
, dbrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Mobile.Types
import Network.AWS.Mobile.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeBundle = DescribeBundle'
{ _dbBundleId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeBundle
:: Text
-> DescribeBundle
describeBundle pBundleId_ = DescribeBundle' {_dbBundleId = pBundleId_}
dbBundleId :: Lens' DescribeBundle Text
dbBundleId = lens _dbBundleId (\ s a -> s{_dbBundleId = a});
instance AWSRequest DescribeBundle where
type Rs DescribeBundle = DescribeBundleResponse
request = get mobile
response
= receiveJSON
(\ s h x ->
DescribeBundleResponse' <$>
(x .?> "details") <*> (pure (fromEnum s)))
instance Hashable DescribeBundle where
instance NFData DescribeBundle where
instance ToHeaders DescribeBundle where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeBundle where
toPath DescribeBundle'{..}
= mconcat ["/bundles/", toBS _dbBundleId]
instance ToQuery DescribeBundle where
toQuery = const mempty
data DescribeBundleResponse = DescribeBundleResponse'
{ _dbrsDetails :: !(Maybe BundleDetails)
, _dbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeBundleResponse
:: Int
-> DescribeBundleResponse
describeBundleResponse pResponseStatus_ =
DescribeBundleResponse'
{_dbrsDetails = Nothing, _dbrsResponseStatus = pResponseStatus_}
dbrsDetails :: Lens' DescribeBundleResponse (Maybe BundleDetails)
dbrsDetails = lens _dbrsDetails (\ s a -> s{_dbrsDetails = a});
dbrsResponseStatus :: Lens' DescribeBundleResponse Int
dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a});
instance NFData DescribeBundleResponse where