module Facebook.Object.User
( User(..)
, Gender(..)
, getUser
) where
import Control.Applicative
import Control.Monad (mzero)
import Control.Monad.Trans.Control (MonadBaseControl)
import Data.Aeson ((.:), (.:?))
import Data.Text (Text)
import Data.Typeable (Typeable)
import qualified Data.Aeson as A
import qualified Data.Conduit as C
import Facebook.Types
import Facebook.Monad
import Facebook.Graph
data User =
User { userId :: UserId
, userName :: Maybe Text
, userFirstName :: Maybe Text
, userMiddleName :: Maybe Text
, userLastName :: Maybe Text
, userGender :: Maybe Gender
, userLocale :: Maybe Text
, userUsername :: Maybe Text
, userVerified :: Maybe Bool
, userEmail :: Maybe Text
}
deriving (Eq, Ord, Show, Read, Typeable)
instance A.FromJSON User where
parseJSON (A.Object v) =
User <$> v .: "id"
<*> v .:? "name"
<*> v .:? "first_name"
<*> v .:? "middle_name"
<*> v .:? "last_name"
<*> v .:? "gender"
<*> v .:? "locale"
<*> v .:? "username"
<*> v .:? "verified"
<*> v .:? "email"
parseJSON _ = mzero
data Gender = Male | Female deriving (Eq, Ord, Show, Read, Enum, Typeable)
instance A.FromJSON Gender where
parseJSON (A.String "male") = return Male
parseJSON (A.String "female") = return Female
parseJSON _ = mzero
instance A.ToJSON Gender where
toJSON = A.toJSON . toText
where
toText :: Gender -> Text
toText Male = "male"
toText Female = "female"
getUser :: (C.MonadResource m, MonadBaseControl IO m) =>
UserId
-> [Argument]
-> Maybe UserAccessToken
-> FacebookT anyAuth m User
getUser id_ query mtoken = getObject ("/" <> id_) query mtoken