fb 0.12.2 → 0.12.3

raw patch · 3 files changed

+15/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Facebook: getUserCheckins :: (MonadResource m, MonadBaseControl IO m) => UserId -> [Argument] -> UserAccessToken -> FacebookT anyAuth m (Pager Checkin)

Files

fb.cabal +1/−1
src/Facebook.hs +1/−0
src/Facebook/Object/User.hs +13/−0

fb.cabal view

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

src/Facebook.hs view

@@ -40,6 +40,7 @@     , Gender(..)     , getUser     , searchUsers+    , getUserCheckins       -- ** Page     , Page(..)     , getPage

src/Facebook/Object/User.hs view

@@ -4,6 +4,7 @@     , Gender(..)     , getUser     , searchUsers+    , getUserCheckins     ) where  import Control.Applicative@@ -23,6 +24,7 @@ import Facebook.Types import Facebook.Monad import Facebook.Graph+import Facebook.Object.Checkin   -- | A Facebook user profile (see@@ -98,3 +100,14 @@             -> Maybe UserAccessToken             -> FacebookT anyAuth m (Pager User) searchUsers = searchObjects "user"+++-- | Get a list of check-ins made by a given user.+getUserCheckins ::+     (C.MonadResource m, MonadBaseControl IO m) =>+     UserId          -- ^ User ID or @\"me\"@.+  -> [Argument]      -- ^ Arguments to be passed to Facebook.+  -> UserAccessToken -- ^ User access token.+  -> FacebookT anyAuth m (Pager Checkin)+getUserCheckins id_ query token =+  getObject ("/" <> id_ <> "/checkins") query (Just token)