diff --git a/pagerduty.cabal b/pagerduty.cabal
--- a/pagerduty.cabal
+++ b/pagerduty.cabal
@@ -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
diff --git a/src/Control/Monad/Trans/PagerDuty.hs b/src/Control/Monad/Trans/PagerDuty.hs
--- a/src/Control/Monad/Trans/PagerDuty.hs
+++ b/src/Control/Monad/Trans/PagerDuty.hs
@@ -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
diff --git a/src/Network/PagerDuty/Internal/Query.hs b/src/Network/PagerDuty/Internal/Query.hs
--- a/src/Network/PagerDuty/Internal/Query.hs
+++ b/src/Network/PagerDuty/Internal/Query.hs
@@ -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)