git.iko.soy/typeable/pagerduty
on develop help sign in
Aha
06e60f2Bjørn Nordbø
src/Network/PagerDuty/Integration.hs+5−6
@@ -231,19 +231,18 @@ instance ToJSON Event where
231-- or ongoing problem. When PagerDuty receives a trigger event, it will either open
231-- or ongoing problem. When PagerDuty receives a trigger event, it will either open
232-- a new incident, or add a new trigger log entry to an existing incident,
232-- a new incident, or add a new trigger log entry to an existing incident,
233-- depending on the provided incident_key.
233-- depending on the provided incident_key.
234−trigger :: ServiceKey -- ^ 'serviceKey'
234+trigger :: ServiceKey -- ^ 'serviceKey'
235− -> IncidentKey -- ^ 'incidentKey'
235+ -> IncidentKey -- ^ 'incidentKey'
236− -> Text -- ^ 'description'
236+ -> Text -- ^ 'description'
237− -> Maybe Object -- ^ 'details'
238 -> Event
237 -> Event
239−trigger k i d t =
238+trigger k i d =
240 Trigger Trigger'
239 Trigger Trigger'
241 { _tServiceKey' = k
240 { _tServiceKey' = k
242 , _tDescription' = d
241 , _tDescription' = d
243 , _tIncidentKey' = i
242 , _tIncidentKey' = i
244 , _tClient' = Nothing
243 , _tClient' = Nothing
245 , _tClientUrl' = Nothing
244 , _tClientUrl' = Nothing
246− , _tDetails' = t
245+ , _tDetails' = Nothing
247 }
246 }
248
247
249-- | Acknowledge events cause the referenced incident to enter the acknowledged
248-- | Acknowledge events cause the referenced incident to enter the acknowledged