packages feed

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 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