authenticate 1.3.2.5 → 1.3.2.6
raw patch · 2 files changed
+8/−2 lines, 2 files
Files
- OpenId2/Discovery.hs +7/−1
- authenticate.cabal +1/−1
OpenId2/Discovery.hs view
@@ -76,7 +76,13 @@ 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.cabal view
@@ -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