diff --git a/hoauth2.cabal b/hoauth2.cabal
--- a/hoauth2.cabal
+++ b/hoauth2.cabal
@@ -1,6 +1,6 @@
 Name:                hoauth2
 -- (http://www.haskell.org/haskellwiki/Package_versioning_policy)
-Version:             0.4.1
+Version:             0.4.2
 
 Synopsis:            hoauth2
 Description:
diff --git a/src/Network/OAuth/OAuth2/HttpClient.hs b/src/Network/OAuth/OAuth2/HttpClient.hs
--- a/src/Network/OAuth/OAuth2/HttpClient.hs
+++ b/src/Network/OAuth/OAuth2/HttpClient.hs
@@ -129,7 +129,7 @@
 --
 handleResponse :: Response BSL.ByteString -> OAuth2Result BSL.ByteString
 handleResponse rsp =
-    if HT.statusCode (responseStatus rsp) == 200
+    if HT.statusIsSuccessful (responseStatus rsp)
         then Right $ responseBody rsp
         else Left $ BSL.append "Gaining token failed: " (responseBody rsp)