{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.DataTransfer.Types.Product where
import Network.Google.DataTransfer.Types.Sum
import Network.Google.Prelude
data Application =
Application'
{ _aTransferParams :: !(Maybe [ApplicationTransferParam])
, _aEtag :: !(Maybe Text)
, _aKind :: !Text
, _aName :: !(Maybe Text)
, _aId :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
application
:: Application
application =
Application'
{ _aTransferParams = Nothing
, _aEtag = Nothing
, _aKind = "admin#datatransfer#ApplicationResource"
, _aName = Nothing
, _aId = Nothing
}
aTransferParams :: Lens' Application [ApplicationTransferParam]
aTransferParams
= lens _aTransferParams
(\ s a -> s{_aTransferParams = a})
. _Default
. _Coerce
aEtag :: Lens' Application (Maybe Text)
aEtag = lens _aEtag (\ s a -> s{_aEtag = a})
aKind :: Lens' Application Text
aKind = lens _aKind (\ s a -> s{_aKind = a})
aName :: Lens' Application (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aId :: Lens' Application (Maybe Int64)
aId
= lens _aId (\ s a -> s{_aId = a}) . mapping _Coerce
instance FromJSON Application where
parseJSON
= withObject "Application"
(\ o ->
Application' <$>
(o .:? "transferParams" .!= mempty) <*>
(o .:? "etag")
<*>
(o .:? "kind" .!=
"admin#datatransfer#ApplicationResource")
<*> (o .:? "name")
<*> (o .:? "id"))
instance ToJSON Application where
toJSON Application'{..}
= object
(catMaybes
[("transferParams" .=) <$> _aTransferParams,
("etag" .=) <$> _aEtag, Just ("kind" .= _aKind),
("name" .=) <$> _aName, ("id" .=) <$> _aId])
data ApplicationTransferParam =
ApplicationTransferParam'
{ _atpValue :: !(Maybe [Text])
, _atpKey :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
applicationTransferParam
:: ApplicationTransferParam
applicationTransferParam =
ApplicationTransferParam' {_atpValue = Nothing, _atpKey = Nothing}
atpValue :: Lens' ApplicationTransferParam [Text]
atpValue
= lens _atpValue (\ s a -> s{_atpValue = a}) .
_Default
. _Coerce
atpKey :: Lens' ApplicationTransferParam (Maybe Text)
atpKey = lens _atpKey (\ s a -> s{_atpKey = a})
instance FromJSON ApplicationTransferParam where
parseJSON
= withObject "ApplicationTransferParam"
(\ o ->
ApplicationTransferParam' <$>
(o .:? "value" .!= mempty) <*> (o .:? "key"))
instance ToJSON ApplicationTransferParam where
toJSON ApplicationTransferParam'{..}
= object
(catMaybes
[("value" .=) <$> _atpValue, ("key" .=) <$> _atpKey])
data ApplicationsListResponse =
ApplicationsListResponse'
{ _alrEtag :: !(Maybe Text)
, _alrNextPageToken :: !(Maybe Text)
, _alrKind :: !Text
, _alrApplications :: !(Maybe [Application])
}
deriving (Eq, Show, Data, Typeable, Generic)
applicationsListResponse
:: ApplicationsListResponse
applicationsListResponse =
ApplicationsListResponse'
{ _alrEtag = Nothing
, _alrNextPageToken = Nothing
, _alrKind = "admin#datatransfer#applicationsList"
, _alrApplications = Nothing
}
alrEtag :: Lens' ApplicationsListResponse (Maybe Text)
alrEtag = lens _alrEtag (\ s a -> s{_alrEtag = a})
alrNextPageToken :: Lens' ApplicationsListResponse (Maybe Text)
alrNextPageToken
= lens _alrNextPageToken
(\ s a -> s{_alrNextPageToken = a})
alrKind :: Lens' ApplicationsListResponse Text
alrKind = lens _alrKind (\ s a -> s{_alrKind = a})
alrApplications :: Lens' ApplicationsListResponse [Application]
alrApplications
= lens _alrApplications
(\ s a -> s{_alrApplications = a})
. _Default
. _Coerce
instance FromJSON ApplicationsListResponse where
parseJSON
= withObject "ApplicationsListResponse"
(\ o ->
ApplicationsListResponse' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"admin#datatransfer#applicationsList")
<*> (o .:? "applications" .!= mempty))
instance ToJSON ApplicationsListResponse where
toJSON ApplicationsListResponse'{..}
= object
(catMaybes
[("etag" .=) <$> _alrEtag,
("nextPageToken" .=) <$> _alrNextPageToken,
Just ("kind" .= _alrKind),
("applications" .=) <$> _alrApplications])
data DataTransfer =
DataTransfer'
{ _dtEtag :: !(Maybe Text)
, _dtOldOwnerUserId :: !(Maybe Text)
, _dtKind :: !Text
, _dtNewOwnerUserId :: !(Maybe Text)
, _dtRequestTime :: !(Maybe DateTime')
, _dtApplicationDataTransfers :: !(Maybe [ApplicationDataTransfer])
, _dtId :: !(Maybe Text)
, _dtOverallTransferStatusCode :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
dataTransfer
:: DataTransfer
dataTransfer =
DataTransfer'
{ _dtEtag = Nothing
, _dtOldOwnerUserId = Nothing
, _dtKind = "admin#datatransfer#DataTransfer"
, _dtNewOwnerUserId = Nothing
, _dtRequestTime = Nothing
, _dtApplicationDataTransfers = Nothing
, _dtId = Nothing
, _dtOverallTransferStatusCode = Nothing
}
dtEtag :: Lens' DataTransfer (Maybe Text)
dtEtag = lens _dtEtag (\ s a -> s{_dtEtag = a})
dtOldOwnerUserId :: Lens' DataTransfer (Maybe Text)
dtOldOwnerUserId
= lens _dtOldOwnerUserId
(\ s a -> s{_dtOldOwnerUserId = a})
dtKind :: Lens' DataTransfer Text
dtKind = lens _dtKind (\ s a -> s{_dtKind = a})
dtNewOwnerUserId :: Lens' DataTransfer (Maybe Text)
dtNewOwnerUserId
= lens _dtNewOwnerUserId
(\ s a -> s{_dtNewOwnerUserId = a})
dtRequestTime :: Lens' DataTransfer (Maybe UTCTime)
dtRequestTime
= lens _dtRequestTime
(\ s a -> s{_dtRequestTime = a})
. mapping _DateTime
dtApplicationDataTransfers :: Lens' DataTransfer [ApplicationDataTransfer]
dtApplicationDataTransfers
= lens _dtApplicationDataTransfers
(\ s a -> s{_dtApplicationDataTransfers = a})
. _Default
. _Coerce
dtId :: Lens' DataTransfer (Maybe Text)
dtId = lens _dtId (\ s a -> s{_dtId = a})
dtOverallTransferStatusCode :: Lens' DataTransfer (Maybe Text)
dtOverallTransferStatusCode
= lens _dtOverallTransferStatusCode
(\ s a -> s{_dtOverallTransferStatusCode = a})
instance FromJSON DataTransfer where
parseJSON
= withObject "DataTransfer"
(\ o ->
DataTransfer' <$>
(o .:? "etag") <*> (o .:? "oldOwnerUserId") <*>
(o .:? "kind" .!= "admin#datatransfer#DataTransfer")
<*> (o .:? "newOwnerUserId")
<*> (o .:? "requestTime")
<*> (o .:? "applicationDataTransfers" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "overallTransferStatusCode"))
instance ToJSON DataTransfer where
toJSON DataTransfer'{..}
= object
(catMaybes
[("etag" .=) <$> _dtEtag,
("oldOwnerUserId" .=) <$> _dtOldOwnerUserId,
Just ("kind" .= _dtKind),
("newOwnerUserId" .=) <$> _dtNewOwnerUserId,
("requestTime" .=) <$> _dtRequestTime,
("applicationDataTransfers" .=) <$>
_dtApplicationDataTransfers,
("id" .=) <$> _dtId,
("overallTransferStatusCode" .=) <$>
_dtOverallTransferStatusCode])
data DataTransfersListResponse =
DataTransfersListResponse'
{ _dtlrEtag :: !(Maybe Text)
, _dtlrNextPageToken :: !(Maybe Text)
, _dtlrKind :: !Text
, _dtlrDataTransfers :: !(Maybe [DataTransfer])
}
deriving (Eq, Show, Data, Typeable, Generic)
dataTransfersListResponse
:: DataTransfersListResponse
dataTransfersListResponse =
DataTransfersListResponse'
{ _dtlrEtag = Nothing
, _dtlrNextPageToken = Nothing
, _dtlrKind = "admin#datatransfer#dataTransfersList"
, _dtlrDataTransfers = Nothing
}
dtlrEtag :: Lens' DataTransfersListResponse (Maybe Text)
dtlrEtag = lens _dtlrEtag (\ s a -> s{_dtlrEtag = a})
dtlrNextPageToken :: Lens' DataTransfersListResponse (Maybe Text)
dtlrNextPageToken
= lens _dtlrNextPageToken
(\ s a -> s{_dtlrNextPageToken = a})
dtlrKind :: Lens' DataTransfersListResponse Text
dtlrKind = lens _dtlrKind (\ s a -> s{_dtlrKind = a})
dtlrDataTransfers :: Lens' DataTransfersListResponse [DataTransfer]
dtlrDataTransfers
= lens _dtlrDataTransfers
(\ s a -> s{_dtlrDataTransfers = a})
. _Default
. _Coerce
instance FromJSON DataTransfersListResponse where
parseJSON
= withObject "DataTransfersListResponse"
(\ o ->
DataTransfersListResponse' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"admin#datatransfer#dataTransfersList")
<*> (o .:? "dataTransfers" .!= mempty))
instance ToJSON DataTransfersListResponse where
toJSON DataTransfersListResponse'{..}
= object
(catMaybes
[("etag" .=) <$> _dtlrEtag,
("nextPageToken" .=) <$> _dtlrNextPageToken,
Just ("kind" .= _dtlrKind),
("dataTransfers" .=) <$> _dtlrDataTransfers])
data ApplicationDataTransfer =
ApplicationDataTransfer'
{ _adtApplicationTransferParams :: !(Maybe [ApplicationTransferParam])
, _adtApplicationId :: !(Maybe (Textual Int64))
, _adtApplicationTransferStatus :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
applicationDataTransfer
:: ApplicationDataTransfer
applicationDataTransfer =
ApplicationDataTransfer'
{ _adtApplicationTransferParams = Nothing
, _adtApplicationId = Nothing
, _adtApplicationTransferStatus = Nothing
}
adtApplicationTransferParams :: Lens' ApplicationDataTransfer [ApplicationTransferParam]
adtApplicationTransferParams
= lens _adtApplicationTransferParams
(\ s a -> s{_adtApplicationTransferParams = a})
. _Default
. _Coerce
adtApplicationId :: Lens' ApplicationDataTransfer (Maybe Int64)
adtApplicationId
= lens _adtApplicationId
(\ s a -> s{_adtApplicationId = a})
. mapping _Coerce
adtApplicationTransferStatus :: Lens' ApplicationDataTransfer (Maybe Text)
adtApplicationTransferStatus
= lens _adtApplicationTransferStatus
(\ s a -> s{_adtApplicationTransferStatus = a})
instance FromJSON ApplicationDataTransfer where
parseJSON
= withObject "ApplicationDataTransfer"
(\ o ->
ApplicationDataTransfer' <$>
(o .:? "applicationTransferParams" .!= mempty) <*>
(o .:? "applicationId")
<*> (o .:? "applicationTransferStatus"))
instance ToJSON ApplicationDataTransfer where
toJSON ApplicationDataTransfer'{..}
= object
(catMaybes
[("applicationTransferParams" .=) <$>
_adtApplicationTransferParams,
("applicationId" .=) <$> _adtApplicationId,
("applicationTransferStatus" .=) <$>
_adtApplicationTransferStatus])