module Facebook.Graph
( getObject
, postObject
) where
import Network.HTTP.Types (Ascii)
import qualified Data.Aeson as A
import qualified Data.Conduit as C
import qualified Network.HTTP.Conduit as H
import qualified Network.HTTP.Types as HT
import Facebook.Types
import Facebook.Monad
import Facebook.Base
getObject :: C.ResourceIO m =>
Ascii
-> HT.SimpleQuery
-> Maybe (AccessToken kind)
-> FacebookT anyAuth m A.Value
getObject path query mtoken =
runResourceInFb $
asJson' =<< fbhttp (fbreq path mtoken query)
postObject :: C.ResourceIO m =>
Ascii
-> HT.SimpleQuery
-> AccessToken kind
-> FacebookT Auth m A.Value
postObject path query token =
runResourceInFb $
asJson' =<< fbhttp (fbreq path (Just token) query) { H.method = HT.methodPost }