git.iko.soy/typeable/pagerduty
on develop help sign in
Adding structural place holders for the remainder of the REST API
commit8450077ee40539c938b9b3422f58b8cb7907d5e0 authorBrendan Hay <brendan.g.hay@gmail.com> dateMon 6 Oct 2014, 16:21 (12 years ago) parent872e1d4
3 files changed+65−9
compare with develop
unifiedsplit
pagerduty.cabal+10−9 src/Network/PagerDuty/REST/Incidents.hs+8 src/Network/PagerDuty/REST/Users.hs+47
pagerduty.cabal+10−9
@@ -36,21 +36,22 @@ library
3636 , Network.PagerDuty.REST
3737 , Network.PagerDuty.REST.Alerts
3838 , Network.PagerDuty.REST.EscalationPolicies
39−-- , Network.PagerDuty.REST.EscalationPolicies.EscalationRules
40− -- , Network.PagerDuty.REST.EscalationPolicies.OnCall
41−-- , Network.PagerDuty.REST.Incidents
39+ , Network.PagerDuty.REST.EscalationPolicies.EscalationRules
40+ , Network.PagerDuty.REST.EscalationPolicies.OnCall
41+ , Network.PagerDuty.REST.Incidents
42+ , Network.PagerDuty.REST.Incidents.Notes
4243 , Network.PagerDuty.REST.LogEntries
4344 , Network.PagerDuty.REST.MaintenanceWindows
4445 , Network.PagerDuty.REST.Reports
4546 , Network.PagerDuty.REST.Schedules
4647 , Network.PagerDuty.REST.Schedules.Overrides
4748 , Network.PagerDuty.REST.Services
48− -- , Network.PagerDuty.REST.Services.EmailFilters
49−-- , Network.PagerDuty.REST.Users
50−-- , Network.PagerDuty.REST.Users.ContactMethods
51−-- , Network.PagerDuty.REST.Users.NotificationRules
52−-- , Network.PagerDuty.REST.Users.OnCall
53−-- , Network.PagerDuty.REST.Webhooks
49+ , Network.PagerDuty.REST.Services.EmailFilters
50+ , Network.PagerDuty.REST.Users
51+ , Network.PagerDuty.REST.Users.ContactMethods
52+ , Network.PagerDuty.REST.Users.NotificationRules
53+ , Network.PagerDuty.REST.Users.OnCall
54+ , Network.PagerDuty.REST.Webhooks
5455
5556 other-modules:
5657 Network.PagerDuty.IO
src/Network/PagerDuty/REST/Incidents.hs+8
@@ -42,6 +42,14 @@ module Network.PagerDuty.REST.Incidents
4242
4343 ) where
4444
45+import Control.Lens
46+import Data.Monoid
47+import Data.Text (Text)
48+import Data.Time
49+import Network.HTTP.Types
50+import Network.PagerDuty.TH
51+import Network.PagerDuty.Types
52+
4553incidents :: Path
4654incidents = "incidents"
4755
src/Network/PagerDuty/REST/Users.hs+47
@@ -86,3 +86,50 @@ instance HasUserInfo User where
8686
8787uInvitationSent :: Lens' User Bool
8888uInvitationSent = uInvitationSent'._B
89+
90+-- | List users of your PagerDuty account, optionally filtered by a search query.
91+--
92+-- @GET \/users@
93+--
94+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/list>
95+listUsers = undefined
96+
97+-- | Get information about an existing user.
98+--
99+-- @GET \/users\/\:id@
100+--
101+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/show>
102+getUser = undefined
103+
104+-- | Get a user object with that user's current on-call status. If the on-call
105+-- object is an empty array, the user is never on-call.
106+--
107+-- If the start and end of an on-call object are null, then the user is always
108+-- on-call for an escalation policy level.
109+--
110+-- @GET \/users\/\:id\/on_call@
111+--
112+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/show_on_call>
113+getUserOnCall = undefined
114+
115+-- | Create a new user for your account. An invite email will be sent asking
116+-- the user to choose a password.
117+--
118+-- @POST \/users@
119+--
120+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/create>
121+createUser = undefined
122+
123+-- | Update an existing user.
124+--
125+-- @PUT \/users\/\:id@
126+--
127+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/update>
128+updateUser = undefined
129+
130+-- | Remove an existing user.
131+--
132+-- @DELETE \/users\/\:id@
133+--
134+-- /See:/ <http://developer.pagerduty.com/documentation/rest/users/delete>
135+deleteUser = undefined