Graph.hs

module Facebook.Graph
    ( getObject
    , postObject
    ) where


-- import Control.Applicative
-- import Control.Monad (mzero)
-- import Data.ByteString.Char8 (ByteString)
-- import Data.Text (Text)
-- import Data.Typeable (Typeable, Typeable1)
import Network.HTTP.Types (Ascii)

-- import qualified Control.Exception.Lifted as E
import qualified Data.Aeson as A
import qualified Data.Conduit as C
-- import qualified Data.Text as T
import qualified Network.HTTP.Conduit as H
import qualified Network.HTTP.Types as HT


import Facebook.Types
import Facebook.Monad
import Facebook.Base


-- | Make a raw @GET@ request to Facebook's Graph API.  Returns a
-- raw JSON 'A.Value'.
getObject :: C.ResourceIO m =>
             Ascii          -- ^ Path (should begin with a slash @\/@)
          -> HT.SimpleQuery -- ^ Arguments to be passed to Facebook
          -> Maybe (AccessToken kind) -- ^ Optional access token
          -> FacebookT anyAuth m A.Value
getObject path query mtoken =
  runResourceInFb $
    asJson' =<< fbhttp (fbreq path mtoken query)


-- | Make a raw @POST@ request to Facebook's Graph API.  Returns
-- a raw JSON 'A.Value'.
postObject :: C.ResourceIO m =>
              Ascii            -- ^ Path (should begin with a slash @\/@)
           -> HT.SimpleQuery   -- ^ Arguments to be passed to Facebook
           -> AccessToken kind -- ^ Access token
           -> FacebookT Auth m A.Value
postObject path query token =
  runResourceInFb $
    asJson' =<< fbhttp (fbreq path (Just token) query) { H.method = HT.methodPost }