@@ -292,6 +292,7 @@ submitWith :: MonadIO m
292292 -> Event
293293 -> m (Either Error Response)
294294submitWith m l e = request m l e $
295− def { Client.host = "events.pagerduty.com"
296− , Client.path = "/generic/2010-04-15/create_event.json"
295+ def { Client.host = "events.pagerduty.com"
296+ , Client.path = "/generic/2010-04-15/create_event.json"
297+ , Client.method = "POST"
297298 }