fb 0.8 → 0.9

raw patch · 3 files changed

+19/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Facebook: UserLocation :: Id -> Text -> UserLocation

+ Facebook: data UserLocation

+ Facebook: userLocation :: User -> Maybe UserLocation

+ Facebook: userLocationId :: UserLocation -> Id

+ Facebook: userLocationName :: UserLocation -> Text

- Facebook: User :: UserId -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Gender -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> User

+ Facebook: User :: UserId -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Gender -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe UserLocation -> User

Files

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

fb.cabal view

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

src/Facebook.hs view

@@ -35,6 +35,7 @@     , User(..)     , UserId     , Gender(..)+    , UserLocation(..)     , getUser        -- * Facebook's Open Graph API

src/Facebook/Object/User.hs view

@@ -2,6 +2,7 @@ module Facebook.Object.User     ( User(..)     , Gender(..)+    , UserLocation(..)     , getUser     ) where @@ -41,6 +42,7 @@          , userUsername   :: Maybe Text          , userVerified   :: Maybe Bool          , userEmail      :: Maybe Text+         , userLocation   :: Maybe UserLocation          }     deriving (Eq, Ord, Show, Read, Typeable) @@ -56,6 +58,7 @@            <*> v .:? "username"            <*> v .:? "verified"            <*> v .:? "email"+           <*> v .:? "location"     parseJSON _ = mzero  @@ -73,6 +76,20 @@           toText :: Gender -> Text           toText Male   = "male"           toText Female = "female"+++-- | An user's location.+data UserLocation =+    UserLocation { userLocationId   :: Id+                 , userLocationName :: Text+                 }+    deriving (Eq, Ord, Show, Read, Typeable)++instance A.FromJSON UserLocation where+    parseJSON (A.Object v) =+      UserLocation <$> v .: "id"+                   <*> v .: "name"+    parseJSON _ = mzero   -- | Get an user using his user ID.  The user access token is