@@ -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
4+@@ -27,7 +27,7 @@
5+
6+
7+ instance Yesod Test where
8+- approot = ApprootStatic "http://dev.whonodes.org:3000"
9++ approot = FIXME -- FIXME: Put your approot here
10+
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
16+@@ -364,7 +364,7 @@
17+ AuthPlugin "fbcs" dispatch login
18+ where
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
25+@@ -372,7 +372,7 @@
26+ when (redirectToReferer y) (lift setUltDestReferer)
27+ etoken <- lift getUserAccessTokenFromFbCookie
28+ case etoken of
29+- Right token -> lift $ setCreds True (createCreds token)
30++ Right token -> lift $ setCredsRedirect (createCreds token)
31+ Left msg -> fail msg
32+
33+ -- Login routes used to forcefully require the user to login.
34+@@ -406,7 +406,7 @@
35+ token <- lift $
36+ YF.runYesodFbT $
37+ FB.getUserAccessTokenStep2 proceedUrl query'
38+- lift $ setCreds True (createCreds token)
39++ lift $ setCredsRedirect (createCreds token)
40+
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
46+@@ -56,7 +56,7 @@
47+ proceedR = PluginR "fb" ["proceed"]
48+
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
54+ ur <- getUrlRender
55+@@ -73,7 +73,7 @@
56+ lift $ 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
63+ y <- lift getYesod
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
67+@@ -43,8 +43,9 @@
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.*
73+ , hamlet
74++ , shakespeare
75+ , shakespeare-js >= 1.0.2
76+ , wai
77+ , http-conduit >= 1.9