module Facebook.Object.Checkin
( Checkin(..)
, CheckinFrom(..)
, getCheckin
, createCheckin
) where
#if __GLASGOW_HASKELL__ <= 784
import Control.Applicative
#endif
import Control.Monad (mzero)
import Data.Aeson ((.:), (.:?))
import Data.Text (Text)
import Data.Time (UTCTime)
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
import Facebook.Pager
data Checkin = Checkin
{ checkinId :: Id
, checkinFrom :: Maybe CheckinFrom
, checkinPlace :: Maybe Place
, checkinCreatedTime :: Maybe UTCTime
, checkinTags :: Maybe (Pager Tag)
, checkinMessage :: Maybe Text
} deriving (Eq, Ord, Show, Read, Typeable)
instance A.FromJSON Checkin where
parseJSON (A.Object v) =
Checkin <$> v .: "id" <*> v .:? "from" <*> v .:? "place" <*>
((unFbUTCTime <$>) <$> v .:? "created_time") <*>
v .:? "tags" <*>
v .:? "message"
parseJSON _ = mzero
data CheckinFrom = CheckinFrom
{ checkinFromId :: UserId
, checkinFromName :: Text
} deriving (Eq, Ord, Show, Read, Typeable)
instance A.FromJSON CheckinFrom where
parseJSON (A.Object v) = CheckinFrom <$> v .: "id" <*> v .: "name"
parseJSON _ = mzero
getCheckin
:: (R.MonadResource m, R.MonadUnliftIO m, R.MonadThrow m)
=> Id
-> [Argument]
-> Maybe UserAccessToken
-> FacebookT anyAuth m Checkin
getCheckin id_ query mtoken = getObject ("/" <> idCode id_) query mtoken
createCheckin
:: (R.MonadResource m, R.MonadUnliftIO m, R.MonadThrow m)
=> Id
-> GeoCoordinates
-> [Argument]
-> UserAccessToken
-> FacebookT Auth m Id
createCheckin pid coords args usertoken = do
let body = ("place" #= pid) : ("coordinates" #= coords) : args
postObject "me/checkins" body usertoken