authenticate 1.3.2.2 → 1.3.2.3

raw patch · 2 files changed

+6/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Web/Authenticate/BrowserId.hs +5/−2
• authenticate.cabal +1/−1

@@ -17,7 +17,7 @@  -- | Location of the Javascript file hosted by browserid.org browserIdJs :: Text-browserIdJs = "https://browserid.org/include.js"+browserIdJs = "https://login.persona.org/include.js"  checkAssertion :: (MonadResource m, MonadBaseControl IO m)                => Text -- ^ audience@@ -25,13 +25,16 @@                -> Manager                -> m (Maybe Text) checkAssertion audience assertion manager = do-    req' <- liftIO $ parseUrl "https://browserid.org/verify"+    liftIO $ putStrLn "In checkAssertion"+    liftIO $ print (audience, assertion)+    req' <- liftIO $ parseUrl "https://verifier.login.persona.org/verify"     let req = urlEncodedBody                 [ ("audience", encodeUtf8 audience)                 , ("assertion", encodeUtf8 assertion)                 ] req' { method = "POST" }     res <- httpLbs req manager     let lbs = responseBody res+    liftIO $ putStrLn $ "Response body: " ++ show lbs     return $ maybeResult (parse json lbs) >>= getEmail   where     getEmail (Object o) =

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