@@ -33,7 +33,7 @@ module Control.Monad.Trans.PagerDuty
3333 , envDomain
3434 , envAuth
3535 , envManager
36− , envLogging
36+-- , envLogging
3737
3838 -- * Integration API
3939 , submit
@@ -62,7 +62,7 @@ data Env (s :: Security) = Env
6262 { _envDomain :: SubDomain
6363 , _envAuth :: Auth s
6464 , _envManager :: Manager
65− , _envLogging ::
65+-- , _envLogging ::
6666 }
6767
6868-- | A convenient alias for 'PDT' 'IO'.
@@ -129,34 +129,57 @@ hoistEither = either throwError return
129129scoped :: MonadReader (Env s) m => (Env s -> m a) -> m a
130130scoped f = ask >>= f
131131
132−submit :: (MonadIO m, MonadReader (Env s) m, Event a)
132+submit :: ( MonadIO m
133+ , MonadReader (Env s) m
134+ , MonadError Error m
135+ , Event a
136+ )
133137 => a
134138 -> m Response
135139submit = submitCatch >=> hoistEither
136140
137−submitCatch :: (MonadIO m, MonadReader (Env s) m, Event a)
141+submitCatch :: ( MonadIO m
142+ , MonadReader (Env s) m
143+ , Event a
144+ )
138145 => a
139146 -> m (Either Error Response)
140147submitCatch x = scoped $ \e ->
141148 Int.submit (_envManager e) x
142149
143−send :: (MonadIO m, MonadReader (Env s) m, FromJSON b)
150+send :: ( MonadIO m
151+ , MonadReader (Env s) m
152+ , MonadError Error m
153+ , FromJSON b
154+ )
144155 => Request a s b
145156 -> m b
146157send = sendCatch >=> hoistEither
147158
148−sendCatch :: (MonadIO m, MonadReader (Env s) m, FromJSON b)
159+sendCatch :: ( MonadIO m
160+ , MonadReader (Env s) m
161+ , FromJSON b
162+ )
149163 => Request a s b
150164 -> m (Either Error b)
151165sendCatch x = scoped $ \Env{..} ->
152166 REST.send _envAuth _envDomain _envManager x
153167
154−paginate :: (MonadIO m, MonadReader (Env s) m, Paginate a, FromJSON b)
168+paginate :: ( MonadIO m
169+ , MonadReader (Env s) m
170+ , MonadError Error m
171+ , Paginate a
172+ , FromJSON b
173+ )
155174 => Request a s b
156175 -> Source m b
157176paginate x = paginateCatch x $= awaitForever (hoistEither >=> yield)
158177
159−paginateCatch :: (MonadIO m, MonadReader (Env s) m, Paginate a, FromJSON b)
178+paginateCatch :: ( MonadIO m
179+ , MonadReader (Env s) m
180+ , Paginate a
181+ , FromJSON b
182+ )
160183 => Request a s b
161184 -> Source m (Either Error b)
162185paginateCatch x = scoped $ \Env{..} ->