pagerduty-hs 0.2.0.0 → 0.3.0.0
raw patch · 2 files changed
+3/−3 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Network.API.PagerDuty.EventV1Lenses: teClient :: forall a_abNt. Lens' (TriggerEvent a_abNt) Text
+ Network.API.PagerDuty.EventV1Lenses: teClient :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) Text
- Network.API.PagerDuty.EventV1Lenses: teClientURL :: forall a_abNt. Lens' (TriggerEvent a_abNt) Text
+ Network.API.PagerDuty.EventV1Lenses: teClientURL :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) Text
- Network.API.PagerDuty.EventV1Lenses: teContexts :: forall a_abNt. Lens' (TriggerEvent a_abNt) [Context]
+ Network.API.PagerDuty.EventV1Lenses: teContexts :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) [Context]
- Network.API.PagerDuty.EventV1Lenses: teDescription :: forall a_abNt. Lens' (TriggerEvent a_abNt) Text
+ Network.API.PagerDuty.EventV1Lenses: teDescription :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) Text
- Network.API.PagerDuty.EventV1Lenses: teDetails :: forall a_abNt a_akGg. Lens (TriggerEvent a_abNt) (TriggerEvent a_akGg) (Maybe a_abNt) (Maybe a_akGg)
+ Network.API.PagerDuty.EventV1Lenses: teDetails :: forall a_ijxM a_ajxO. Lens (TriggerEvent a_ijxM) (TriggerEvent a_ajxO) (Maybe a_ijxM) (Maybe a_ajxO)
- Network.API.PagerDuty.EventV1Lenses: teIncidentKey :: forall a_abNt. Lens' (TriggerEvent a_abNt) (Maybe Text)
+ Network.API.PagerDuty.EventV1Lenses: teIncidentKey :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) (Maybe Text)
- Network.API.PagerDuty.EventV1Lenses: teServiceKey :: forall a_abNt. Lens' (TriggerEvent a_abNt) Text
+ Network.API.PagerDuty.EventV1Lenses: teServiceKey :: forall a_ijxM. Lens' (TriggerEvent a_ijxM) Text
- Network.API.PagerDuty.EventV1Lenses: updateDescription :: forall a_abJ7. Lens' (UpdateEvent a_abJ7) Text
+ Network.API.PagerDuty.EventV1Lenses: updateDescription :: forall a_ijFl. Lens' (UpdateEvent a_ijFl) Text
- Network.API.PagerDuty.EventV1Lenses: updateDetails :: forall a_abJ7 a_akMO. Lens (UpdateEvent a_abJ7) (UpdateEvent a_akMO) (Maybe a_abJ7) (Maybe a_akMO)
+ Network.API.PagerDuty.EventV1Lenses: updateDetails :: forall a_ijFl a_ajFn. Lens (UpdateEvent a_ijFl) (UpdateEvent a_ajFn) (Maybe a_ijFl) (Maybe a_ajFn)
- Network.API.PagerDuty.EventV1Lenses: updateIncidentKey :: forall a_abJ7. Lens' (UpdateEvent a_abJ7) Text
+ Network.API.PagerDuty.EventV1Lenses: updateIncidentKey :: forall a_ijFl. Lens' (UpdateEvent a_ijFl) Text
- Network.API.PagerDuty.EventV1Lenses: updateServiceKey :: forall a_abJ7. Lens' (UpdateEvent a_abJ7) Text
+ Network.API.PagerDuty.EventV1Lenses: updateServiceKey :: forall a_ijFl. Lens' (UpdateEvent a_ijFl) Text
- Network.API.PagerDuty.EventV1Lenses: updateType :: forall a_abJ7. Lens' (UpdateEvent a_abJ7) UpdateType
+ Network.API.PagerDuty.EventV1Lenses: updateType :: forall a_ijFl. Lens' (UpdateEvent a_ijFl) UpdateType
Files
pagerduty-hs.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: pagerduty-hs-version: 0.2.0.0+version: 0.3.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
src/Network/API/PagerDuty/EventV1.hs view
@@ -23,7 +23,7 @@ import Control.Monad.Catch (MonadCatch (..), SomeException (..), catch) import Control.Monad.IO.Class (MonadIO (..)) import Data.Aeson (FromJSON (..), ToJSON (..), Value (..), encode, object, (.:), (.=))-import Data.Aeson.Types (Pair, typeMismatch)+import Data.Aeson.Types (Key, Pair, typeMismatch) import Data.Char (toLower) import Data.Maybe (mapMaybe) import Data.Text (Text, pack)@@ -37,7 +37,7 @@ | Image Text (Maybe Text) (Maybe Text) -- ^ Image URL, optional link ref, and optional alt text. deriving (Show, Eq) -optj :: ToJSON v => [(Text, Maybe v)] -> [Pair]+optj :: ToJSON v => [(Key, Maybe v)] -> [Pair] optj = mapMaybe (fmap (uncurry (.=)) . sequenceA) instance ToJSON Context where