diff --git a/pusher-http-haskell.cabal b/pusher-http-haskell.cabal
--- a/pusher-http-haskell.cabal
+++ b/pusher-http-haskell.cabal
@@ -1,6 +1,6 @@
 cabal-version: 1.18
 name:          pusher-http-haskell
-version:       2.1.0.10
+version:       2.1.0.11
 license:       MIT
 license-file:  LICENSE
 copyright:     (c) Will Sewell, 2016
@@ -40,7 +40,7 @@
     ghc-options:        -Wcompat -Wmissing-signatures -Wall
     build-depends:
         aeson >=1.0 && <2.2,
-        base >=4.11 && <4.17,
+        base >=4.11 && <4.18,
         bytestring >=0.10 && <0.12,
         base16-bytestring >=0.1 && <1.1,
         cryptonite >=0.6 && <0.31,
diff --git a/src/Network/Pusher/Internal/HTTP.hs b/src/Network/Pusher/Internal/HTTP.hs
--- a/src/Network/Pusher/Internal/HTTP.hs
+++ b/src/Network/Pusher/Internal/HTTP.hs
@@ -84,7 +84,7 @@
 post connManager (RequestParams secure host port path query) body = do
   let req = mkPost (A.encode body) (mkRequest secure host port path query)
   eitherBody <- doRequest connManager req
-  return $ either Left (const $ Right ()) eitherBody
+  return $ const (Right ()) =<< eitherBody
 
 mkRequest ::
   Bool ->