From f405cf2a8804cacc29875d5f864513c7741f302d Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 21 Feb 2013 10:54:45 +0200 Subject: [PATCH] http-conduit 1.9 --- authenticate/OpenId2/Discovery.hs | 8 +++++++- authenticate/authenticate.cabal | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/authenticate/OpenId2/Discovery.hs b/authenticate/OpenId2/Discovery.hs index c0bfb1a1..8cdd66fb 100644 --- a/authenticate/OpenId2/Discovery.hs +++ b/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) diff --git a/authenticate/authenticate.cabal b/authenticate/authenticate.cabal index 21b16438..d96fbeba 100644 --- a/authenticate/authenticate.cabal +++ b/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