gogol-alertcenter 0.4.0 → 0.5.0

raw patch · 13 files changed

+508/−193 lines, 13 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/AlertCenter.hs +17/−0
• gen/Network/Google/AlertCenter/Types.hs +18/−1
• gen/Network/Google/AlertCenter/Types/Product.hs +395/−149
• gen/Network/Google/Resource/AlertCenter/Alerts/Delete.hs +7/−3
• gen/Network/Google/Resource/AlertCenter/Alerts/Feedback/Create.hs +12/−7
• gen/Network/Google/Resource/AlertCenter/Alerts/Feedback/List.hs +12/−7
• gen/Network/Google/Resource/AlertCenter/Alerts/Get.hs +12/−7
• gen/Network/Google/Resource/AlertCenter/Alerts/List.hs +9/−5
• gen/Network/Google/Resource/AlertCenter/Alerts/Undelete.hs +7/−3
• gen/Network/Google/Resource/AlertCenter/GetSettings.hs +7/−3
• gen/Network/Google/Resource/AlertCenter/UpdateSettings.hs +9/−5
• gogol-alertcenter.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -127,6 +127,22 @@     , notification     , nCloudPubsubTopic +    -- ** ActivityRule+    , ActivityRule+    , activityRule+    , arSupersededAlerts+    , arActionNames+    , arSupersedingAlert+    , arTriggerSource+    , arWindowSize+    , arUpdateTime+    , arName+    , arThreshold+    , arQuery+    , arDisplayName+    , arDescription+    , arCreateTime+     -- ** AccountWarning     , AccountWarning     , accountWarning@@ -183,6 +199,7 @@     , aAlertId     , aSecurityInvestigationToolLink     , aCustomerId+    , aUpdateTime     , aEndTime     , aSource     , aDeleted

@@ -94,6 +94,22 @@     , notification     , nCloudPubsubTopic +    -- * ActivityRule+    , ActivityRule+    , activityRule+    , arSupersededAlerts+    , arActionNames+    , arSupersedingAlert+    , arTriggerSource+    , arWindowSize+    , arUpdateTime+    , arName+    , arThreshold+    , arQuery+    , arDisplayName+    , arDescription+    , arCreateTime+     -- * AccountWarning     , AccountWarning     , accountWarning@@ -150,6 +166,7 @@     , aAlertId     , aSecurityInvestigationToolLink     , aCustomerId+    , aUpdateTime     , aEndTime     , aSource     , aDeleted@@ -238,4 +255,4 @@  -- | See and delete your domain\'s G Suite alerts, and send alert feedback appsAlertsScope :: Proxy '["https://www.googleapis.com/auth/apps.alerts"]-appsAlertsScope = Proxy;+appsAlertsScope = Proxy

@@ -23,11 +23,14 @@ -- | Response message for an alert listing request. -- -- /See:/ 'listAlertsResponse' smart constructor.-data ListAlertsResponse = ListAlertsResponse'+data ListAlertsResponse =+  ListAlertsResponse'     { _larNextPageToken :: !(Maybe Text)     , _larAlerts        :: !(Maybe [Alert])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAlertsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -38,11 +41,9 @@ listAlertsResponse     :: ListAlertsResponse listAlertsResponse =-    ListAlertsResponse'-    { _larNextPageToken = Nothing-    , _larAlerts = Nothing-    }+  ListAlertsResponse' {_larNextPageToken = Nothing, _larAlerts = Nothing} + -- | The token for the next page. If not empty, indicates that there may be -- more alerts that match the listing request; this value can be used in a -- subsequent ListAlertsRequest to get alerts continuing from last result@@ -77,10 +78,13 @@ -- | A representation of a single data row in a CSV file. -- -- /See:/ 'csvRow' smart constructor.-newtype CSVRow = CSVRow'+newtype CSVRow =+  CSVRow'     { _crEntries :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CSVRow' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,11 +92,9 @@ -- * 'crEntries' csvRow     :: CSVRow-csvRow =-    CSVRow'-    { _crEntries = Nothing-    }+csvRow = CSVRow' {_crEntries = Nothing} + -- | The data entries in a CSV file row, as a string array rather than a -- single comma-separated string. crEntries :: Lens' CSVRow [Text]@@ -113,15 +115,18 @@ -- | A customer feedback about an alert. -- -- /See:/ 'alertFeedback' smart constructor.-data AlertFeedback = AlertFeedback'+data AlertFeedback =+  AlertFeedback'     { _afFeedbackId :: !(Maybe Text)     , _afEmail      :: !(Maybe Text)     , _afAlertId    :: !(Maybe Text)     , _afCustomerId :: !(Maybe Text)     , _afType       :: !(Maybe AlertFeedbackType)     , _afCreateTime :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertFeedback' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,7 +145,7 @@ alertFeedback     :: AlertFeedback alertFeedback =-    AlertFeedback'+  AlertFeedback'     { _afFeedbackId = Nothing     , _afEmail = Nothing     , _afAlertId = Nothing@@ -149,6 +154,7 @@     , _afCreateTime = Nothing     } + -- | Output only. The unique identifier for the feedback. afFeedbackId :: Lens' AlertFeedback (Maybe Text) afFeedbackId@@ -204,11 +210,14 @@ -- | A mobile device compromised alert. Derived from audit logs. -- -- /See:/ 'deviceCompromised' smart constructor.-data DeviceCompromised = DeviceCompromised'+data DeviceCompromised =+  DeviceCompromised'     { _dcEmail  :: !(Maybe Text)     , _dcEvents :: !(Maybe [DeviceCompromisedSecurityDetail])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceCompromised' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -218,12 +227,9 @@ -- * 'dcEvents' deviceCompromised     :: DeviceCompromised-deviceCompromised =-    DeviceCompromised'-    { _dcEmail = Nothing-    , _dcEvents = Nothing-    }+deviceCompromised = DeviceCompromised' {_dcEmail = Nothing, _dcEvents = Nothing} + -- | The email of the user this alert was created for. dcEmail :: Lens' DeviceCompromised (Maybe Text) dcEmail = lens _dcEmail (\ s a -> s{_dcEmail = a})@@ -252,10 +258,13 @@ -- | A state-sponsored attack alert. Derived from audit logs. -- -- /See:/ 'stateSponsoredAttack' smart constructor.-newtype StateSponsoredAttack = StateSponsoredAttack'+newtype StateSponsoredAttack =+  StateSponsoredAttack'     { _ssaEmail :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StateSponsoredAttack' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -263,11 +272,9 @@ -- * 'ssaEmail' stateSponsoredAttack     :: StateSponsoredAttack-stateSponsoredAttack =-    StateSponsoredAttack'-    { _ssaEmail = Nothing-    }+stateSponsoredAttack = StateSponsoredAttack' {_ssaEmail = Nothing} + -- | The email of the user this incident was created for. ssaEmail :: Lens' StateSponsoredAttack (Maybe Text) ssaEmail = lens _ssaEmail (\ s a -> s{_ssaEmail = a})@@ -285,13 +292,16 @@ -- whitelisted domain or IP in Gmail advanced settings. -- -- /See:/ 'badWhiteList' smart constructor.-data BadWhiteList = BadWhiteList'+data BadWhiteList =+  BadWhiteList'     { _bwlSourceIP        :: !(Maybe Text)     , _bwlDomainId        :: !(Maybe DomainId)     , _bwlMessages        :: !(Maybe [GmailMessageInfo])     , _bwlMaliciousEntity :: !(Maybe MaliciousEntity)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BadWhiteList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -306,13 +316,14 @@ badWhiteList     :: BadWhiteList badWhiteList =-    BadWhiteList'+  BadWhiteList'     { _bwlSourceIP = Nothing     , _bwlDomainId = Nothing     , _bwlMessages = Nothing     , _bwlMaliciousEntity = Nothing     } + -- | The source IP address of the malicious email, for example, -- \`127.0.0.1\`. bwlSourceIP :: Lens' BadWhiteList (Maybe Text)@@ -358,7 +369,8 @@ -- | Detailed information of a single MDM suspicious activity event. -- -- /See:/ 'suspiciousActivitySecurityDetail' smart constructor.-data SuspiciousActivitySecurityDetail = SuspiciousActivitySecurityDetail'+data SuspiciousActivitySecurityDetail =+  SuspiciousActivitySecurityDetail'     { _sasdDeviceProperty :: !(Maybe Text)     , _sasdResourceId     :: !(Maybe Text)     , _sasdIosVendorId    :: !(Maybe Text)@@ -368,8 +380,10 @@     , _sasdDeviceId       :: !(Maybe Text)     , _sasdDeviceType     :: !(Maybe Text)     , _sasdSerialNumber   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuspiciousActivitySecurityDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -394,7 +408,7 @@ suspiciousActivitySecurityDetail     :: SuspiciousActivitySecurityDetail suspiciousActivitySecurityDetail =-    SuspiciousActivitySecurityDetail'+  SuspiciousActivitySecurityDetail'     { _sasdDeviceProperty = Nothing     , _sasdResourceId = Nothing     , _sasdIosVendorId = Nothing@@ -406,6 +420,7 @@     , _sasdSerialNumber = Nothing     } + -- | The device property which was changed. sasdDeviceProperty :: Lens' SuspiciousActivitySecurityDetail (Maybe Text) sasdDeviceProperty@@ -495,15 +510,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty'-    deriving (Eq,Show,Data,Typeable,Generic)+  Empty'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty     :: Empty empty = Empty' + instance FromJSON Empty where         parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -513,10 +530,13 @@ -- | A request to undelete a specific alert that was marked for deletion. -- -- /See:/ 'undeleteAlertRequest' smart constructor.-newtype UndeleteAlertRequest = UndeleteAlertRequest'+newtype UndeleteAlertRequest =+  UndeleteAlertRequest'     { _uarCustomerId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UndeleteAlertRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -524,11 +544,9 @@ -- * 'uarCustomerId' undeleteAlertRequest     :: UndeleteAlertRequest-undeleteAlertRequest =-    UndeleteAlertRequest'-    { _uarCustomerId = Nothing-    }+undeleteAlertRequest = UndeleteAlertRequest' {_uarCustomerId = Nothing} + -- | Optional. The unique identifier of the G Suite organization account of -- the customer the alert is associated with. Inferred from the caller -- identity if not provided.@@ -551,10 +569,13 @@ -- | Customer-level settings. -- -- /See:/ 'settings' smart constructor.-newtype Settings = Settings'+newtype Settings =+  Settings'     { _sNotifications :: Maybe [Notification]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Settings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -562,11 +583,9 @@ -- * 'sNotifications' settings     :: Settings-settings =-    Settings'-    { _sNotifications = Nothing-    }+settings = Settings' {_sNotifications = Nothing} + -- | The list of notifications. sNotifications :: Lens' Settings [Notification] sNotifications@@ -591,10 +610,13 @@ -- Notification](\/admin-sdk\/alertcenter\/guides\/notifications). -- -- /See:/ 'notification' smart constructor.-newtype Notification = Notification'+newtype Notification =+  Notification'     { _nCloudPubsubTopic :: Maybe CloudPubsubTopic-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Notification' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -602,11 +624,9 @@ -- * 'nCloudPubsubTopic' notification     :: Notification-notification =-    Notification'-    { _nCloudPubsubTopic = Nothing-    }+notification = Notification' {_nCloudPubsubTopic = Nothing} + -- | A Google Cloud Pub\/sub topic destination. nCloudPubsubTopic :: Lens' Notification (Maybe CloudPubsubTopic) nCloudPubsubTopic@@ -624,14 +644,195 @@               (catMaybes                  [("cloudPubsubTopic" .=) <$> _nCloudPubsubTopic]) +-- | Alerts from G Suite Security Center rules service configured by admin.+--+-- /See:/ 'activityRule' smart constructor.+data ActivityRule =+  ActivityRule'+    { _arSupersededAlerts :: !(Maybe [Text])+    , _arActionNames      :: !(Maybe [Text])+    , _arSupersedingAlert :: !(Maybe Text)+    , _arTriggerSource    :: !(Maybe Text)+    , _arWindowSize       :: !(Maybe GDuration)+    , _arUpdateTime       :: !(Maybe DateTime')+    , _arName             :: !(Maybe Text)+    , _arThreshold        :: !(Maybe Text)+    , _arQuery            :: !(Maybe Text)+    , _arDisplayName      :: !(Maybe Text)+    , _arDescription      :: !(Maybe Text)+    , _arCreateTime       :: !(Maybe DateTime')+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arSupersededAlerts'+--+-- * 'arActionNames'+--+-- * 'arSupersedingAlert'+--+-- * 'arTriggerSource'+--+-- * 'arWindowSize'+--+-- * 'arUpdateTime'+--+-- * 'arName'+--+-- * 'arThreshold'+--+-- * 'arQuery'+--+-- * 'arDisplayName'+--+-- * 'arDescription'+--+-- * 'arCreateTime'+activityRule+    :: ActivityRule+activityRule =+  ActivityRule'+    { _arSupersededAlerts = Nothing+    , _arActionNames = Nothing+    , _arSupersedingAlert = Nothing+    , _arTriggerSource = Nothing+    , _arWindowSize = Nothing+    , _arUpdateTime = Nothing+    , _arName = Nothing+    , _arThreshold = Nothing+    , _arQuery = Nothing+    , _arDisplayName = Nothing+    , _arDescription = Nothing+    , _arCreateTime = Nothing+    }+++-- | List of alert ids superseded by this alert. It is used to indicate that+-- this alert is essentially extension of superseded alerts and we found+-- the relationship after creating these alerts.+arSupersededAlerts :: Lens' ActivityRule [Text]+arSupersededAlerts+  = lens _arSupersededAlerts+      (\ s a -> s{_arSupersededAlerts = a})+      . _Default+      . _Coerce++-- | List of action names associated with the rule threshold.+arActionNames :: Lens' ActivityRule [Text]+arActionNames+  = lens _arActionNames+      (\ s a -> s{_arActionNames = a})+      . _Default+      . _Coerce++-- | Alert id superseding this alert. It is used to indicate that superseding+-- alert is essentially extension of this alert and we found the+-- relationship after creating both alerts.+arSupersedingAlert :: Lens' ActivityRule (Maybe Text)+arSupersedingAlert+  = lens _arSupersedingAlert+      (\ s a -> s{_arSupersedingAlert = a})++-- | The trigger sources for this rule. * GMAIL_EVENTS * DEVICE_EVENTS *+-- USER_EVENTS+arTriggerSource :: Lens' ActivityRule (Maybe Text)+arTriggerSource+  = lens _arTriggerSource+      (\ s a -> s{_arTriggerSource = a})++-- | Rule window size. Possible values are 1 hour or 24 hours.+arWindowSize :: Lens' ActivityRule (Maybe Scientific)+arWindowSize+  = lens _arWindowSize (\ s a -> s{_arWindowSize = a})+      . mapping _GDuration++-- | The timestamp of the last update to the rule.+arUpdateTime :: Lens' ActivityRule (Maybe UTCTime)+arUpdateTime+  = lens _arUpdateTime (\ s a -> s{_arUpdateTime = a})+      . mapping _DateTime++-- | Rule name.+arName :: Lens' ActivityRule (Maybe Text)+arName = lens _arName (\ s a -> s{_arName = a})++-- | Alert threshold is for example “COUNT > 5”.+arThreshold :: Lens' ActivityRule (Maybe Text)+arThreshold+  = lens _arThreshold (\ s a -> s{_arThreshold = a})++-- | Query that is used to get the data from the associated source.+arQuery :: Lens' ActivityRule (Maybe Text)+arQuery = lens _arQuery (\ s a -> s{_arQuery = a})++-- | Alert display name.+arDisplayName :: Lens' ActivityRule (Maybe Text)+arDisplayName+  = lens _arDisplayName+      (\ s a -> s{_arDisplayName = a})++-- | Description of the rule.+arDescription :: Lens' ActivityRule (Maybe Text)+arDescription+  = lens _arDescription+      (\ s a -> s{_arDescription = a})++-- | Rule create timestamp.+arCreateTime :: Lens' ActivityRule (Maybe UTCTime)+arCreateTime+  = lens _arCreateTime (\ s a -> s{_arCreateTime = a})+      . mapping _DateTime++instance FromJSON ActivityRule where+        parseJSON+          = withObject "ActivityRule"+              (\ o ->+                 ActivityRule' <$>+                   (o .:? "supersededAlerts" .!= mempty) <*>+                     (o .:? "actionNames" .!= mempty)+                     <*> (o .:? "supersedingAlert")+                     <*> (o .:? "triggerSource")+                     <*> (o .:? "windowSize")+                     <*> (o .:? "updateTime")+                     <*> (o .:? "name")+                     <*> (o .:? "threshold")+                     <*> (o .:? "query")+                     <*> (o .:? "displayName")+                     <*> (o .:? "description")+                     <*> (o .:? "createTime"))++instance ToJSON ActivityRule where+        toJSON ActivityRule'{..}+          = object+              (catMaybes+                 [("supersededAlerts" .=) <$> _arSupersededAlerts,+                  ("actionNames" .=) <$> _arActionNames,+                  ("supersedingAlert" .=) <$> _arSupersedingAlert,+                  ("triggerSource" .=) <$> _arTriggerSource,+                  ("windowSize" .=) <$> _arWindowSize,+                  ("updateTime" .=) <$> _arUpdateTime,+                  ("name" .=) <$> _arName,+                  ("threshold" .=) <$> _arThreshold,+                  ("query" .=) <$> _arQuery,+                  ("displayName" .=) <$> _arDisplayName,+                  ("description" .=) <$> _arDescription,+                  ("createTime" .=) <$> _arCreateTime])+ -- | Alerts for user account warning events. -- -- /See:/ 'accountWarning' smart constructor.-data AccountWarning = AccountWarning'+data AccountWarning =+  AccountWarning'     { _awEmail        :: !(Maybe Text)     , _awLoginDetails :: !(Maybe LoginDetails)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountWarning' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -641,19 +842,17 @@ -- * 'awLoginDetails' accountWarning     :: AccountWarning-accountWarning =-    AccountWarning'-    { _awEmail = Nothing-    , _awLoginDetails = Nothing-    }+accountWarning = AccountWarning' {_awEmail = Nothing, _awLoginDetails = Nothing} + -- | Required. The email of the user that this event belongs to. awEmail :: Lens' AccountWarning (Maybe Text) awEmail = lens _awEmail (\ s a -> s{_awEmail = a})  -- | Optional. Details of the login action associated with the warning event. -- This is only available for: * Suspicious login * Suspicious login (less--- secure app) * User suspended (suspicious activity)+-- secure app) * Suspicious programmatic login * User suspended (suspicious+-- activity) awLoginDetails :: Lens' AccountWarning (Maybe LoginDetails) awLoginDetails   = lens _awLoginDetails@@ -679,13 +878,16 @@ -- Malware reclassification -- -- /See:/ 'mailPhishing' smart constructor.-data MailPhishing = MailPhishing'+data MailPhishing =+  MailPhishing'     { _mpIsInternal      :: !(Maybe Bool)     , _mpDomainId        :: !(Maybe DomainId)     , _mpMessages        :: !(Maybe [GmailMessageInfo])     , _mpMaliciousEntity :: !(Maybe MaliciousEntity)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MailPhishing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -700,13 +902,14 @@ mailPhishing     :: MailPhishing mailPhishing =-    MailPhishing'+  MailPhishing'     { _mpIsInternal = Nothing     , _mpDomainId = Nothing     , _mpMessages = Nothing     , _mpMaliciousEntity = Nothing     } + -- | If \`true\`, the email originated from within the organization. mpIsInternal :: Lens' MailPhishing (Maybe Bool) mpIsInternal@@ -751,7 +954,8 @@ -- | Details of a message in phishing spike alert. -- -- /See:/ 'gmailMessageInfo' smart constructor.-data GmailMessageInfo = GmailMessageInfo'+data GmailMessageInfo =+  GmailMessageInfo'     { _gmiMD5HashSubject        :: !(Maybe Text)     , _gmiSubjectText           :: !(Maybe Text)     , _gmiDate                  :: !(Maybe DateTime')@@ -760,8 +964,10 @@     , _gmiRecipient             :: !(Maybe Text)     , _gmiMessageBodySnippet    :: !(Maybe Text)     , _gmiMessageId             :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GmailMessageInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -784,7 +990,7 @@ gmailMessageInfo     :: GmailMessageInfo gmailMessageInfo =-    GmailMessageInfo'+  GmailMessageInfo'     { _gmiMD5HashSubject = Nothing     , _gmiSubjectText = Nothing     , _gmiDate = Nothing@@ -795,6 +1001,7 @@     , _gmiMessageId = Nothing     } + -- | The MD5 Hash of email\'s subject (only available for reported emails). gmiMD5HashSubject :: Lens' GmailMessageInfo (Maybe Text) gmiMD5HashSubject@@ -875,10 +1082,13 @@ -- google.apps.alertcenter.type.DeviceCompromised. -- -- /See:/ 'alertData' smart constructor.-newtype AlertData = AlertData'+newtype AlertData =+  AlertData'     { _adAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertData' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -887,11 +1097,9 @@ alertData     :: HashMap Text JSONValue -- ^ 'adAddtional'     -> AlertData-alertData pAdAddtional_ =-    AlertData'-    { _adAddtional = _Coerce # pAdAddtional_-    }+alertData pAdAddtional_ = AlertData' {_adAddtional = _Coerce # pAdAddtional_} + -- | Properties of the object. Contains field \'type with type URL. adAddtional :: Lens' AlertData (HashMap Text JSONValue) adAddtional@@ -912,13 +1120,16 @@ -- instead. -- -- /See:/ 'phishingSpike' smart constructor.-data PhishingSpike = PhishingSpike'+data PhishingSpike =+  PhishingSpike'     { _psIsInternal      :: !(Maybe Bool)     , _psDomainId        :: !(Maybe DomainId)     , _psMessages        :: !(Maybe [GmailMessageInfo])     , _psMaliciousEntity :: !(Maybe MaliciousEntity)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PhishingSpike' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -933,13 +1144,14 @@ phishingSpike     :: PhishingSpike phishingSpike =-    PhishingSpike'+  PhishingSpike'     { _psIsInternal = Nothing     , _psDomainId = Nothing     , _psMessages = Nothing     , _psMaliciousEntity = Nothing     } + -- | If \`true\`, the email originated from within the organization. psIsInternal :: Lens' PhishingSpike (Maybe Bool) psIsInternal@@ -985,11 +1197,14 @@ -- and a list of data rows. -- -- /See:/ 'csv' smart constructor.-data CSV = CSV'+data CSV =+  CSV'     { _cDataRows :: !(Maybe [CSVRow])     , _cHeaders  :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CSV' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -999,12 +1214,9 @@ -- * 'cHeaders' csv     :: CSV-csv =-    CSV'-    { _cDataRows = Nothing-    , _cHeaders = Nothing-    }+csv = CSV' {_cDataRows = Nothing, _cHeaders = Nothing} + -- | The list of data rows in a CSV file, as string arrays rather than as a -- single comma-separated string. cDataRows :: Lens' CSV [CSVRow]@@ -1035,22 +1247,26 @@                  [("dataRows" .=) <$> _cDataRows,                   ("headers" .=) <$> _cHeaders]) --- | An alert affecting a customer. All fields are read-only once created.+-- | An alert affecting a customer. -- -- /See:/ 'alert' smart constructor.-data Alert = Alert'+data Alert =+  Alert'     { _aStartTime                     :: !(Maybe DateTime')     , _aData                          :: !(Maybe AlertData)     , _aAlertId                       :: !(Maybe Text)     , _aSecurityInvestigationToolLink :: !(Maybe Text)     , _aCustomerId                    :: !(Maybe Text)+    , _aUpdateTime                    :: !(Maybe DateTime')     , _aEndTime                       :: !(Maybe DateTime')     , _aSource                        :: !(Maybe Text)     , _aDeleted                       :: !(Maybe Bool)     , _aType                          :: !(Maybe Text)     , _aCreateTime                    :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Alert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1065,6 +1281,8 @@ -- -- * 'aCustomerId' --+-- * 'aUpdateTime'+-- -- * 'aEndTime' -- -- * 'aSource'@@ -1077,12 +1295,13 @@ alert     :: Alert alert =-    Alert'+  Alert'     { _aStartTime = Nothing     , _aData = Nothing     , _aAlertId = Nothing     , _aSecurityInvestigationToolLink = Nothing     , _aCustomerId = Nothing+    , _aUpdateTime = Nothing     , _aEndTime = Nothing     , _aSource = Nothing     , _aDeleted = Nothing@@ -1090,6 +1309,7 @@     , _aCreateTime = Nothing     } + -- | Required. The time the event that caused this alert was started or -- detected. aStartTime :: Lens' Alert (Maybe UTCTime)@@ -1120,18 +1340,25 @@ aCustomerId   = lens _aCustomerId (\ s a -> s{_aCustomerId = a}) +-- | Output only. The time this alert was last updated.+aUpdateTime :: Lens' Alert (Maybe UTCTime)+aUpdateTime+  = lens _aUpdateTime (\ s a -> s{_aUpdateTime = a}) .+      mapping _DateTime+ -- | Optional. The time the event that caused this alert ceased being active. -- If provided, the end time must not be earlier than the start time. If--- not provided, the end time defaults to the start time.+-- not provided, it indicates an ongoing alert. aEndTime :: Lens' Alert (Maybe UTCTime) aEndTime   = lens _aEndTime (\ s a -> s{_aEndTime = a}) .       mapping _DateTime  -- | Required. A unique identifier for the system that reported the alert.--- Supported sources are any of the following: * Google Operations * Mobile--- device management * Gmail phishing * Domain wide takeout * Government--- attack warning * Google identity+-- This is output only after alert is created. Supported sources are any of+-- the following: * Google Operations * Mobile device management * Gmail+-- phishing * Domain wide takeout * Government attack warning * Google+-- identity aSource :: Lens' Alert (Maybe Text) aSource = lens _aSource (\ s a -> s{_aSource = a}) @@ -1139,8 +1366,9 @@ aDeleted :: Lens' Alert (Maybe Bool) aDeleted = lens _aDeleted (\ s a -> s{_aDeleted = a}) --- | Required. The type of the alert. For a list of available alert types see--- [G Suite Alert types](\/admin-sdk\/alertcenter\/reference\/alert-types).+-- | Required. The type of the alert. This is output only after alert is+-- created. For a list of available alert types see [G Suite Alert+-- types](\/admin-sdk\/alertcenter\/reference\/alert-types). aType :: Lens' Alert (Maybe Text) aType = lens _aType (\ s a -> s{_aType = a}) @@ -1159,6 +1387,7 @@                      (o .:? "alertId")                      <*> (o .:? "securityInvestigationToolLink")                      <*> (o .:? "customerId")+                     <*> (o .:? "updateTime")                      <*> (o .:? "endTime")                      <*> (o .:? "source")                      <*> (o .:? "deleted")@@ -1174,6 +1403,7 @@                   ("securityInvestigationToolLink" .=) <$>                     _aSecurityInvestigationToolLink,                   ("customerId" .=) <$> _aCustomerId,+                  ("updateTime" .=) <$> _aUpdateTime,                   ("endTime" .=) <$> _aEndTime,                   ("source" .=) <$> _aSource,                   ("deleted" .=) <$> _aDeleted, ("type" .=) <$> _aType,@@ -1182,10 +1412,13 @@ -- | Attachment with application-specific information about an alert. -- -- /See:/ 'attachment' smart constructor.-newtype Attachment = Attachment'+newtype Attachment =+  Attachment'     { _aCSV :: Maybe CSV-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Attachment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1193,11 +1426,9 @@ -- * 'aCSV' attachment     :: Attachment-attachment =-    Attachment'-    { _aCSV = Nothing-    }+attachment = Attachment' {_aCSV = Nothing} + -- | A CSV file attachment. aCSV :: Lens' Attachment (Maybe CSV) aCSV = lens _aCSV (\ s a -> s{_aCSV = a})@@ -1214,13 +1445,16 @@ -- | An incident reported by Google Operations for a G Suite application. -- -- /See:/ 'googleOperations' smart constructor.-data GoogleOperations = GoogleOperations'+data GoogleOperations =+  GoogleOperations'     { _goAttachmentData     :: !(Maybe Attachment)     , _goAffectedUserEmails :: !(Maybe [Text])     , _goTitle              :: !(Maybe Text)     , _goDescription        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GoogleOperations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1235,13 +1469,14 @@ googleOperations     :: GoogleOperations googleOperations =-    GoogleOperations'+  GoogleOperations'     { _goAttachmentData = Nothing     , _goAffectedUserEmails = Nothing     , _goTitle = Nothing     , _goDescription = Nothing     } + -- | Optional. Application-specific data for an incident, provided when the G -- Suite application which reported the incident cannot be completely -- restored to a valid state.@@ -1291,11 +1526,14 @@ -- | A mobile suspicious activity alert. Derived from audit logs. -- -- /See:/ 'suspiciousActivity' smart constructor.-data SuspiciousActivity = SuspiciousActivity'+data SuspiciousActivity =+  SuspiciousActivity'     { _saEmail  :: !(Maybe Text)     , _saEvents :: !(Maybe [SuspiciousActivitySecurityDetail])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuspiciousActivity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1306,11 +1544,9 @@ suspiciousActivity     :: SuspiciousActivity suspiciousActivity =-    SuspiciousActivity'-    { _saEmail = Nothing-    , _saEvents = Nothing-    }+  SuspiciousActivity' {_saEmail = Nothing, _saEvents = Nothing} + -- | The email of the user this alert was created for. saEmail :: Lens' SuspiciousActivity (Maybe Text) saEmail = lens _saEmail (\ s a -> s{_saEmail = a})@@ -1340,11 +1576,14 @@ -- Derived from audit logs. -- -- /See:/ 'domainWideTakeoutInitiated' smart constructor.-data DomainWideTakeoutInitiated = DomainWideTakeoutInitiated'+data DomainWideTakeoutInitiated =+  DomainWideTakeoutInitiated'     { _dwtiEmail            :: !(Maybe Text)     , _dwtiTakeoutRequestId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainWideTakeoutInitiated' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1355,11 +1594,10 @@ domainWideTakeoutInitiated     :: DomainWideTakeoutInitiated domainWideTakeoutInitiated =-    DomainWideTakeoutInitiated'-    { _dwtiEmail = Nothing-    , _dwtiTakeoutRequestId = Nothing-    }+  DomainWideTakeoutInitiated'+    {_dwtiEmail = Nothing, _dwtiTakeoutRequestId = Nothing} + -- | The email of the admin who initiated the takeout. dwtiEmail :: Lens' DomainWideTakeoutInitiated (Maybe Text) dwtiEmail@@ -1388,10 +1626,13 @@ -- | Domain ID of Gmail phishing alerts. -- -- /See:/ 'domainId' smart constructor.-newtype DomainId = DomainId'+newtype DomainId =+  DomainId'     { _diCustomerPrimaryDomain :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainId' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1399,11 +1640,9 @@ -- * 'diCustomerPrimaryDomain' domainId     :: DomainId-domainId =-    DomainId'-    { _diCustomerPrimaryDomain = Nothing-    }+domainId = DomainId' {_diCustomerPrimaryDomain = Nothing} + -- | The primary domain for the customer. diCustomerPrimaryDomain :: Lens' DomainId (Maybe Text) diCustomerPrimaryDomain@@ -1426,7 +1665,8 @@ -- | Detailed information of a single MDM device compromised event. -- -- /See:/ 'deviceCompromisedSecurityDetail' smart constructor.-data DeviceCompromisedSecurityDetail = DeviceCompromisedSecurityDetail'+data DeviceCompromisedSecurityDetail =+  DeviceCompromisedSecurityDetail'     { _dcsdResourceId             :: !(Maybe Text)     , _dcsdDeviceCompromisedState :: !(Maybe Text)     , _dcsdIosVendorId            :: !(Maybe Text)@@ -1434,8 +1674,10 @@     , _dcsdDeviceId               :: !(Maybe Text)     , _dcsdDeviceType             :: !(Maybe Text)     , _dcsdSerialNumber           :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceCompromisedSecurityDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1456,7 +1698,7 @@ deviceCompromisedSecurityDetail     :: DeviceCompromisedSecurityDetail deviceCompromisedSecurityDetail =-    DeviceCompromisedSecurityDetail'+  DeviceCompromisedSecurityDetail'     { _dcsdResourceId = Nothing     , _dcsdDeviceCompromisedState = Nothing     , _dcsdIosVendorId = Nothing@@ -1466,6 +1708,7 @@     , _dcsdSerialNumber = Nothing     } + -- | The device resource ID. dcsdResourceId :: Lens' DeviceCompromisedSecurityDetail (Maybe Text) dcsdResourceId@@ -1541,11 +1784,14 @@ -- \`projects.topics.publish\` permission. -- -- /See:/ 'cloudPubsubTopic' smart constructor.-data CloudPubsubTopic = CloudPubsubTopic'+data CloudPubsubTopic =+  CloudPubsubTopic'     { _cptTopicName     :: !(Maybe Text)     , _cptPayloadFormat :: !(Maybe CloudPubsubTopicPayloadFormat)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudPubsubTopic' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1556,11 +1802,9 @@ cloudPubsubTopic     :: CloudPubsubTopic cloudPubsubTopic =-    CloudPubsubTopic'-    { _cptTopicName = Nothing-    , _cptPayloadFormat = Nothing-    }+  CloudPubsubTopic' {_cptTopicName = Nothing, _cptPayloadFormat = Nothing} + -- | The \`name\` field of a Cloud Pubsub [Topic] -- (https:\/\/cloud.google.com\/pubsub\/docs\/reference\/rest\/v1\/projects.topics#Topic). cptTopicName :: Lens' CloudPubsubTopic (Maybe Text)@@ -1591,10 +1835,13 @@ -- | Response message for an alert feedback listing request. -- -- /See:/ 'listAlertFeedbackResponse' smart constructor.-newtype ListAlertFeedbackResponse = ListAlertFeedbackResponse'+newtype ListAlertFeedbackResponse =+  ListAlertFeedbackResponse'     { _lafrFeedback :: Maybe [AlertFeedback]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAlertFeedbackResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1602,11 +1849,9 @@ -- * 'lafrFeedback' listAlertFeedbackResponse     :: ListAlertFeedbackResponse-listAlertFeedbackResponse =-    ListAlertFeedbackResponse'-    { _lafrFeedback = Nothing-    }+listAlertFeedbackResponse = ListAlertFeedbackResponse' {_lafrFeedback = Nothing} + -- | The list of alert feedback. Feedback entries for each alert are ordered -- by creation time descending. lafrFeedback :: Lens' ListAlertFeedbackResponse [AlertFeedback]@@ -1630,11 +1875,14 @@ -- | The details of the login action. -- -- /See:/ 'loginDetails' smart constructor.-data LoginDetails = LoginDetails'+data LoginDetails =+  LoginDetails'     { _ldIPAddress :: !(Maybe Text)     , _ldLoginTime :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LoginDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1644,12 +1892,9 @@ -- * 'ldLoginTime' loginDetails     :: LoginDetails-loginDetails =-    LoginDetails'-    { _ldIPAddress = Nothing-    , _ldLoginTime = Nothing-    }+loginDetails = LoginDetails' {_ldIPAddress = Nothing, _ldLoginTime = Nothing} + -- | Optional. The human-readable IP address (for example, \`11.22.33.44\`) -- that is associated with the warning event. ldIPAddress :: Lens' LoginDetails (Maybe Text)@@ -1680,10 +1925,13 @@ -- | Entity whose actions triggered a Gmail phishing alert. -- -- /See:/ 'maliciousEntity' smart constructor.-newtype MaliciousEntity = MaliciousEntity'+newtype MaliciousEntity =+  MaliciousEntity'     { _meFromHeader :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MaliciousEntity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1691,10 +1939,8 @@ -- * 'meFromHeader' maliciousEntity     :: MaliciousEntity-maliciousEntity =-    MaliciousEntity'-    { _meFromHeader = Nothing-    }+maliciousEntity = MaliciousEntity' {_meFromHeader = Nothing}+  -- | The sender email address. meFromHeader :: Lens' MaliciousEntity (Maybe Text)

@@ -70,7 +70,8 @@ -- results in a \`NOT_FOUND\` error. -- -- /See:/ 'alertsDelete' smart constructor.-data AlertsDelete = AlertsDelete'+data AlertsDelete =+  AlertsDelete'     { _adXgafv          :: !(Maybe Xgafv)     , _adUploadProtocol :: !(Maybe Text)     , _adAccessToken    :: !(Maybe Text)@@ -78,8 +79,10 @@     , _adUploadType     :: !(Maybe Text)     , _adCustomerId     :: !(Maybe Text)     , _adCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     :: Text -- ^ 'adAlertId'     -> AlertsDelete alertsDelete pAdAlertId_ =-    AlertsDelete'+  AlertsDelete'     { _adXgafv = Nothing     , _adUploadProtocol = Nothing     , _adAccessToken = Nothing@@ -110,6 +113,7 @@     , _adCustomerId = Nothing     , _adCallback = Nothing     }+  -- | V1 error format. adXgafv :: Lens' AlertsDelete (Maybe Xgafv)

@@ -20,7 +20,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates new feedback for an alert.+-- Creates new feedback for an alert. Attempting to create a feedback for a+-- non-existent alert returns \`NOT_FOUND\` error. -- -- /See:/ <https://developers.google.com/admin-sdk/alertcenter/ G Suite Alert Center API Reference> for @alertcenter.alerts.feedback.create@. module Network.Google.Resource.AlertCenter.Alerts.Feedback.Create@@ -63,10 +64,12 @@                            ReqBody '[JSON] AlertFeedback :>                              Post '[JSON] AlertFeedback --- | Creates new feedback for an alert.+-- | Creates new feedback for an alert. Attempting to create a feedback for a+-- non-existent alert returns \`NOT_FOUND\` error. -- -- /See:/ 'alertsFeedbackCreate' smart constructor.-data AlertsFeedbackCreate = AlertsFeedbackCreate'+data AlertsFeedbackCreate =+  AlertsFeedbackCreate'     { _afcXgafv          :: !(Maybe Xgafv)     , _afcUploadProtocol :: !(Maybe Text)     , _afcAccessToken    :: !(Maybe Text)@@ -75,8 +78,10 @@     , _afcPayload        :: !AlertFeedback     , _afcCustomerId     :: !(Maybe Text)     , _afcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsFeedbackCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +106,7 @@     -> AlertFeedback -- ^ 'afcPayload'     -> AlertsFeedbackCreate alertsFeedbackCreate pAfcAlertId_ pAfcPayload_ =-    AlertsFeedbackCreate'+  AlertsFeedbackCreate'     { _afcXgafv = Nothing     , _afcUploadProtocol = Nothing     , _afcAccessToken = Nothing@@ -112,6 +117,7 @@     , _afcCallback = Nothing     } + -- | V1 error format. afcXgafv :: Lens' AlertsFeedbackCreate (Maybe Xgafv) afcXgafv = lens _afcXgafv (\ s a -> s{_afcXgafv = a})@@ -128,8 +134,7 @@   = lens _afcAccessToken       (\ s a -> s{_afcAccessToken = a}) --- | Required. The identifier of the alert this feedback belongs to. Returns--- a \`NOT_FOUND\` error if no such alert.+-- | Required. The identifier of the alert this feedback belongs to. afcAlertId :: Lens' AlertsFeedbackCreate Text afcAlertId   = lens _afcAlertId (\ s a -> s{_afcAlertId = a})

@@ -20,7 +20,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists all the feedback for an alert.+-- Lists all the feedback for an alert. Attempting to list feedbacks for a+-- non-existent alert returns \`NOT_FOUND\` error. -- -- /See:/ <https://developers.google.com/admin-sdk/alertcenter/ G Suite Alert Center API Reference> for @alertcenter.alerts.feedback.list@. module Network.Google.Resource.AlertCenter.Alerts.Feedback.List@@ -63,10 +64,12 @@                            QueryParam "alt" AltJSON :>                              Get '[JSON] ListAlertFeedbackResponse --- | Lists all the feedback for an alert.+-- | Lists all the feedback for an alert. Attempting to list feedbacks for a+-- non-existent alert returns \`NOT_FOUND\` error. -- -- /See:/ 'alertsFeedbackList' smart constructor.-data AlertsFeedbackList = AlertsFeedbackList'+data AlertsFeedbackList =+  AlertsFeedbackList'     { _aflXgafv          :: !(Maybe Xgafv)     , _aflUploadProtocol :: !(Maybe Text)     , _aflAccessToken    :: !(Maybe Text)@@ -75,8 +78,10 @@     , _aflCustomerId     :: !(Maybe Text)     , _aflFilter         :: !(Maybe Text)     , _aflCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsFeedbackList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -100,7 +105,7 @@     :: Text -- ^ 'aflAlertId'     -> AlertsFeedbackList alertsFeedbackList pAflAlertId_ =-    AlertsFeedbackList'+  AlertsFeedbackList'     { _aflXgafv = Nothing     , _aflUploadProtocol = Nothing     , _aflAccessToken = Nothing@@ -111,6 +116,7 @@     , _aflCallback = Nothing     } + -- | V1 error format. aflXgafv :: Lens' AlertsFeedbackList (Maybe Xgafv) aflXgafv = lens _aflXgafv (\ s a -> s{_aflXgafv = a})@@ -128,8 +134,7 @@       (\ s a -> s{_aflAccessToken = a})  -- | Required. The alert identifier. The \"-\" wildcard could be used to--- represent all alerts. If alert does not exist returns a \`NOT_FOUND\`--- error.+-- represent all alerts. aflAlertId :: Lens' AlertsFeedbackList Text aflAlertId   = lens _aflAlertId (\ s a -> s{_aflAlertId = a})

@@ -20,7 +20,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets the specified alert.+-- Gets the specified alert. Attempting to get a nonexistent alert returns+-- \`NOT_FOUND\` error. -- -- /See:/ <https://developers.google.com/admin-sdk/alertcenter/ G Suite Alert Center API Reference> for @alertcenter.alerts.get@. module Network.Google.Resource.AlertCenter.Alerts.Get@@ -59,10 +60,12 @@                      QueryParam "callback" Text :>                        QueryParam "alt" AltJSON :> Get '[JSON] Alert --- | Gets the specified alert.+-- | Gets the specified alert. Attempting to get a nonexistent alert returns+-- \`NOT_FOUND\` error. -- -- /See:/ 'alertsGet' smart constructor.-data AlertsGet = AlertsGet'+data AlertsGet =+  AlertsGet'     { _agXgafv          :: !(Maybe Xgafv)     , _agUploadProtocol :: !(Maybe Text)     , _agAccessToken    :: !(Maybe Text)@@ -70,8 +73,10 @@     , _agUploadType     :: !(Maybe Text)     , _agCustomerId     :: !(Maybe Text)     , _agCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +98,7 @@     :: Text -- ^ 'agAlertId'     -> AlertsGet alertsGet pAgAlertId_ =-    AlertsGet'+  AlertsGet'     { _agXgafv = Nothing     , _agUploadProtocol = Nothing     , _agAccessToken = Nothing@@ -103,6 +108,7 @@     , _agCallback = Nothing     } + -- | V1 error format. agXgafv :: Lens' AlertsGet (Maybe Xgafv) agXgafv = lens _agXgafv (\ s a -> s{_agXgafv = a})@@ -119,8 +125,7 @@   = lens _agAccessToken       (\ s a -> s{_agAccessToken = a}) --- | Required. The identifier of the alert to retrieve. Returns a NOT_FOUND--- error if no such alert.+-- | Required. The identifier of the alert to retrieve. agAlertId :: Lens' AlertsGet Text agAlertId   = lens _agAlertId (\ s a -> s{_agAlertId = a})

@@ -69,7 +69,8 @@ -- | Lists the alerts. -- -- /See:/ 'alertsList' smart constructor.-data AlertsList = AlertsList'+data AlertsList =+  AlertsList'     { _alXgafv          :: !(Maybe Xgafv)     , _alUploadProtocol :: !(Maybe Text)     , _alOrderBy        :: !(Maybe Text)@@ -80,8 +81,10 @@     , _alPageToken      :: !(Maybe Text)     , _alPageSize       :: !(Maybe (Textual Int32))     , _alCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -108,7 +111,7 @@ alertsList     :: AlertsList alertsList =-    AlertsList'+  AlertsList'     { _alXgafv = Nothing     , _alUploadProtocol = Nothing     , _alOrderBy = Nothing@@ -121,6 +124,7 @@     , _alCallback = Nothing     } + -- | V1 error format. alXgafv :: Lens' AlertsList (Maybe Xgafv) alXgafv = lens _alXgafv (\ s a -> s{_alXgafv = a})@@ -134,8 +138,8 @@ -- | Optional. The sort order of the list results. If not specified results -- may be returned in arbitrary order. You can sort the results in -- descending order based on the creation timestamp using--- \`order_by=\"create_time desc\"\`. Currently, only sorting by--- \`create_time desc\` is supported.+-- \`order_by=\"create_time desc\"\`. Currently, supported sorting are+-- \`create_time asc\`, \`create_time desc\`, \`update_time desc\` alOrderBy :: Lens' AlertsList (Maybe Text) alOrderBy   = lens _alOrderBy (\ s a -> s{_alOrderBy = a})

@@ -73,7 +73,8 @@ -- has no effect. -- -- /See:/ 'alertsUndelete' smart constructor.-data AlertsUndelete = AlertsUndelete'+data AlertsUndelete =+  AlertsUndelete'     { _auXgafv          :: !(Maybe Xgafv)     , _auUploadProtocol :: !(Maybe Text)     , _auAccessToken    :: !(Maybe Text)@@ -81,8 +82,10 @@     , _auUploadType     :: !(Maybe Text)     , _auPayload        :: !UndeleteAlertRequest     , _auCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AlertsUndelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     -> UndeleteAlertRequest -- ^ 'auPayload'     -> AlertsUndelete alertsUndelete pAuAlertId_ pAuPayload_ =-    AlertsUndelete'+  AlertsUndelete'     { _auXgafv = Nothing     , _auUploadProtocol = Nothing     , _auAccessToken = Nothing@@ -114,6 +117,7 @@     , _auPayload = pAuPayload_     , _auCallback = Nothing     }+  -- | V1 error format. auXgafv :: Lens' AlertsUndelete (Maybe Xgafv)

@@ -60,15 +60,18 @@ -- | Returns customer-level settings. -- -- /See:/ 'getSettings' smart constructor.-data GetSettings = GetSettings'+data GetSettings =+  GetSettings'     { _gsXgafv          :: !(Maybe Xgafv)     , _gsUploadProtocol :: !(Maybe Text)     , _gsAccessToken    :: !(Maybe Text)     , _gsUploadType     :: !(Maybe Text)     , _gsCustomerId     :: !(Maybe Text)     , _gsCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@ getSettings     :: GetSettings getSettings =-    GetSettings'+  GetSettings'     { _gsXgafv = Nothing     , _gsUploadProtocol = Nothing     , _gsAccessToken = Nothing@@ -95,6 +98,7 @@     , _gsCustomerId = Nothing     , _gsCallback = Nothing     }+  -- | V1 error format. gsXgafv :: Lens' GetSettings (Maybe Xgafv)

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Update the customer-level settings.+-- Updates the customer-level settings. -- -- /See:/ <https://developers.google.com/admin-sdk/alertcenter/ G Suite Alert Center API Reference> for @alertcenter.updateSettings@. module Network.Google.Resource.AlertCenter.UpdateSettings@@ -59,10 +59,11 @@                      QueryParam "alt" AltJSON :>                        ReqBody '[JSON] Settings :> Patch '[JSON] Settings --- | Update the customer-level settings.+-- | Updates the customer-level settings. -- -- /See:/ 'updateSettings' smart constructor.-data UpdateSettings = UpdateSettings'+data UpdateSettings =+  UpdateSettings'     { _usXgafv          :: !(Maybe Xgafv)     , _usUploadProtocol :: !(Maybe Text)     , _usAccessToken    :: !(Maybe Text)@@ -70,8 +71,10 @@     , _usPayload        :: !Settings     , _usCustomerId     :: !(Maybe Text)     , _usCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +96,7 @@     :: Settings -- ^ 'usPayload'     -> UpdateSettings updateSettings pUsPayload_ =-    UpdateSettings'+  UpdateSettings'     { _usXgafv = Nothing     , _usUploadProtocol = Nothing     , _usAccessToken = Nothing@@ -102,6 +105,7 @@     , _usCustomerId = Nothing     , _usCallback = Nothing     }+  -- | V1 error format. usXgafv :: Lens' UpdateSettings (Maybe Xgafv)

@@ -1,5 +1,5 @@ name:                  gogol-alertcenter-version:               0.4.0+version:               0.5.0 synopsis:              Google G Suite Alert Center SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -49,5 +49,5 @@         , Network.Google.AlertCenter.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5