authenticate 0.6.6 → 0.6.6.1

raw patch · 2 files changed

+6/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• OpenId2/Discovery.hs +5/−3
• authenticate.cabal +1/−1

@@ -70,13 +70,15 @@     let uri = fromMaybe (identifier ident) mb_loc     req <- parseUrl uri     res <- httpLbs req-    let mloc = lookup "x-xrds-location"+    let mloc = fmap S8.unpack+             $ lookup "x-xrds-location"              $ map (first $ map toLower . S8.unpack)              $ responseHeaders res+    let mloc' = if mloc == mb_loc then Nothing else mloc     case statusCode res of         200 ->-          case mloc of-            Just loc -> discoverYADIS ident (Just $ S8.unpack loc)+          case mloc' of+            Just loc -> discoverYADIS ident (Just loc)             Nothing  -> do               let mdoc = parseXRDS $ BSLU.toString $ responseBody res               case mdoc of

@@ -1,5 +1,5 @@ name:            authenticate-version:         0.6.6+version:         0.6.6.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>