pagerduty 0.0.3.3 → 0.0.4

raw patch · 3 files changed

+6/−5 lines, 3 filesdep ~generics-sop

Dependency ranges changed: generics-sop

Files

pagerduty.cabal +2/−2
src/Control/Monad/Trans/PagerDuty.hs +1/−1
src/Network/PagerDuty/Internal/Query.hs +3/−2

pagerduty.cabal view

@@ -1,5 +1,5 @@ name:                  pagerduty-version:               0.0.3.3+version:               0.0.4 synopsis:              Client library for PagerDuty Integration and REST APIs. homepage:              http://github.com/brendanhay/pagerduty license:               OtherLicense@@ -79,7 +79,7 @@       , conduit               >  1.1       , data-default-class    >= 0.0.1       , exceptions            >= 0.6-      , generics-sop          >= 0.1.0.2+      , generics-sop          >= 0.2.0.0       , http-client           >= 0.4.3       , http-types            >= 0.8       , lens                  >= 4.4

src/Control/Monad/Trans/PagerDuty.hs view

@@ -44,7 +44,7 @@ import           Control.Applicative import           Control.Monad.Base import           Control.Monad.Catch-import           Control.Monad.Error              (MonadError (..))+import           Control.Monad.Except             (MonadError (..)) import           Control.Monad.Morph import           Control.Monad.Reader import           Control.Monad.Trans.Control

src/Network/PagerDuty/Internal/Query.hs view

@@ -62,11 +62,12 @@     ADT     _ _ cs -> go cs         (from a)     Newtype _ _ c  -> go (c :* Nil) (from a)   where-    go :: (All2 QueryValues xss, SingI xss)+    go :: (All2 QueryValues xss, SListI xss)        => NP ConstructorInfo xss        -> SOP I xss        -> Query-    go cs (SOP sop) = group . unI . hcollapse $ hcliftA2' p (gctor o) cs sop+    go cs (SOP sop) =+        group . hcollapse $ hcliftA2' p (gctor o) cs sop      group :: [(ByteString, ByteString)] -> Query     group = concatMap f . groupBy ((==) `on` fst)