packages feed

yesod-auth-fb 1.6.1 → 1.6.2

raw patch · 3 files changed

+10/−9 lines, 3 filesdep +shakespearedep ~conduitdep ~fbdep ~yesod-auth

Dependencies added: shakespeare

Dependency ranges changed: conduit, fb, yesod-auth

Files

src/Yesod/Auth/Facebook/ClientSide.hs view
@@ -364,7 +364,7 @@     AuthPlugin "fbcs" dispatch login   where     dispatch :: YesodAuthFbClientSide site =>-                Text -> [Text] -> HandlerT Auth (HandlerT site IO) ()+                Text -> [Text] -> HandlerT Auth (HandlerT site IO) TypedContent     -- Login route used when successfully logging in.  Called via     -- AJAX by JavaScript code on 'facebookJSSDK'.     dispatch "GET" ["login"] = do@@ -372,7 +372,7 @@       when (redirectToReferer y) (lift setUltDestReferer)       etoken <- lift getUserAccessTokenFromFbCookie       case etoken of-        Right token -> lift $ setCreds True (createCreds token)+        Right token -> lift $ setCredsRedirect (createCreds token)         Left msg -> fail msg      -- Login routes used to forcefully require the user to login.@@ -406,7 +406,7 @@       token <- lift $                YF.runYesodFbT $                FB.getUserAccessTokenStep2 proceedUrl query'-      lift $ setCreds True (createCreds token)+      lift $ setCredsRedirect (createCreds token)      -- Everything else gives 404     dispatch _ _ = notFound
src/Yesod/Auth/Facebook/ServerSide.hs view
@@ -56,7 +56,7 @@     proceedR = PluginR "fb" ["proceed"]      dispatch :: (YesodAuth site, YF.YesodFacebook site) =>-                Text -> [Text] -> HandlerT Auth (HandlerT site IO) ()+                Text -> [Text] -> HandlerT Auth (HandlerT site IO) TypedContent     -- Redirect the user to Facebook.     dispatch "GET" ["login"] = do         ur <- getUrlRender@@ -73,7 +73,7 @@         lift $ do           token <- YF.runYesodFbT $ FB.getUserAccessTokenStep2 proceedUrl query'           setUserAccessToken token-          setCreds True (createCreds token)+          setCredsRedirect (createCreds token)     -- Logout the user from our site and from Facebook.     dispatch "GET" ["logout"] = do         y      <- lift getYesod
yesod-auth-fb.cabal view
@@ -1,5 +1,5 @@ Name:                yesod-auth-fb-Version:             1.6.1+Version:             1.6.2 Synopsis:            Authentication backend for Yesod using Facebook. Homepage:            https://github.com/meteficha/yesod-auth-fb License:             BSD3@@ -43,16 +43,17 @@   Build-depends:   base         >= 4.3     && < 5                  , lifted-base  >= 0.1     && < 0.3                  , yesod-core   == 1.2.*-                 , yesod-auth   == 1.2.*+                 , yesod-auth   == 1.3.*                  , hamlet+                 , shakespeare                  , shakespeare-js >= 1.0.2                  , wai                  , http-conduit >= 1.9                  , text         >= 0.7     && < 1.2                  , transformers >= 0.1.3   && < 0.4                  , yesod-fb     == 0.3.*-                 , fb           >= 0.14    && < 0.16-                 , conduit      == 1.0.*+                 , fb           >= 0.14    && < 1.1+                 , conduit      >= 1.0     && < 1.2                  , bytestring   >= 0.9     && < 0.11                  , aeson        >= 0.6                  , time         >= 1.0     && < 1.5