module Network.AWS.MachineLearning.UpdateDataSource
(
UpdateDataSource
, updateDataSource
, udsDataSourceId
, udsDataSourceName
, UpdateDataSourceResponse
, updateDataSourceResponse
, udsrDataSourceId
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.MachineLearning.Types
import qualified GHC.Exts
data UpdateDataSource = UpdateDataSource
{ _udsDataSourceId :: Text
, _udsDataSourceName :: Text
} deriving (Eq, Ord, Read, Show)
updateDataSource :: Text
-> Text
-> UpdateDataSource
updateDataSource p1 p2 = UpdateDataSource
{ _udsDataSourceId = p1
, _udsDataSourceName = p2
}
udsDataSourceId :: Lens' UpdateDataSource Text
udsDataSourceId = lens _udsDataSourceId (\s a -> s { _udsDataSourceId = a })
udsDataSourceName :: Lens' UpdateDataSource Text
udsDataSourceName =
lens _udsDataSourceName (\s a -> s { _udsDataSourceName = a })
newtype UpdateDataSourceResponse = UpdateDataSourceResponse
{ _udsrDataSourceId :: Maybe Text
} deriving (Eq, Ord, Read, Show, Monoid)
updateDataSourceResponse :: UpdateDataSourceResponse
updateDataSourceResponse = UpdateDataSourceResponse
{ _udsrDataSourceId = Nothing
}
udsrDataSourceId :: Lens' UpdateDataSourceResponse (Maybe Text)
udsrDataSourceId = lens _udsrDataSourceId (\s a -> s { _udsrDataSourceId = a })
instance ToPath UpdateDataSource where
toPath = const "/"
instance ToQuery UpdateDataSource where
toQuery = const mempty
instance ToHeaders UpdateDataSource
instance ToJSON UpdateDataSource where
toJSON UpdateDataSource{..} = object
[ "DataSourceId" .= _udsDataSourceId
, "DataSourceName" .= _udsDataSourceName
]
instance AWSRequest UpdateDataSource where
type Sv UpdateDataSource = MachineLearning
type Rs UpdateDataSource = UpdateDataSourceResponse
request = post "UpdateDataSource"
response = jsonResponse
instance FromJSON UpdateDataSourceResponse where
parseJSON = withObject "UpdateDataSourceResponse" $ \o -> UpdateDataSourceResponse
<$> o .:? "DataSourceId"