caa943e · typeable/pagerduty

git.iko.soy/typeable/pagerduty

Updating to generics-sop-0.2.0.0

commitcaa943e8626b4bb0306317aad562091830119a44 authorBrendan Hay <brendan.g.hay@gmail.com> dateSun 25 Oct 2015, 17:22 (11 years ago) parente07f160

4 files changed+8−5

compare with develop

unifiedsplit

pagerduty.cabal+1−1 src/Network/PagerDuty/Internal/Query.hs+3−2 stack-7.10.2.yaml+2−1 stack-7.8.4.yaml+2−1

pagerduty.cabal+1−1

@@ -79,7 +79,7 @@ library

7979 , conduit > 1.1

8080 , data-default-class >= 0.0.1

8181 , exceptions >= 0.6

82− , generics-sop >= 0.1.0.2

82+ , generics-sop >= 0.2.0.0

8383 , http-client >= 0.4.3

8484 , http-types >= 0.8

8585 , lens >= 4.4

src/Network/PagerDuty/Internal/Query.hs+3−2

@@ -62,11 +62,12 @@ gqueryWith o a = case datatypeInfo (Proxy :: Proxy a) of

6262 ADT _ _ cs -> go cs (from a)

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

6464 where

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

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

6666 => NP ConstructorInfo xss

6767 -> SOP I xss

6868 -> Query

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

69+ go cs (SOP sop) =

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

7071

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

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

stack-7.10.2.yaml+2−1

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

11resolver: nightly-2015-10-24

22flags: {}

3−extra-deps: []

3+extra-deps:

4+ - generics-sop-0.2.0.0

45packages:

56 - '.'

stack-7.8.4.yaml+2−1