pagerduty-hs 0.1.0.1 → 0.2.0.0

raw patch · 4 files changed

+36/−18 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +3/−1
• pagerduty-hs.cabal +2/−1
• src/Network/API/PagerDuty/EventV1.hs +2/−16
• src/Network/API/PagerDuty/EventV1Lenses.hs +29/−0

@@ -1,3 +1,5 @@ # Changelog for pagerduty -## Unreleased changes+## 0.2.0.0++Moved EventV1 optics into a separate module.

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           pagerduty-hs-version:        0.1.0.1+version:        0.2.0.0 synopsis:       An interface to the PagerDuty API. description:    Please see the README on GitHub at <https://github.com/dustin/pagerduty-hs#readme> category:       API@@ -28,6 +28,7 @@ library   exposed-modules:       Network.API.PagerDuty.EventV1+      Network.API.PagerDuty.EventV1Lenses   other-modules:       Paths_pagerduty_hs   hs-source-dirs:

@@ -8,7 +8,6 @@  PagerDuty Event V1 interface. -}-{-# LANGUAGE TemplateHaskell #-}  module Network.API.PagerDuty.EventV1 (   -- * Triggering an Event@@ -17,15 +16,10 @@   -- * Updating an Event   UpdateEvent(..), UpdateEvent', UpdateType(..),   -- * Delivering Events to PagerDuty-  deliver, Response(..),-  -- * Lenses and Prisms-  _Link, _Image,-  teServiceKey, teIncidentKey, teDescription, teDetails, teClient, teClientURL, teContexts,-  _Acknowledge, _Resolve,-  updateType, updateServiceKey, updateIncidentKey, updateDescription, updateDetails+  deliver, Response(..)   ) where -import           Control.Lens           (makeLenses, makePrisms, view)+import           Control.Lens           (view) import           Control.Monad.Catch    (MonadCatch (..), SomeException (..), catch) import           Control.Monad.IO.Class (MonadIO (..)) import           Data.Aeson             (FromJSON (..), ToJSON (..), Value (..), encode, object, (.:), (.=))@@ -43,8 +37,6 @@              | Image Text (Maybe Text) (Maybe Text) -- ^ Image URL, optional link ref, and optional alt text.   deriving (Show, Eq) -makePrisms ''Context- optj :: ToJSON v => [(Text, Maybe v)] -> [Pair] optj = mapMaybe (fmap (uncurry (.=)) . sequenceA) @@ -67,8 +59,6 @@   }   deriving (Show, Eq) -makeLenses ''TriggerEvent- instance ToJSON a => EventRequest (TriggerEvent a)  -- | A 'TriggerEvent' type that doesn't have details.@@ -91,8 +81,6 @@ -- | An event update will either acknowledge or resolve an incident. data UpdateType = Acknowledge | Resolve deriving (Show, Eq, Bounded, Enum) -makePrisms ''UpdateType- -- | UpdateEvent is the message for both acknowledging and resolving -- incidents.  This may be delivered using the 'deliver' function. data UpdateEvent a = UpdateEvent {@@ -103,8 +91,6 @@   , _updateDetails     :: Maybe a   }   deriving (Show, Eq)--makeLenses ''UpdateEvent  instance ToJSON a => EventRequest (UpdateEvent a) 

@@ -0,0 +1,29 @@+{-|+Module      : Network.API.PagerDuty.EventV1Lenses+Description : Lenses and prisms for the PagerDuty Event V1 interface.+Copyright   : (c) Dustin Sallings, 2021+License     : BSD3+Maintainer  : dustin@spy.net+Stability   : experimental++Lenses and prisms for the PagerDuty Event V1 interface.+-}+{-# LANGUAGE TemplateHaskell #-}++module Network.API.PagerDuty.EventV1Lenses (+  _Link, _Image,+  teServiceKey, teIncidentKey, teDescription, teDetails, teClient, teClientURL, teContexts,+  _Acknowledge, _Resolve,+  updateType, updateServiceKey, updateIncidentKey, updateDescription, updateDetails+  ) where++import           Control.Lens                  (makeLenses, makePrisms)+import           Network.API.PagerDuty.EventV1++makePrisms ''Context++makeLenses ''TriggerEvent++makePrisms ''UpdateType++makeLenses ''UpdateEvent