{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.MechanicalTurk.DeleteQualificationType
(
deleteQualificationType
, DeleteQualificationType
, dqtQualificationTypeId
, deleteQualificationTypeResponse
, DeleteQualificationTypeResponse
, dqtrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MechanicalTurk.Types
import Network.AWS.MechanicalTurk.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteQualificationType = DeleteQualificationType'
{ _dqtQualificationTypeId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteQualificationType
:: Text
-> DeleteQualificationType
deleteQualificationType pQualificationTypeId_ =
DeleteQualificationType' {_dqtQualificationTypeId = pQualificationTypeId_}
dqtQualificationTypeId :: Lens' DeleteQualificationType Text
dqtQualificationTypeId = lens _dqtQualificationTypeId (\ s a -> s{_dqtQualificationTypeId = a})
instance AWSRequest DeleteQualificationType where
type Rs DeleteQualificationType =
DeleteQualificationTypeResponse
request = postJSON mechanicalTurk
response
= receiveEmpty
(\ s h x ->
DeleteQualificationTypeResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteQualificationType where
instance NFData DeleteQualificationType where
instance ToHeaders DeleteQualificationType where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("MTurkRequesterServiceV20170117.DeleteQualificationType"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteQualificationType where
toJSON DeleteQualificationType'{..}
= object
(catMaybes
[Just
("QualificationTypeId" .= _dqtQualificationTypeId)])
instance ToPath DeleteQualificationType where
toPath = const "/"
instance ToQuery DeleteQualificationType where
toQuery = const mempty
newtype DeleteQualificationTypeResponse = DeleteQualificationTypeResponse'
{ _dqtrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteQualificationTypeResponse
:: Int
-> DeleteQualificationTypeResponse
deleteQualificationTypeResponse pResponseStatus_ =
DeleteQualificationTypeResponse' {_dqtrsResponseStatus = pResponseStatus_}
dqtrsResponseStatus :: Lens' DeleteQualificationTypeResponse Int
dqtrsResponseStatus = lens _dqtrsResponseStatus (\ s a -> s{_dqtrsResponseStatus = a})
instance NFData DeleteQualificationTypeResponse where