authenticate 0.9.2 → 0.9.2.1

raw patch · 2 files changed

+7/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Web/Authenticate/BrowserId.hs +6/−7
• authenticate.cabal +1/−1

@@ -5,11 +5,12 @@     ) where  import Data.Text (Text)-import Network.HTTP.Enumerator (parseUrl, responseBody, httpLbs, queryString, withManager)+import Network.HTTP.Enumerator (parseUrl, responseBody, httpLbs, withManager, method, urlEncodedBody) import Network.HTTP.Types (queryTextToQuery) import Data.Aeson (json, Value (Object, String)) import Data.Attoparsec.Lazy (parse, maybeResult) import qualified Data.Map as Map+import Data.Text.Encoding (encodeUtf8)  -- | Location of the Javascript file hosted by browserid.org browserIdJs :: Text@@ -20,12 +21,10 @@                -> IO (Maybe Text) checkAssertion audience assertion = do     req' <- parseUrl "https://browserid.org/verify"-    let req = req'-                { queryString = queryTextToQuery-                    [ ("audience", Just audience)-                    , ("assertion", Just assertion)-                    ]-                }+    let req = urlEncodedBody+                [ ("audience", encodeUtf8 audience)+                , ("assertion", encodeUtf8 assertion)+                ] req' { method = "POST" }     res <- withManager $ httpLbs req     let lbs = responseBody res     return $ maybeResult (parse json lbs) >>= getEmail

@@ -1,5 +1,5 @@ name:            authenticate-version:         0.9.2+version:         0.9.2.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman, Hiromi Ishii