module Facebook.FQL
( fqlQuery
, FQLTime(..)
) where
import Control.Monad.Trans.Control (MonadBaseControl)
import Data.Text (Text)
import Data.Time (UTCTime)
import Data.Time.Clock.POSIX (posixSecondsToUTCTime)
import qualified Data.Aeson as A
import qualified Data.Conduit as C
import Facebook.Types
import Facebook.Monad
import Facebook.Base
import Facebook.Graph
fqlQuery :: (C.MonadResource m, MonadBaseControl IO m, A.FromJSON a) =>
Text
-> Maybe (AccessToken anyKind)
-> FacebookT anyAuth m (Pager a)
fqlQuery fql mtoken =
runResourceInFb $ do
let query = ["q" #= fql]
asJson =<< fbhttp =<< fbreq "/fql" mtoken query
newtype FQLTime = FQLTime { unFQLTime :: UTCTime }
deriving (Eq, Ord, Show)
instance A.FromJSON FQLTime where
parseJSON = fmap ( FQLTime
. posixSecondsToUTCTime
. fromInteger)
. A.parseJSON