@@ -0,0 +1,77 @@
1+diff -ru orig/demo/clientside.hs new/demo/clientside.hs
2+--- orig/demo/clientside.hs 2014-03-30 12:27:40.941431437 +0300
3++++ new/demo/clientside.hs 2014-03-30 12:27:40.000000000 +0300
7+ instance Yesod Test where
8+- approot = ApprootStatic "http://dev.whonodes.org:3000"
9++ approot = FIXME -- FIXME: Put your approot here
11+ instance RenderMessage Test FormMessage where
12+ renderMessage _ _ = englishFormMessage
13+diff -ru orig/src/Yesod/Auth/Facebook/ClientSide.hs new/src/Yesod/Auth/Facebook/ClientSide.hs
14+--- orig/src/Yesod/Auth/Facebook/ClientSide.hs 2014-03-30 12:27:40.941431437 +0300
15++++ new/src/Yesod/Auth/Facebook/ClientSide.hs 2014-03-30 12:27:40.000000000 +0300
17+ AuthPlugin "fbcs" dispatch login
19+ dispatch :: YesodAuthFbClientSide site =>
20+- Text -> [Text] -> HandlerT Auth (HandlerT site IO) ()
21++ Text -> [Text] -> HandlerT Auth (HandlerT site IO) TypedContent
22+ -- Login route used when successfully logging in. Called via
23+ -- AJAX by JavaScript code on 'facebookJSSDK'.
24+ dispatch "GET" ["login"] = do
26+ when (redirectToReferer y) (lift setUltDestReferer)
27+ etoken <- lift getUserAccessTokenFromFbCookie
29+- Right token -> lift $ setCreds True (createCreds token)
30++ Right token -> lift $ setCredsRedirect (createCreds token)
33+ -- Login routes used to forcefully require the user to login.
37+ FB.getUserAccessTokenStep2 proceedUrl query'
38+- lift $ setCreds True (createCreds token)
39++ lift $ setCredsRedirect (createCreds token)
41+ -- Everything else gives 404
42+ dispatch _ _ = notFound
43+diff -ru orig/src/Yesod/Auth/Facebook/ServerSide.hs new/src/Yesod/Auth/Facebook/ServerSide.hs
44+--- orig/src/Yesod/Auth/Facebook/ServerSide.hs 2014-03-30 12:27:40.941431437 +0300
45++++ new/src/Yesod/Auth/Facebook/ServerSide.hs 2014-03-30 12:27:40.000000000 +0300
47+ proceedR = PluginR "fb" ["proceed"]
49+ dispatch :: (YesodAuth site, YF.YesodFacebook site) =>
50+- Text -> [Text] -> HandlerT Auth (HandlerT site IO) ()
51++ Text -> [Text] -> HandlerT Auth (HandlerT site IO) TypedContent
52+ -- Redirect the user to Facebook.
53+ dispatch "GET" ["login"] = do
57+ token <- YF.runYesodFbT $ FB.getUserAccessTokenStep2 proceedUrl query'
58+ setUserAccessToken token
59+- setCreds True (createCreds token)
60++ setCredsRedirect (createCreds token)
61+ -- Logout the user from our site and from Facebook.
62+ dispatch "GET" ["logout"] = do
64+diff -ru orig/yesod-auth-fb.cabal new/yesod-auth-fb.cabal
65+--- orig/yesod-auth-fb.cabal 2014-03-30 12:27:40.945431436 +0300
66++++ new/yesod-auth-fb.cabal 2014-03-30 12:27:40.000000000 +0300
68+ Build-depends: base >= 4.3 && < 5
69+ , lifted-base >= 0.1 && < 0.3
70+ , yesod-core == 1.2.*
71+- , yesod-auth == 1.2.*
72++ , yesod-auth == 1.3.*
75+ , shakespeare-js >= 1.0.2
77+ , http-conduit >= 1.9