http-conduit 1.9

authenticate/OpenId2/Discovery.hs

@@ -76,7 +76,13 @@ discoverYADIS _ _ 0 _ = liftIO $ throwIO $ TooManyRedirects
 discoverYADIS ident mb_loc redirects manager = do
     let uri = fromMaybe (unpack $ identifier ident) mb_loc
     req <- liftIO $ parseUrl uri
-    res <- httpLbs req { checkStatus = \_ _ -> Nothing } manager
+    res <- httpLbs req
+#if MIN_VERSION_http_conduit(1, 9, 0)
+        { checkStatus = \_ _ _ -> Nothing
+#else
+        { checkStatus = \_ _ -> Nothing
+#endif
+        } manager
     let mloc = fmap S8.unpack
              $ lookup "x-xrds-location"
              $ map (first $ map toLower . S8.unpack . CI.original)

authenticate/authenticate.cabal

@@ -1,5 +1,5 @@
 name:            authenticate
-version:         1.3.2.5
+version:         1.3.2.6
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman, Hiromi Ishii, Arash Rouhani