fb 0.9.6 → 0.9.7

raw patch · 2 files changed

+5/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• fb.cabal +1/−1
• src/Facebook/Auth.hs +4/−2

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

@@ -266,7 +266,7 @@ extendUserAccessToken :: (MonadBaseControl IO m, C.MonadResource m) =>                          UserAccessToken                       -> FacebookT Auth m (Either FacebookException UserAccessToken)-extendUserAccessToken token@(UserAccessToken _ data_ _)+extendUserAccessToken token@(UserAccessToken uid data_ _)     = do expired <- hasExpired token          if expired then return (Left hasExpiredExc) else tryToExtend     where@@ -279,7 +279,9 @@         case eresponse of           Right response -> do             now <- liftIO getCurrentTime-            return (Right $ userAccessTokenParser now response)+            return (Right $ case userAccessTokenParser now response of+                              UserAccessToken _ data' expires' ->+                                UserAccessToken uid data' expires')           Left exc -> return (Left exc)        hasExpiredExc =