haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

http-conduit 1.9

Browse Source
This commit is contained in:
Michael Snoyman 2013-02-21 10:54:45 +02:00
parent 9de803c7b5
commit f405cf2a88
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
authenticate/OpenId2/Discovery.hs
View File

@ -76,7 +76,13 @@ discoverYADIS _ _ 0 _ = liftIO $ throwIO $ TooManyRedirects
discoverYADIS ident mb_loc redirects manager = do discoverYADIS ident mb_loc redirects manager = do
let uri = fromMaybe (unpack $ identifier ident) mb_loc let uri = fromMaybe (unpack $ identifier ident) mb_loc
req <- liftIO $ parseUrl uri 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 let mloc = fmap S8.unpack
$ lookup "x-xrds-location" $ lookup "x-xrds-location"
$ map (first $ map toLower . S8.unpack . CI.original) $ map (first $ map toLower . S8.unpack . CI.original)

2
authenticate/authenticate.cabal
View File

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