This commit is contained in:
Michael Snoyman 2012-08-15 17:48:40 +03:00
parent be48b67fbc
commit ee4f89f053
2 changed files with 7 additions and 3 deletions

View File

@ -1,5 +1,6 @@
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE CPP #-}
--------------------------------------------------------------------------------
-- |
@ -69,7 +70,10 @@ discoverYADIS :: (MonadResource m, MonadBaseControl IO m)
-> Int -- ^ remaining redirects
-> Manager
-> m (Maybe (Provider, Identifier, IdentType))
discoverYADIS _ _ 0 _ = liftIO $ throwIO TooManyRedirects
discoverYADIS _ _ 0 _ = liftIO $ throwIO $ TooManyRedirects
#if MIN_VERSION_http_conduit(1,6,0)
[]
#endif
discoverYADIS ident mb_loc redirects manager = do
let uri = fromMaybe (unpack $ identifier ident) mb_loc
req <- liftIO $ parseUrl uri

View File

@ -1,5 +1,5 @@
name: authenticate
version: 1.3.0.1
version: 1.3.1
license: BSD3
license-file: LICENSE
author: Michael Snoyman, Hiromi Ishii, Arash Rouhani
@ -18,7 +18,7 @@ homepage: http://github.com/yesodweb/authenticate
library
build-depends: base >= 4 && < 5
, aeson >= 0.5
, http-conduit >= 1.5 && < 1.6
, http-conduit >= 1.5 && < 1.7
, tagsoup >= 0.12 && < 0.13
, transformers >= 0.1 && < 0.4
, bytestring >= 0.9