fb 0.14.7 → 0.14.7.1

raw patch · 2 files changed

+8/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• fb.cabal +1/−1
• tests/Main.hs +7/−6

@@ -1,5 +1,5 @@ name:              fb-version:           0.14.7+version:           0.14.7.1 license:           BSD3 license-file:      LICENSE author:            Felipe Lessa

@@ -159,14 +159,15 @@             Just t  -> compare t now &?= LT           isJust (FB.dtScopes ret) &?= True           FB.dtUserId ret &?= Just (FB.tuId testUser)-{-           case FB.dtAccessToken ret of             Nothing -> fail "dtAccessToken is Nothing"-            Just (FB.UserAccessToken uid dt exps) -> do-              uid &?= FB.tuId testUser-              dt  &?= testUserAccessTokenData-              Just exps &?= FB.dtExpiresAt ret--}+            Just t -> do+              let f :: FB.UserAccessToken -> FB.FacebookT FB.Auth (C.ResourceT IO) ()+                  f (FB.UserAccessToken uid dt exps) = do+                    uid &?= FB.tuId testUser+                    dt  &?= testUserAccessTokenData+                    Just exps &?= FB.dtExpiresAt ret+              f t    describe' "getObject" $ do     it "is able to fetch Facebook's own page" $