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

http-enumerator 0.3

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-26 05:44:37 +02:00
parent 6615274cc8
commit 800283dcc6
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
OpenId2/Discovery.hs
View File

@ -32,6 +32,7 @@ import Control.Arrow (first, (***))
import Control.Monad.IO.Class (MonadIO) import Control.Monad.IO.Class (MonadIO)
import Control.Failure (Failure (failure)) import Control.Failure (Failure (failure))
import Control.Monad (mplus, liftM) import Control.Monad (mplus, liftM)
import Network.Wai (ciOriginal)
data Discovery = Discovery1 String (Maybe String) data Discovery = Discovery1 String (Maybe String)
| Discovery2 Provider Identifier | Discovery2 Provider Identifier
@ -72,7 +73,7 @@ discoverYADIS ident mb_loc redirects = do
res <- httpLbs req res <- httpLbs req
let mloc = fmap S8.unpack let mloc = fmap S8.unpack
$ lookup "x-xrds-location" $ lookup "x-xrds-location"
$ map (first $ map toLower . S8.unpack) $ map (first $ map toLower . S8.unpack . ciOriginal)
$ responseHeaders res $ responseHeaders res
let mloc' = if mloc == mb_loc then Nothing else mloc let mloc' = if mloc == mb_loc then Nothing else mloc
case statusCode res of case statusCode res of

7
authenticate.cabal
View File

@ -1,5 +1,5 @@
name: authenticate name: authenticate
version: 0.7.3 version: 0.8.0
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>
@ -17,14 +17,15 @@ library
build-depends: base >= 4 && < 5, build-depends: base >= 4 && < 5,
data-object >= 0.3.1 && < 0.4, data-object >= 0.3.1 && < 0.4,
data-object-json >= 0.3.1 && < 0.4, data-object-json >= 0.3.1 && < 0.4,
http-enumerator >= 0.2.0 && < 0.3, http-enumerator >= 0.3.0 && < 0.4,
tagsoup >= 0.6 && < 0.13, tagsoup >= 0.6 && < 0.13,
failure >= 0.0.0 && < 0.2, failure >= 0.0.0 && < 0.2,
transformers >= 0.1 && < 0.3, transformers >= 0.1 && < 0.3,
bytestring >= 0.9 && < 0.10, bytestring >= 0.9 && < 0.10,
utf8-string >= 0.3 && < 0.4, utf8-string >= 0.3 && < 0.4,
network >= 2.2.1 && < 2.4, network >= 2.2.1 && < 2.4,
xml >= 1.3.7 && < 1.4 xml >= 1.3.7 && < 1.4,
wai >= 0.3 && < 0.4
exposed-modules: Web.Authenticate.Rpxnow, exposed-modules: Web.Authenticate.Rpxnow,
Web.Authenticate.OpenId, Web.Authenticate.OpenId,
Web.Authenticate.OpenId.Providers, Web.Authenticate.OpenId.Providers,