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