add: user picture

Author: jagajaga

src/Facebook.hs

@@ -40,6 +40,7 @@ module Facebook
     , User(..)
     , UserId
     , Gender(..)
+    , Picture(..)
     , getUser
     , searchUsers
     , getUserCheckins

src/Facebook/Object/User.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, FlexibleContexts, OverloadedStrings #-}
 module Facebook.Object.User
-    ( User(..)
+    ( Picture(..)
+    , User(..)
     , Gender(..)
     , getUser
     , searchUsers
@@ -19,7 +20,6 @@ import Data.Typeable (Typeable)
 import qualified Control.Monad.Trans.Resource as R
 import qualified Data.Aeson as A
 
-
 import Facebook.Types
 import Facebook.Monad
 import Facebook.Graph
@@ -33,6 +33,14 @@ import Facebook.Object.Checkin
 -- /NOTE:/ We still don't support all fields supported by
 -- Facebook. Please fill an issue if you need access to any other
 -- fields.
+data Picture =
+    Picture { pictureHeight        :: Maybe Int
+            , pictureIs_silhouette :: Bool
+            , pictureUrl           :: Text
+            , pictureWidth         :: Maybe Int
+            }
+    deriving (Eq, Ord, Show, Read, Typeable)
+
 data User =
     User { userId         :: UserId
          , userName       :: Maybe Text
@@ -42,14 +50,24 @@ data User =
          , userGender     :: Maybe Gender
          , userLocale     :: Maybe Text
          , userUsername   :: Maybe Text
+         , userPicture    :: Maybe Picture
          , userVerified   :: Maybe Bool
          , userEmail      :: Maybe Text
          , userLocation   :: Maybe Place
          }
     deriving (Eq, Ord, Show, Read, Typeable)
 
+instance A.FromJSON Picture where
+    parseJSON (A.Object o) = do
+      v <- o .: "data"
+      Picture <$> v .:? "height"
+              <*> v .:  "is_silhouette"
+              <*> v .:  "url"
+              <*> v .:? "width"
+    parseJSON _ = mzero
+
 instance A.FromJSON User where
-    parseJSON (A.Object v) =
+    parseJSON (A.Object v) = do
       User <$> v .:  "id"
            <*> v .:? "name"
            <*> v .:? "first_name"
@@ -58,6 +76,7 @@ instance A.FromJSON User where
            <*> v .:? "gender"
            <*> v .:? "locale"
            <*> v .:? "username"
+           <*> v .:? "picture"
            <*> v .:? "verified"
            <*> v .:? "email"
            <*> v .:? "location"