yesod-fb 0.1.0.1 → 0.1.1
raw patch · 2 files changed
+12/−3 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Yesod.Facebook: fbUseBetaTier :: YesodFacebook master => master -> Bool
- Yesod.Facebook: class Yesod master => YesodFacebook master
+ Yesod.Facebook: class Yesod master => YesodFacebook master where fbUseBetaTier _ = False
Files
- src/Yesod/Facebook.hs +11/−2
- yesod-fb.cabal +1/−1
src/Yesod/Facebook.hs view
@@ -30,11 +30,16 @@ class Y.Yesod master => YesodFacebook master where -- | The credentials of your app. fbCredentials :: master -> FB.Credentials+ -- | HTTP manager used for contacting Facebook (may be the same -- as the one used for @yesod-auth@). fbHttpManager :: master -> HTTP.Manager + -- | Use Facebook's beta tier if @True@. The default is @False@.+ fbUseBetaTier :: master -> Bool+ fbUseBetaTier _ = False + -- | Returns Facebook's 'FB.Credentials' from inside a -- 'Y.GHandler'. Just a convenience wrapper around -- 'fbCredentials'.@@ -53,7 +58,9 @@ master <- Y.getYesod let creds = fbCredentials master manager = fbHttpManager master- FB.runFacebookT creds manager act+ (if fbUseBetaTier master+ then FB.runFacebookT+ else FB.beta_runFacebookT) creds manager act -- | Run a 'FacebookT' action inside a 'Y.GHandler' without using@@ -66,7 +73,9 @@ runNoAuthFacebookT act = do master <- Y.getYesod let manager = fbHttpManager master- FB.runNoAuthFacebookT manager act+ (if fbUseBetaTier master+ then FB.runNoAuthFacebookT+ else FB.beta_runNoAuthFacebookT) manager act ----------------------------------------------------------------------
yesod-fb.cabal view
@@ -1,5 +1,5 @@ Name: yesod-fb-Version: 0.1.0.1+Version: 0.1.1 Synopsis: Useful glue functions between the fb library and Yesod. Homepage: https://github.com/meteficha/yesod-fb License: BSD3