develop..67c4faa · typeable/pagerduty

.gitignore−1

@@ -9,7 +9,6 @@

99cabal.sandbox.config

1010

1111# Dirs

12−.stack-work

1312cabal-dev

1413bin

1514dist

.travis.ymldeleted−30

@@ -1,30 +0,0 @@

1−sudo: false

2−

3−cache:

4− apt: true

5− directories:

6− - ~/.stack

7−

8−branches:

9− only:

10− - master

11− - develop

12−

13−before_install:

14− - export PATH=/opt/ghc/$GHCVER/bin:$PATH

15− - export PATH=~/.local/bin:$PATH

16− - ./script/travis-lifecycle-before_install

17−

18−install:

19− - ./script/travis-lifecycle-install

20−

21−script:

22− - ./script/travis-lifecycle-script

23−

24−matrix:

25− fast_finish: true

26− include:

27− - env: GHCVER=8.0.1

28− addons: { apt: { packages: [ghc-8.0.1], sources: [hvr-ghc] } }

29− - env: GHCVER=7.10.3

30− addons: { apt: { packages: [ghc-7.10.3], sources: [hvr-ghc] } }

Makefilenew file+22

@@ -0,0 +1,22 @@

1+FLAGS := -j --disable-documentation

2+

3+build:

4+ cabal build $(addprefix -,$(findstring j,$(MAKEFLAGS)))

5+

6+all:

7+ make clean; make install && make build

8+

9+install: cabal.sandbox.config

10+ cabal install $(FLAGS) \

11+ --only-dependencies \

12+ --force-reinstalls

13+

14+clean:

15+ cabal clean

16+ rm -rf cabal.sandbox.config .cabal-sandbox

17+

18+doc:

19+ cabal haddock

20+

21+cabal.sandbox.config:

22+ cabal sandbox init

README.md−14

@@ -1,14 +0,0 @@

1−# PagerDuty

2−

3−[![Build Status](https://travis-ci.org/brendanhay/amazonka.svg?branch=develop)](https://travis-ci.org/brendanhay/pagerduty)

4−

5−* [Contribute](#contribute)

6−* [Licence](#licence)

7−

8−## Contribute

9−

10−For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/pagerduty/issues).

11−

12−## Licence

13−

14−PagerDuty is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

pagerduty.cabal+14−18

@@ -1,12 +1,12 @@

11name: pagerduty

2−version: 0.0.8

2+version: 0.0.0

33synopsis: Client library for PagerDuty Integration and REST APIs.

44homepage: http://github.com/brendanhay/pagerduty

55license: OtherLicense

66license-file: LICENSE

77author: Brendan Hay

88maintainer: Brendan Hay <brendan.g.hay@gmail.com>

1010category: Network, PagerDuty, Monitoring

1111build-type: Simple

1212cabal-version: >= 1.10

@@ -25,8 +25,6 @@ description:

2525 .

2626 /Warning:/ This is an experimental preview release which is still under

2727 heavy development and not intended for public consumption, caveat emptor!

28− .

29− /Note:/ An alternative source for Haddock documentation can be found <http://brendanhay.nz/pagerduty here>.

3028

3129extra-source-files:

3230 README.md

@@ -71,27 +69,25 @@ library

7169 , Network.PagerDuty.Types

7270

7371 build-depends:

74− aeson >= 2.0

75− , base >= 4.7 && < 5

76− , bifunctors >= 4.1

72+ aeson == 0.8.*

73+ , base >= 4.5 && < 5

74+ , bifunctors >= 4.1 && < 5

7775 , bytestring >= 0.9

7876 , bytestring-conversion >= 0.2.1

79− , conduit > 1.1

77+ , conduit > 1.1 && < 1.3

8078 , data-default-class >= 0.0.1

8179 , exceptions >= 0.6

82− , generics-sop >= 0.5.0.0

83− , http-client >= 0.5 && < 1

80+ , generics-sop >= 0.1.0.2

81+ , http-client >= 0.4.3 && < 0.5

8482 , http-types >= 0.8

85− , lens >= 4.4

83+ , lens >= 4.4 && < 5

8684 , lens-aeson >= 1

87− , mmorph >= 1

88− , monad-control >= 1

89− , mtl >= 2.1.3.1

85+ , mmorph >= 1 && < 2

86+ , monad-control >= 1 && < 2

87+ , mtl >= 2.2.1 && < 2.3

9088 , template-haskell >= 2.2

9189 , text >= 1.1

92− , time >= 1.2

93− , time-locale-compat >= 0.1.0.1

94− , transformers >= 0.2

95− , transformers-compat >= 0.3

90+ , time >= 1.5

91+ , transformers == 0.4.*

9692 , transformers-base >= 0.4.2

9793 , unordered-containers >= 0.2.3

script/generate-pagesnew file+25

@@ -0,0 +1,25 @@

1+#!/usr/bin/env bash

2+

3+set -e

4+set -x

5+set -o errexit

6+

7+branch=$(git symbolic-ref -q HEAD)

8+branch=${branch##refs/heads/}

9+branch=${branch:-HEAD}

10+

11+cabal configure --disable-tests

12+

13+DOCDIR=`mktemp -d -t pages.XXXXXX`

14+cabal haddock --haddock-option=-o$DOCDIR

15+

16+HEAD=`git rev-parse HEAD`

17+

18+git checkout gh-pages

19+

20+mv $DOCDIR/* .

21+

22+git add *.html *.js *.css *.gif *.png

23+git commit -m "Generated documentation from $HEAD on $branch"

24+git push origin gh-pages

25+git checkout $branch

script/travis-lifecycle-before_installdeleted−11

@@ -1,11 +0,0 @@

1−#!/usr/bin/env bash

2−

3−set -e

4−

5−mkdir -p ~/.local/bin

6−

7−curl -L https://www.stackage.org/stack/linux-x86_64 | \

8− tar xz --wildcards --strip-components=1 -C ~/.local/bin '*/stack'

9−

10−ghc --version

11−stack --version

script/travis-lifecycle-installdeleted−13

@@ -1,13 +0,0 @@

1−#!/usr/bin/env bash

2−

3−set -e

4−

5−GHCVER=${GHCVER?"GHCVER needs to be set."}

6−

7−path=$(cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd)

8−

9−$path/travis-timeout \

10− stack --no-terminal --skip-ghc-check --stack-yaml stack-$GHCVER.yaml setup

11−

12−$path/travis-timeout \

13− stack --no-terminal --skip-ghc-check --stack-yaml stack-$GHCVER.yaml test pagerduty --only-snapshot

script/travis-lifecycle-scriptdeleted−9

@@ -1,9 +0,0 @@

1−#!/usr/bin/env bash

2−

3−set -e

4−

5−GHCVER=${GHCVER?"GHCVER needs to be set."}

6−

7−path=$(cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd)

8−

9−stack --no-terminal --skip-ghc-check --stack-yaml stack-$GHCVER.yaml test pagerduty

script/travis-timeoutdeleted−15

@@ -1,15 +0,0 @@

1−#!/usr/bin/env bash

2−

3−$* &

4−pidA=$!

5−minutes=0

6−

7−while true; do sleep 60; ((minutes++)); echo -e "\033[0;32m$minutes minute(s) elapsed running '$*'\033[0m."; done &

8−pidB=$!

9−wait $pidA

10−resA=$?

11−

12−echo -e "\033[0;32m'$*' exited with status ${resA}.\033[0m"

13−kill -9 $pidB

14−

15−exit $resA

script/upload-documentationnew file+37

@@ -0,0 +1,37 @@

1+#!/usr/bin/env bash

2+

3+set -e

4+

5+package=${PWD##*/}

6+

7+echo "Package: ${package}"

8+read -p "Version: " version

9+read -p "Hackage user: " user

10+read -sp "Hackage password (not echoed): " password

11+

12+echo

13+echo "BUILDING"

14+echo

15+

16+cabal configure

17+cabal build

18+cabal haddock \

19+ --hyperlink-source \

20+ --html-location='/package/$pkg-$version/docs' \

21+ --contents-location='/package/$pkg'

22+

23+echo

24+echo "ARCHIVING"

25+echo

26+

27+cd dist/doc/html

28+DDIR="${package}-${version}-docs"

29+cp -r "${package}" "${DDIR}" && gtar -c -v -z -Hustar -f "${DDIR}.tar.gz" "${DDIR}"

30+

31+echo

32+echo "UPLOADING"

33+echo

34+

35+curl -X PUT -H 'Content-Type: application/x-tar' \

36+ -H 'Content-Encoding: gzip' --data-binary "@${DDIR}.tar.gz" \

37+ "http://${user}:${password}@hackage.haskell.org/package/${package}-${version}/docs"

src/Control/Monad/Trans/PagerDuty.hs+3−4

@@ -7,7 +7,7 @@

77{-# LANGUAGE UndecidableInstances #-}

88

99-- Module : Control.Monad.Trans.PagerDuty

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -38,18 +38,17 @@ module Control.Monad.Trans.PagerDuty

3838 -- ** Lifting errors

3939 , hoistError

4040

41+ -- * Re-exported types

4142 , module Network.PagerDuty.Types

4243 ) where

4344

4445import Control.Applicative

45−import Control.Monad

4646import Control.Monad.Base

4747import Control.Monad.Catch

48−import Control.Monad.Except (MonadError (..))

48+import Control.Monad.Except

4949import Control.Monad.Morph

5050import Control.Monad.Reader

5151import Control.Monad.Trans.Control

52−import Control.Monad.Trans.Except

5352import Data.Aeson

5453import Data.Conduit

5554import Network.PagerDuty.Integration (Event, Response)

src/Network/PagerDuty/Integration.hs+6−6

@@ -6,7 +6,7 @@

66{-# LANGUAGE TemplateHaskell #-}

77

88-- Module : Network.PagerDuty.Integration

1010-- License : This Source Code Form is subject to the terms of

1111-- the Mozilla Public License, v. 2.0.

1212-- A copy of the MPL can be found in the LICENSE file or

@@ -75,13 +75,15 @@ module Network.PagerDuty.Integration

7575

7676 , Generic

7777

78+ -- * Re-exported types

7879 , module Network.PagerDuty.Types

7980 ) where

8081

8182import Control.Lens

8283import Control.Monad.IO.Class

8384import Data.Aeson

84−import qualified Data.Aeson.KeyMap as Map

85+import Data.Default.Class

86+import qualified Data.HashMap.Strict as Map

8587import Data.Text (Text)

8688import Network.HTTP.Client (Manager)

8789import qualified Network.HTTP.Client as Client

@@ -291,8 +293,6 @@ submitWith :: MonadIO m

291293 -> Event

292294 -> m (Either Error Response)

293295submitWith m l e = request m l e $

294− Client.defaultRequest

295− { Client.host = "events.pagerduty.com"

296− , Client.path = "/generic/2010-04-15/create_event.json"

297− , Client.method = "POST"

296+ def { Client.host = "events.pagerduty.com"

297+ , Client.path = "/generic/2010-04-15/create_event.json"

298298 }

src/Network/PagerDuty/Internal/IO.hs+1−1

@@ -2,7 +2,7 @@

22{-# LANGUAGE ScopedTypeVariables #-}

33

44-- Module : Network.PagerDuty.Internal.IO

66-- License : This Source Code Form is subject to the terms of

77-- the Mozilla Public License, v. 2.0.

88-- A copy of the MPL can be found in the LICENSE file or

src/Network/PagerDuty/Internal/Options.hs+4−4

@@ -1,5 +1,5 @@

11-- Module : Network.PagerDuty.Internal.Options

33-- License : This Source Code Form is subject to the terms of

44-- the Mozilla Public License, v. 2.0.

55-- A copy of the MPL can be found in the LICENSE file or

@@ -14,9 +14,9 @@ module Network.PagerDuty.Internal.Options

1414 , underscored

1515 ) where

1616

17−import Data.Aeson.Types

18−import Data.Char

19−import Data.List

17+import Data.Aeson.Types

18+import Data.Char

19+import Data.List

2020

2121dropped :: Int -> Options -> Options

2222dropped n o = o

src/Network/PagerDuty/Internal/Query.hs+12−14

@@ -1,13 +1,12 @@

11{-# LANGUAGE ConstraintKinds #-}

22{-# LANGUAGE DefaultSignatures #-}

3−{-# LANGUAGE FlexibleContexts #-}

43{-# LANGUAGE GADTs #-}

54{-# LANGUAGE OverloadedStrings #-}

65{-# LANGUAGE ScopedTypeVariables #-}

76{-# LANGUAGE TupleSections #-}

87

98-- Module : Network.PagerDuty.Internal.Query

1110-- License : This Source Code Form is subject to the terms of

1211-- the Mozilla Public License, v. 2.0.

1312-- A copy of the MPL can be found in the LICENSE file or

@@ -24,14 +23,14 @@ module Network.PagerDuty.Internal.Query

2423

2524import Data.Aeson.Types

2625import Data.Bifunctor

27−import Data.ByteString (ByteString)

28−import qualified Data.ByteString.Char8 as BS

26+import Data.ByteString (ByteString)

27+import qualified Data.ByteString.Char8 as BS

2928import Data.ByteString.Conversion

30−import Data.Function (on)

31−import Data.List (groupBy)

32−import Data.Monoid ((<>))

33−import Data.Text (Text)

34−import qualified Data.Text.Encoding as Text

29+import Data.Function (on)

30+import Data.List (groupBy)

31+import Data.Monoid ((<>))

32+import Data.Text (Text)

33+import qualified Data.Text.Encoding as Text

3534import Generics.SOP

3635import Network.HTTP.Types

3736import Network.PagerDuty.Internal.Options

@@ -59,15 +58,14 @@ gqueryWith :: forall a. (Generic a, HasDatatypeInfo a, All2 QueryValues (Code a)

5958 -> a

6059 -> Query

6160gqueryWith o a = case datatypeInfo (Proxy :: Proxy a) of

62− ADT _ _ cs _ -> go cs (from a)

63− Newtype _ _ c -> go (c :* Nil) (from a)

61+ ADT _ _ cs -> go cs (from a)

62+ Newtype _ _ c -> go (c :* Nil) (from a)

6463 where

65− go :: (All2 QueryValues xss, SListI xss)

64+ go :: (All2 QueryValues xss, SingI xss)

6665 => NP ConstructorInfo xss

6766 -> SOP I xss

6867 -> Query

69− go cs (SOP sop) =

70− group . hcollapse $ hcliftA2' p (gctor o) cs sop

68+ go cs (SOP sop) = group . unI . hcollapse $ hcliftA2' p (gctor o) cs sop

7169

7270 group :: [(ByteString, ByteString)] -> Query

7371 group = concatMap f . groupBy ((==) `on` fst)

src/Network/PagerDuty/Internal/TH.hs+6−6

@@ -1,7 +1,7 @@

11{-# LANGUAGE TemplateHaskell #-}

22

33-- Module : Network.PagerDuty.Internal.TH

55-- License : This Source Code Form is subject to the terms of

66-- the Mozilla Public License, v. 2.0.

77-- A copy of the MPL can be found in the LICENSE file or

@@ -40,15 +40,15 @@ module Network.PagerDuty.Internal.TH

4040

4141import Control.Applicative

4242import Control.Lens

43−import qualified Data.Aeson.TH as Aeson

43+import qualified Data.Aeson.TH as Aeson

4444import Data.Aeson.Types

45−import Data.ByteString (ByteString)

46−import qualified Data.Text.Encoding as Text

45+import Data.ByteString (ByteString)

46+import qualified Data.Text.Encoding as Text

4747import Generics.SOP.TH

4848import Language.Haskell.TH

4949import Network.HTTP.Types.QueryLike

50−import Network.PagerDuty.Internal.Options

5150import Network.PagerDuty.Internal.Query

51+import Network.PagerDuty.Internal.Options

5252

5353jsonRequest :: Name -> Q [Dec]

5454jsonRequest n = concat <$> sequence

@@ -61,7 +61,7 @@ queryRequest :: Name -> Q [Dec]

6161queryRequest n = concat <$> sequence

6262 [ deriveGeneric n

6363 , makeLenses n

64− , [d|instance ToJSON $(conT n) where toJSON = const emptyObject|]

64+ , [d|instance ToJSON $(conT n) where toJSON = const (toJSON (object []))|]

6565 , [d|instance QueryLike $(conT n) where toQuery = gquery|]

6666 ]

6767

src/Network/PagerDuty/Internal/Types.hs+16−24

@@ -15,7 +15,7 @@

1515{-# LANGUAGE ViewPatterns #-}

1616

1717-- Module : Network.PagerDuty.Internal.Types

1919-- License : This Source Code Form is subject to the terms of

2020-- the Mozilla Public License, v. 2.0.

2121-- A copy of the MPL can be found in the LICENSE file or

@@ -27,33 +27,32 @@

2727module Network.PagerDuty.Internal.Types where

2828

2929import Control.Applicative

30−import Control.Lens hiding ((.=), Empty)

30+import Control.Lens hiding ((.=))

3131import Control.Monad.IO.Class

32−import Data.Aeson hiding (Error, Key)

33−import qualified Data.Aeson.KeyMap as Map

32+import Data.Aeson hiding (Error)

3433import Data.Aeson.Types (Parser)

3534import Data.ByteString (ByteString)

3635import qualified Data.ByteString.Char8 as BS

3736import Data.ByteString.Conversion hiding (List)

3837import Data.Default.Class

3938import Data.Function (on)

39+import qualified Data.HashMap.Strict as Map

4040import Data.List (deleteBy, intersperse)

4141import Data.Monoid

4242import Data.String

4343import Data.Text (Text)

4444import qualified Data.Text as Text

4545import qualified Data.Text.Encoding as Text

46−import Data.Time (UTCTime, TimeZone, formatTime, utc, timeZoneName)

46+import Data.Time

4747import GHC.TypeLits

4848import Network.HTTP.Client (Manager)

4949import Network.HTTP.Types

5050import Network.HTTP.Types.QueryLike

5151import Network.PagerDuty.Internal.Query

5252import Network.PagerDuty.Internal.TH

53−import Data.Time.Locale.Compat

5453

5554newtype CSV a = CSV [a]

56− deriving (Eq, Show, Semigroup, Monoid)

55+ deriving (Eq, Show, Monoid)

5756

5857makePrisms ''CSV

5958

@@ -70,7 +69,7 @@ instance ToByteString a => ToJSON (CSV a) where

7069 toJSON = String . Text.decodeUtf8 . toByteString'

7170

7271newtype List a = L [a]

73− deriving (Eq, Show, Semigroup, Monoid)

72+ deriving (Eq, Show, Monoid)

7473

7574deriveJSON ''List

7675makePrisms ''List

@@ -106,7 +105,7 @@ instance ToJSON Date where

106105

107106instance ToByteString Date where

108107 builder (D d) = builder

109− (formatTime defaultTimeLocale ("%Y-%m-%dT%XZ") d)

108+ (formatTime defaultTimeLocale (iso8601DateFormat $ Just "%XZ") d)

110109

111110instance QueryValues Date

112111

@@ -133,8 +132,8 @@ data Security = Basic | Token

133132 deriving (Eq, Show)

134133

135134data Auth (a :: Security) where

136− AuthBasic :: ByteString -> ByteString -> Auth 'Basic

137− AuthToken :: ByteString -> Auth 'Token

135+ AuthBasic :: ByteString -> ByteString -> Auth Basic

136+ AuthToken :: ByteString -> Auth Token

138137

139138deriving instance Eq (Auth a)

140139deriving instance Show (Auth a)

@@ -279,13 +278,8 @@ data Pager = Pager

279278

280279makeLenses ''Pager

281280

282−data Page a = Page

283− { _pgItem :: a

284− , _pgPager :: Maybe Pager

285− }

286−

287−instance FromJSON a => FromJSON (Page a) where

288− parseJSON = withObject "paginated" $ \o -> Page

281+instance FromJSON a => FromJSON (a, Maybe Pager) where

282+ parseJSON = withObject "paginated" $ \o -> (,)

289283 <$> parseJSON (Object o)

290284 <*> optional (parse o)

291285 where

@@ -310,13 +304,11 @@ data Path where

310304 Path :: Path

311305 Seg :: ToByteString a => a -> Path

312306

313−instance Semigroup Path where

314− x <> Path = x

315− Path <> y = y

316− Seg x <> Seg y = Seg (builder x <> "/" <> builder y)

317−

318307instance Monoid Path where

319− mempty = Path

308+ mempty = Path

309+ mappend x Path = x

310+ mappend Path y = y

311+ mappend (Seg x) (Seg y) = Seg (builder x <> "/" <> builder y)

320312

321313instance IsString Path where

322314 fromString = Seg

src/Network/PagerDuty/REST.hs+10−7

@@ -2,7 +2,7 @@

22{-# LANGUAGE OverloadedStrings #-}

33

44-- Module : Network.PagerDuty.REST

66-- License : This Source Code Form is subject to the terms of

77-- the Mozilla Public License, v. 2.0.

88-- A copy of the MPL can be found in the LICENSE file or

@@ -13,12 +13,14 @@

1313

1414module Network.PagerDuty.REST

1515 (

16+

1617 -- * Sending requests

1718 send

1819 , sendWith

1920 , paginate

2021 , paginateWith

2122

23+ -- * Re-exported types

2224 , module Network.PagerDuty.Types

2325 ) where

2426

@@ -29,6 +31,7 @@ import Control.Monad.IO.Class

2931import Control.Monad.Trans

3032import Data.Aeson (FromJSON)

3133import Data.Conduit

34+import Data.Default.Class

3235import Data.Monoid

3336import Network.HTTP.Client (Manager)

3437import qualified Network.HTTP.Client as Client

@@ -54,7 +57,7 @@ sendWith :: (MonadIO m, FromJSON b)

5457 => Env s

5558 -> Request a s b

5659 -> m (Either Error b)

57−sendWith e = liftM (fmap _pgItem) . http e

60+sendWith e = liftM (fmap fst) . http e

5861

5962-- | /See:/ 'paginateWith'

6063paginate :: (MonadIO m, Paginate a, FromJSON b)

@@ -73,15 +76,15 @@ paginateWith e = go

7376 where

7477 go rq = do

7578 rs <- lift (http e rq)

76− yield (_pgItem <$> rs)

79+ yield (fst <$> rs)

7780 either (const (return ()))

78− (maybe (return ()) go . next rq . _pgPager)

81+ (maybe (return ()) go . next rq . snd)

7982 rs

8083

8184http :: (MonadIO m, FromJSON b)

8285 => Env s

8386 -> Request a s b

84− -> m (Either Error (Page b))

87+ -> m (Either Error (b, Maybe Pager))

8588http e rq = request (e ^. envManager) (e ^. envLogger) rq $ raw

8689 { Client.host = domain (e ^. envDomain)

8790 , Client.path = renderPath (rq ^. path)

@@ -89,7 +92,7 @@ http e rq = request (e ^. envManager) (e ^. envLogger) rq $ raw

8992 }

9093 where

9194 raw = case e ^. envAuth of

92− AuthBasic u p -> Client.applyBasicAuth u p Client.defaultRequest

93− AuthToken t -> Client.defaultRequest

95+ AuthBasic u p -> Client.applyBasicAuth u p def

96+ AuthToken t -> def

9497 { Client.requestHeaders = [("Authorization", "Token token=" <> t)]

9598 }

src/Network/PagerDuty/REST/Alerts.hs+7−7

@@ -4,7 +4,7 @@

44{-# LANGUAGE TypeFamilies #-}

55

66-- Module : Network.PagerDuty.REST.Alerts

88-- License : This Source Code Form is subject to the terms of

99-- the Mozilla Public License, v. 2.0.

1010-- A copy of the MPL can be found in the LICENSE file or

@@ -43,12 +43,12 @@ module Network.PagerDuty.REST.Alerts

4343 , alertAddress

4444 ) where

4545

46−import Control.Lens hiding (Empty)

47−import Data.Aeson.Lens

48−import Data.Time

49−import Network.PagerDuty.Internal.TH

50−import Network.PagerDuty.Internal.Types

51−import Network.PagerDuty.REST.Users (User)

46+import Control.Lens

47+import Data.Aeson.Lens

48+import Data.Time

49+import Network.PagerDuty.REST.Users (User)

50+import Network.PagerDuty.Internal.TH

51+import Network.PagerDuty.Internal.Types

5252

5353alerts :: Path

5454alerts = "alerts"

src/Network/PagerDuty/REST/EscalationPolicies.hs+14−14

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE DataKinds #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.EscalationPolicies

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -60,15 +60,15 @@ module Network.PagerDuty.REST.EscalationPolicies

6060 , pServices

6161 ) where

6262

63−import Control.Lens hiding (Empty)

64−import Data.Aeson.Lens

65−import Data.Text (Text)

66−import Network.HTTP.Types

67−import Network.PagerDuty.Internal.TH

68−import Network.PagerDuty.Internal.Types

69−import Network.PagerDuty.REST.Services (Service)

63+import Control.Lens

64+import Data.Aeson.Lens

65+import Data.Text (Text)

66+import Network.HTTP.Types

67+import Network.PagerDuty.REST.Services (Service)

68+import Network.PagerDuty.Internal.TH

69+import Network.PagerDuty.Internal.Types

7070

71−import Network.PagerDuty.REST.EscalationPolicies.EscalationRules

71+import Network.PagerDuty.REST.EscalationPolicies.EscalationRules

7272

7373default (Path)

7474

src/Network/PagerDuty/REST/EscalationPolicies/EscalationRules.hs+10−10

@@ -1,12 +1,12 @@

1−{-# LANGUAGE ExtendedDefaultRules #-}

2−{-# LANGUAGE FlexibleInstances #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE FlexibleInstances #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

55

66{-# OPTIONS_GHC -fno-warn-type-defaults #-}

77

88-- Module : Network.PagerDuty.REST.EscalationPolicies.EscalationRules

1010-- License : This Source Code Form is subject to the terms of

1111-- the Mozilla Public License, v. 2.0.

1212-- A copy of the MPL can be found in the LICENSE file or

@@ -64,15 +64,15 @@ module Network.PagerDuty.REST.EscalationPolicies.EscalationRules

6464 , rTargets

6565 ) where

6666

67−import Control.Applicative ((<$>))

68−import Control.Lens hiding ((.=))

67+import Control.Applicative ((<$>))

68+import Control.Lens hiding ((.=))

6969import Data.Aeson

70−import qualified Data.Aeson.KeyMap as Map

71−import Data.Text (Text)

70+import qualified Data.HashMap.Strict as Map

71+import Data.Text (Text)

7272import Network.HTTP.Types

73+import Network.PagerDuty.REST.Users

7374import Network.PagerDuty.Internal.TH

7475import Network.PagerDuty.Internal.Types

75−import Network.PagerDuty.REST.Users

7676

7777default (Path)

7878

src/Network/PagerDuty/REST/Incidents.hs+4−5

@@ -10,7 +10,7 @@

1010{-# OPTIONS_GHC -fno-warn-type-defaults #-}

1111

1212-- Module : Network.PagerDuty.REST.Incidents

1414-- License : This Source Code Form is subject to the terms of

1515-- the Mozilla Public License, v. 2.0.

1616-- A copy of the MPL can be found in the LICENSE file or

@@ -130,10 +130,9 @@ module Network.PagerDuty.REST.Incidents

130130 ) where

131131

132132import Control.Applicative hiding (empty)

133−import Control.Lens hiding (Empty)

133+import Control.Lens

134134import Data.Aeson

135−import Data.ByteString.Conversion (ToByteString (..),

136− toByteString')

135+import Data.ByteString.Conversion (ToByteString(..), toByteString')

137136import Data.Default.Class

138137import Data.Maybe

139138import Data.Monoid hiding (All)

@@ -567,7 +566,7 @@ updateIncidents r = auth updateIncidentsBasic & query .~ [("requester_id", r)]

567566

568567-- | A version of 'updateIncidents' which uses HTTP Basic authentication and

569568-- doesn't require a 'RequesterId'.

570−updateIncidentsBasic :: Request UpdateIncidents 'Basic [UpdatedIncidents]

569+updateIncidentsBasic :: Request UpdateIncidents Basic [UpdatedIncidents]

571570updateIncidentsBasic =

572571 mk UpdateIncidents

573572 { _uiIncidents' = []

src/Network/PagerDuty/REST/Incidents/Notes.hs+12−12

@@ -1,11 +1,11 @@

1−{-# LANGUAGE ExtendedDefaultRules #-}

2−{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE TemplateHaskell #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE OverloadedStrings #-}

3+{-# LANGUAGE TemplateHaskell #-}

44

55{-# OPTIONS_GHC -fno-warn-type-defaults #-}

66

77-- Module : Network.PagerDuty.REST.Incidents.Notes

99-- License : This Source Code Form is subject to the terms of

1010-- the Mozilla Public License, v. 2.0.

1111-- A copy of the MPL can be found in the LICENSE file or

@@ -36,14 +36,14 @@ module Network.PagerDuty.REST.Incidents.Notes

3636 , nContent

3737 ) where

3838

39−import Control.Lens hiding ((.=))

40−import Data.Aeson

41−import Data.Text (Text)

42−import Data.Time

43−import Network.HTTP.Types

44−import Network.PagerDuty.Internal.TH

45−import Network.PagerDuty.Internal.Types

46−import Network.PagerDuty.REST.Users

39+import Control.Lens hiding ((.=))

40+import Data.Aeson

41+import Data.Text (Text)

42+import Data.Time

43+import Network.HTTP.Types

44+import Network.PagerDuty.REST.Users

45+import Network.PagerDuty.Internal.TH

46+import Network.PagerDuty.Internal.Types

4747

4848default (Path)

4949

src/Network/PagerDuty/REST/LogEntries.hs+7−6

@@ -5,7 +5,7 @@

55{-# LANGUAGE TypeFamilies #-}

66

77-- Module : Network.PagerDuty.REST.LogEntries

99-- License : This Source Code Form is subject to the terms of

1010-- the Mozilla Public License, v. 2.0.

1111-- A copy of the MPL can be found in the LICENSE file or

@@ -111,18 +111,19 @@ module Network.PagerDuty.REST.LogEntries

111111 , nAddress

112112 ) where

113113

114−import Control.Lens hiding (Empty)

114+import Control.Applicative

115+import Control.Lens

115116import Data.Aeson

116117import Data.Aeson.Lens

117−import qualified Data.Aeson.KeyMap as Map

118118import Data.Default.Class

119−import Data.Text (Text)

120−import qualified Data.Text as Text

119+import qualified Data.HashMap.Strict as Map

120+import Data.Text (Text)

121+import qualified Data.Text as Text

121122import Data.Time

122123import Network.HTTP.Types

124+import Network.PagerDuty.REST.Users (User)

123125import Network.PagerDuty.Internal.TH

124126import Network.PagerDuty.Internal.Types

125−import Network.PagerDuty.REST.Users (User)

126127

127128logs :: Path

128129logs = "log_entries"

src/Network/PagerDuty/REST/MaintenanceWindows.hs+10−10

@@ -4,7 +4,7 @@

44{-# LANGUAGE TypeFamilies #-}

55

66-- Module : Network.PagerDuty.REST.MaintenanceWindows

88-- License : This Source Code Form is subject to the terms of

99-- the Mozilla Public License, v. 2.0.

1010-- A copy of the MPL can be found in the LICENSE file or

@@ -74,14 +74,14 @@ module Network.PagerDuty.REST.MaintenanceWindows

7474 , mwServices

7575 ) where

7676

77−import Control.Lens hiding (Empty)

78−import Data.Monoid

79−import Data.Text (Text)

80−import Data.Time

81−import Network.HTTP.Types

82−import Network.PagerDuty.Internal.TH

83−import Network.PagerDuty.Internal.Types

84−import Network.PagerDuty.REST.Users (User)

77+import Control.Lens

78+import Data.Monoid

79+import Data.Text (Text)

80+import Data.Time

81+import Network.HTTP.Types

82+import Network.PagerDuty.REST.Users (User)

83+import Network.PagerDuty.Internal.TH

84+import Network.PagerDuty.Internal.Types

8585

8686windows :: Path

8787windows = "maintenance_windows"

@@ -214,7 +214,7 @@ createWindow r s e xs =

214214createWindowBasic :: UTCTime -- ^ 'cwStartTime'

215215 -> UTCTime -- ^ 'cwEndTime'

216216 -> [ServiceId] -- ^ 'cwServiceIds'

217− -> Request CreateWindow 'Basic MaintenanceWindow

217+ -> Request CreateWindow Basic MaintenanceWindow

218218createWindowBasic s e xs =

219219 mk CreateWindow

220220 { _cwRequesterId' = Nothing

src/Network/PagerDuty/REST/Reports.hs+11−11

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE ExtendedDefaultRules #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.Reports

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -58,11 +58,11 @@ module Network.PagerDuty.REST.Reports

5858 , irNumberOfIncidents

5959 ) where

6060

61−import Control.Lens hiding (Empty)

62−import Data.Aeson.Lens

63−import Data.Time

64−import Network.PagerDuty.Internal.TH

65−import Network.PagerDuty.Internal.Types

61+import Control.Lens

62+import Data.Aeson.Lens

63+import Data.Time

64+import Network.PagerDuty.Internal.TH

65+import Network.PagerDuty.Internal.Types

6666

6767default (Path)

6868

src/Network/PagerDuty/REST/Schedules.hs+14−14

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE ExtendedDefaultRules #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.Schedules

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -110,14 +110,14 @@ module Network.PagerDuty.REST.Schedules

110110 , sFinalSchedule

111111 ) where

112112

113−import Control.Lens hiding (Empty, (.=))

114−import Data.Aeson

115−import Data.Text (Text)

116−import Data.Time

117−import Network.HTTP.Types

118−import Network.PagerDuty.Internal.TH

119−import Network.PagerDuty.Internal.Types

120−import Network.PagerDuty.REST.Users (User)

113+import Control.Lens hiding ((.=))

114+import Data.Aeson

115+import Data.Text (Text)

116+import Data.Time

117+import Network.HTTP.Types

118+import Network.PagerDuty.REST.Users (User)

119+import Network.PagerDuty.Internal.TH

120+import Network.PagerDuty.Internal.Types

121121

122122default (Path)

123123

src/Network/PagerDuty/REST/Schedules/Overrides.hs+12−12

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE ExtendedDefaultRules #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.Schedules

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -50,12 +50,12 @@ module Network.PagerDuty.REST.Schedules.Overrides

5050 , oUser

5151 ) where

5252

53−import Control.Lens

54−import Data.Time

55−import Network.HTTP.Types

56−import Network.PagerDuty.Internal.TH

57−import Network.PagerDuty.Internal.Types

58−import Network.PagerDuty.REST.Users

53+import Control.Lens

54+import Data.Time

55+import Network.HTTP.Types

56+import Network.PagerDuty.REST.Users

57+import Network.PagerDuty.Internal.TH

58+import Network.PagerDuty.Internal.Types

5959

6060overrides :: ScheduleId -> Path

6161overrides i = "schedules" % i % "overrides"

src/Network/PagerDuty/REST/Services.hs+16−16

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE ExtendedDefaultRules #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.Services

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -106,14 +106,14 @@ module Network.PagerDuty.REST.Services

106106 , svcSeverityFilter

107107 ) where

108108

109−import Control.Lens hiding (Empty)

110−import Data.Aeson.Lens

111−import Data.Text (Text)

112−import Data.Time

113−import Network.HTTP.Types

114−import Network.PagerDuty.Internal.TH

115−import Network.PagerDuty.Internal.Types

116−import Network.PagerDuty.REST.Services.EmailFilters

109+import Control.Lens

110+import Data.Aeson.Lens

111+import Data.Text (Text)

112+import Data.Time

113+import Network.HTTP.Types

114+import Network.PagerDuty.REST.Services.EmailFilters

115+import Network.PagerDuty.Internal.TH

116+import Network.PagerDuty.Internal.Types

117117

118118default (Path)

119119

@@ -483,7 +483,7 @@ enableService r i =

483483

484484-- | A version of 'enableService' which uses HTTP Basic authentication and

485485-- doesn't require a 'RequesterId'.

486−enableServiceBasic :: ServiceId -> Request Empty 'Basic Empty

486+enableServiceBasic :: ServiceId -> Request Empty Basic Empty

487487enableServiceBasic i = empty & meth .~ PUT & path .~ services % i % "enable"

488488

489489-- | Disable a service. Once a service is disabled, it will not be able to

@@ -498,7 +498,7 @@ disableService r i =

498498

499499-- | A version of 'disableService' which uses HTTP Basic authentication and

500500-- doesn't require a 'RequesterId'.

501−disableServiceBasic :: ServiceId -> Request Empty 'Basic Empty

501+disableServiceBasic :: ServiceId -> Request Empty Basic Empty

502502disableServiceBasic i = empty & meth .~ PUT & path .~ services % i % "disable"

503503

504504-- | Regenerate a new service key for an existing service.

src/Network/PagerDuty/REST/Services/EmailFilters.hs+14−14

@@ -1,11 +1,11 @@

1−{-# LANGUAGE ExtendedDefaultRules #-}

2−{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE TemplateHaskell #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE OverloadedStrings #-}

3+{-# LANGUAGE TemplateHaskell #-}

44

55{-# OPTIONS_GHC -fno-warn-type-defaults #-}

66

77-- Module : Network.PagerDuty.REST.Services.EmailFilters

99-- License : This Source Code Form is subject to the terms of

1010-- the Mozilla Public License, v. 2.0.

1111-- A copy of the MPL can be found in the LICENSE file or

@@ -39,15 +39,15 @@ module Network.PagerDuty.REST.Services.EmailFilters

3939 , efId

4040 ) where

4141

42−import Control.Applicative hiding (empty)

43−import Control.Lens hiding ((.=))

44−import Data.Aeson

45−import Data.Default.Class

46−import Data.Monoid

47−import Data.Text (Text)

48−import Network.HTTP.Types

49−import Network.PagerDuty.Internal.TH

50−import Network.PagerDuty.Internal.Types

42+import Control.Applicative hiding (empty)

43+import Control.Lens hiding ((.=))

44+import Data.Aeson

45+import Data.Default.Class

46+import Data.Monoid

47+import Data.Text (Text)

48+import Network.HTTP.Types

49+import Network.PagerDuty.Internal.TH

50+import Network.PagerDuty.Internal.Types

5151

5252default (Path)

5353

@@ -65,7 +65,7 @@ deriveNullaryWith hyphenated ''MatchMode

6565-- FIXME: Tighten up this type! Make the regex required for match/no-match and

6666-- encode the conditional invariants.

6767data EmailFilterInfo = EmailFilterInfo

68− { _efSubjectMode' :: Maybe MatchMode

68+ { _efSubjectMode' :: Maybe MatchMode

6969 , _efSubjectRegex' :: Maybe Text

7070 , _efBodyMode' :: Maybe MatchMode

7171 , _efBodyRegex' :: Maybe Text

src/Network/PagerDuty/REST/Users.hs+17−17

@@ -1,13 +1,13 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE ExtendedDefaultRules #-}

3−{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TypeFamilies #-}

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE ExtendedDefaultRules #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE TemplateHaskell #-}

5+{-# LANGUAGE TypeFamilies #-}

66

77{-# OPTIONS_GHC -fno-warn-type-defaults #-}

88

99-- Module : Network.PagerDuty.REST.Users

1111-- License : This Source Code Form is subject to the terms of

1212-- the Mozilla Public License, v. 2.0.

1313-- A copy of the MPL can be found in the LICENSE file or

@@ -81,16 +81,16 @@ module Network.PagerDuty.REST.Users

8181 , uJobTitle

8282 ) where

8383

84−import Control.Applicative hiding (empty)

85−import Control.Lens hiding (Empty, (.=))

86−import Data.Aeson

87−import Data.Default.Class

88−import Data.Monoid

89−import Data.Text (Text)

90−import Data.Time

91−import Network.HTTP.Types

92−import Network.PagerDuty.Internal.TH

93−import Network.PagerDuty.Internal.Types

84+import Control.Applicative hiding (empty)

85+import Control.Lens hiding ((.=))

86+import Data.Aeson

87+import Data.Default.Class

88+import Data.Monoid

89+import Data.Text (Text)

90+import Data.Time

91+import Network.HTTP.Types

92+import Network.PagerDuty.Internal.TH

93+import Network.PagerDuty.Internal.Types

9494

9595default (Path)

9696

@@ -315,7 +315,7 @@ createUser r n e = auth (createUserBasic n e) & query .~ [("requester_id", r)]

315315-- doesn't require a 'RequesterId'.

316316createUserBasic :: Text -- ^ 'cuName'

317317 -> Address -- ^ 'cuEmail'

318− -> Request CreateUser 'Basic User

318+ -> Request CreateUser Basic User

319319createUserBasic n e =

320320 mk CreateUser

321321 { _cuName' = n

src/Network/PagerDuty/REST/Users/ContactMethods.hs+10−10

@@ -1,11 +1,11 @@

1−{-# LANGUAGE ExtendedDefaultRules #-}

2−{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE TemplateHaskell #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE OverloadedStrings #-}

3+{-# LANGUAGE TemplateHaskell #-}

44

55{-# OPTIONS_GHC -fno-warn-type-defaults #-}

66

77-- Module : Network.PagerDuty.REST.Users.ContactMethods

99-- License : This Source Code Form is subject to the terms of

1010-- the Mozilla Public License, v. 2.0.

1111-- A copy of the MPL can be found in the LICENSE file or

@@ -56,12 +56,12 @@ module Network.PagerDuty.REST.Users.ContactMethods

5656 , Contact

5757 ) where

5858

59−import Control.Lens

60−import Data.Aeson.Lens

61−import Data.Text (Text)

62−import Network.HTTP.Types

63−import Network.PagerDuty.Internal.TH

64−import Network.PagerDuty.Internal.Types

59+import Control.Lens

60+import Data.Aeson.Lens

61+import Data.Text (Text)

62+import Network.HTTP.Types

63+import Network.PagerDuty.Internal.TH

64+import Network.PagerDuty.Internal.Types

6565

6666default (Path)

6767

src/Network/PagerDuty/REST/Users/NotificationRules.hs+10−10

@@ -1,11 +1,11 @@

1−{-# LANGUAGE ExtendedDefaultRules #-}

2−{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE TemplateHaskell #-}

1+{-# LANGUAGE ExtendedDefaultRules #-}

2+{-# LANGUAGE OverloadedStrings #-}

3+{-# LANGUAGE TemplateHaskell #-}

44

55{-# OPTIONS_GHC -fno-warn-type-defaults #-}

66

77-- Module : Network.PagerDuty.REST.Users.NotificationRules

99-- License : This Source Code Form is subject to the terms of

1010-- the Mozilla Public License, v. 2.0.

1111-- A copy of the MPL can be found in the LICENSE file or

@@ -51,12 +51,12 @@ module Network.PagerDuty.REST.Users.NotificationRules

5151 , rContactMethod

5252 ) where

5353

54−import Control.Lens

55−import Data.Aeson.Lens

56−import Network.HTTP.Types

57−import Network.PagerDuty.Internal.TH

58−import Network.PagerDuty.Internal.Types

59−import Network.PagerDuty.REST.Users.ContactMethods

54+import Control.Lens

55+import Data.Aeson.Lens

56+import Network.HTTP.Types

57+import Network.PagerDuty.REST.Users.ContactMethods

58+import Network.PagerDuty.Internal.TH

59+import Network.PagerDuty.Internal.Types

6060

6161default (Path)

6262

src/Network/PagerDuty/REST/Webhooks.hs+3−4

@@ -3,7 +3,7 @@

33{-# LANGUAGE TemplateHaskell #-}

44

55-- Module : Network.PagerDuty.REST.Webhooks

77-- License : This Source Code Form is subject to the terms of

88-- the Mozilla Public License, v. 2.0.

99-- A copy of the MPL can be found in the LICENSE file or

@@ -35,14 +35,13 @@ module Network.PagerDuty.REST.Webhooks

3535import Control.Applicative hiding (empty)

3636import Control.Lens

3737import Data.Aeson

38−import Data.ByteString.Conversion (ToByteString (..),

39− toByteString')

38+import Data.ByteString.Conversion (ToByteString(..), toByteString')

4039import Data.Text (Text)

4140import qualified Data.Text.Encoding as Text

4241import Data.Time

42+import Network.PagerDuty.REST.Incidents

4343import Network.PagerDuty.Internal.TH

4444import Network.PagerDuty.Internal.Types

45−import Network.PagerDuty.REST.Incidents

4645

4746data WebhookType

4847 = WTrigger

src/Network/PagerDuty/Types.hs+1−1

@@ -1,5 +1,5 @@

11-- Module : Network.PagerDuty.Types

33-- License : This Source Code Form is subject to the terms of

44-- the Mozilla Public License, v. 2.0.

55-- A copy of the MPL can be found in the LICENSE file or

stack.yamldeleted−7

@@ -1,7 +0,0 @@

1−resolver: lts-19.23

2−

3−packages:

4−- .

5−

6−nix:

7− packages: [zlib]