@@ -1,292 +0,0 @@
1−{-# LANGUAGE DeriveGeneric #-}
2−{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3−{-# LANGUAGE OverloadedStrings #-}
4−
5−-- Module : Network.PagerDuty.API.Services
6−-- Copyright : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
7−-- License : This Source Code Form is subject to the terms of
8−-- the Mozilla Public License, v. 2.0.
9−-- A copy of the MPL can be found in the LICENSE file or
10−-- you can obtain it at http://mozilla.org/MPL/2.0/.
11−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
12−-- Stability : experimental
13−-- Portability : non-portable (GHC extensions)
14−
15−module Network.PagerDuty.API.Services
16− ( ServiceDetails (..)
17− , CreateService (..)
18− , UpdateService (..)
19− , ServiceStatus (..)
20− , ServiceType (..)
21− , EmailFilterMode (..)
22− , IncidentCounts (..)
23− , EmailIncidentCreation (..)
24−
25− , createService
26− , updateService
27− , listServices
28− , getService
29− , deleteService
30− , disableService
31− , disableService'
32− , enableService
33− , enableService'
34− , regenerateServiceKey
35− ) where
36−
37−import Control.Applicative
38−import Control.Monad
39−import Data.Aeson
40−import Data.ByteString (ByteString)
41−import Data.Monoid
42−import Data.Text (Text)
43−import qualified Data.Text as T
44−import Data.Text.Encoding
45−import Data.Time
46−import GHC.Generics
47−import Network.PagerDuty.Internal
48−import Network.PagerDuty.IO
49−import Network.PagerDuty.Types
50−
51−type A a = Authenticated a
52−
53−bASE_PATH :: ByteString
54−bASE_PATH = "/api/v1/services/"
55−
56−createService :: CreateService -> PagerDuty (A a) (Either Error ServiceDetails)
57−createService = fmap (fmap service) . request defaultRequest
58− { method = methodPost
59− , path = bASE_PATH
60− }
61− . CreateServiceRequest
62−
63−updateService :: ServiceId
64− -> UpdateService
65− -> PagerDuty (A a) (Either Error ServiceDetails)
66−updateService (Id sid) = fmap (fmap service) . request defaultRequest
67− { method = methodPut
68− , path = bASE_PATH <> encodeUtf8 sid
69− }
70− . UpdateServiceRequest
71−
72−listServices :: PagerDuty (A a) (Either Error [ServiceDetails])
73−listServices = fmap (fmap services) . request defaultRequest
74− { method = methodGet
75− , path = bASE_PATH
76− , queryString = "?include[]=escalation_policy&include[]=email_filters"
77− } $ T.empty
78−
79−getService :: ServiceId -> PagerDuty (A a) (Either Error ServiceDetails)
80−getService (Id sid) = fmap (fmap service) . request defaultRequest
81− { method = methodGet
82− , path = bASE_PATH <> encodeUtf8 sid
83− , queryString = "?include[]=escalation_policy&include[]=email_filters"
84− } $ T.empty
85−
86−deleteService :: ServiceId -> PagerDuty (A a) (Either Error Empty)
87−deleteService (Id sid) = request defaultRequest
88− { method = methodDelete
89− , path = bASE_PATH <> encodeUtf8 sid
90− } $ T.empty
91−
92−disableService :: ServiceId
93− -> RequesterId
94− -> PagerDuty (A Token) (Either Error Empty)
95−disableService (Id sid) (Id rid) = request defaultRequest
96− { method = methodPut
97− , path = bASE_PATH <> encodeUtf8 sid <> "/disable"
98− , queryString = "?requester_id=" <> encodeUtf8 rid
99− } $ T.empty
100−
101−disableService' :: ServiceId -> PagerDuty (A BasicAuth) (Either Error Empty)
102−disableService' (Id sid) = request defaultRequest
103− { method = methodPut
104− , path = bASE_PATH <> encodeUtf8 sid <> "/disable"
105− } $ T.empty
106−
107−enableService :: ServiceId
108− -> RequesterId
109− -> PagerDuty (A Token) (Either Error Empty)
110−enableService (Id sid) (Id rid) = request defaultRequest
111− { method = methodPut
112− , path = bASE_PATH <> encodeUtf8 sid <> "/enable"
113− , queryString = "?requester_id=" <> encodeUtf8 rid
114− } $ T.empty
115−
116−enableService' :: ServiceId -> PagerDuty (A BasicAuth) (Either Error Empty)
117−enableService' (Id sid) = request defaultRequest
118− { method = methodPut
119− , path = bASE_PATH <> encodeUtf8 sid <> "/enable"
120− } $ T.empty
121−
122−regenerateServiceKey :: ServiceId -> PagerDuty (A a) (Either Error ServiceKey)
123−regenerateServiceKey (Id sid) = fmap (fmap (sd_service_key . service)) . request defaultRequest
124− { method = methodPost
125− , path = bASE_PATH <> encodeUtf8 sid <> "/regenerate_key"
126− } $ T.empty
127−
128−newtype CreateServiceRequest = CreateServiceRequest
129− { csr_service :: CreateService
130− } deriving (Show, Generic)
131−
132−instance ToJSON CreateServiceRequest where
133− toJSON = gToJson "csr_"
134−
135−newtype UpdateServiceRequest = UpdateServiceRequest
136− { usr_service :: UpdateService
137− } deriving (Show, Generic)
138−
139−instance ToJSON UpdateServiceRequest where
140− toJSON = gToJson "usr_"
141−
142−newtype DetailsListResponse = DLR { services :: [ServiceDetails] }
143− deriving (Show, Generic)
144−
145−instance FromJSON DetailsListResponse
146−
147−newtype DetailsResponse = DR { service :: ServiceDetails }
148− deriving (Show, Generic)
149−
150−instance FromJSON DetailsResponse
151−
152−data CreateService = CreateService
153− { cs_name :: !Text
154− , cs_escalation_policy_id :: !Text
155− , cs_type :: !ServiceType
156− , cs_description :: Maybe Text
157− , cs_acknowledgement_timeout :: Maybe Int
158− , cs_auto_resolve_timeout :: Maybe Int
159− , cs_severity_filter :: Maybe Text
160− } deriving (Show, Generic)
161−
162−instance ToJSON CreateService where toJSON = gToJson "cs_"
163−
164−data UpdateService = UpdateService
165− { us_name :: Maybe Text
166− , us_escalation_policy_id :: Maybe Text
167− , us_type :: Maybe ServiceType
168− , us_description :: Maybe Text
169− , us_acknowledgement_timeout :: Maybe Int
170− , us_auto_resolve_timeout :: Maybe Int
171− , us_severity_filter :: Maybe Text
172− } deriving (Show, Generic)
173−
174−instance ToJSON UpdateService where toJSON = gToJson "us_"
175−
176−data ServiceDetails = ServiceDetails
177− { sd_id :: !ServiceId
178− , sd_name :: !Text
179− , sd_description :: !Text
180− , sd_service_url :: !Text
181− , sd_service_key :: !ServiceKey
182− , sd_auto_resolve_timeout :: !Int
183− , sd_acknowledgement_timeout :: !Int
184− , sd_created_at :: !ZonedTime
185− , sd_deleted_at :: Maybe ZonedTime
186− , sd_status :: !ServiceStatus
187− , sd_last_incident_timestamp :: Maybe ZonedTime
188− , sd_email_incident_creation :: Maybe EmailIncidentCreation
189− , sd_incident_counts :: !IncidentCounts
190− , sd_email_filter_mode :: !EmailFilterMode
191− , sd_type :: !ServiceType
192− , sd_escalation_policy :: Maybe Object -- todo
193− , sd_email_filters :: Maybe Object -- todo
194− , sd_severity_filter :: Maybe Text -- todo?
195− } deriving (Show, Generic)
196−
197−instance FromJSON ServiceDetails where
198− parseJSON = gFromJson "sd_"
199−
200−data ServiceStatus
201− = Active
202− | Warning
203− | Critical
204− | Maintenance
205− | Disabled
206− deriving (Eq, Show)
207−
208−instance FromJSON ServiceStatus where
209− parseJSON (String s) = case s of
210− "active" -> pure Active
211− "warning" -> pure Warning
212− "critical" -> pure Critical
213− "maintenance" -> pure Maintenance
214− "disabled" -> pure Disabled
215− _ -> mzero
216−
217− parseJSON _ = mzero
218−
219−data IncidentCounts = IncidentCounts
220− { triggered :: !Int
221− , acknowledged :: !Int
222− , resolved :: !Int
223− , total :: !Int
224− } deriving (Show, Generic)
225−
226−instance FromJSON IncidentCounts
227−
228−data EmailIncidentCreation
229− = OnNewEmail
230− | OnNewEmailSubject
231− | OnlyIfNoOpenIncidents
232− deriving (Eq, Show)
233−
234−instance FromJSON EmailIncidentCreation where
235− parseJSON (String s) = case s of
236− "on_new_email" -> pure OnNewEmail
237− "on_new_email_subject" -> pure OnNewEmailSubject
238− "only_if_no_open_incidents" -> pure OnlyIfNoOpenIncidents
239− _ -> mzero
240−
241− parseJSON _ = mzero
242−
243−data EmailFilterMode
244− = AllEmail
245− | OrRulesEmail
246− | AndRulesEmail
247− deriving (Eq, Show)
248−
249−instance FromJSON EmailFilterMode where
250− parseJSON (String s) = case s of
251− "all-email" -> pure AllEmail
252− "or-rules-email" -> pure OrRulesEmail
253− "and-rules-email" -> pure AndRulesEmail
254− _ -> mzero
255−
256− parseJSON _ = mzero
257−
258−data ServiceType
259− = CloudKick
260− | GenericEmail
261− | GenericEventsApi
262− | Keynote
263− | Nagios
264− | Pingdom
265− | ServerDensity
266− | SqlMonitor
267− deriving (Eq, Show)
268−
269−instance FromJSON ServiceType where
270− parseJSON (String s) = case s of
271− "cloudkick" -> pure CloudKick
272− "generic_email" -> pure GenericEmail
273− "generic_events_api" -> pure GenericEventsApi
274− "keynote" -> pure Keynote
275− "nagios" -> pure Nagios
276− "pingdom" -> pure Pingdom
277− "server_density" -> pure ServerDensity
278− "sql_monitor" -> pure SqlMonitor
279− _ -> mzero
280−
281− parseJSON _ = mzero
282−
283−instance ToJSON ServiceType where
284− toJSON st = String $ case st of
285− CloudKick -> "cloudkick"
286− GenericEmail -> "generic_email"
287− GenericEventsApi -> "generic_events_api"
288− Keynote -> "keynote"
289− Nagios -> "nagios"
290− Pingdom -> "pingdom"
291− ServerDensity -> "server_density"
292− SqlMonitor -> "sql_monitor"