{-# LANGUAGE OverloadedStrings #-}

module Database.Cayley.Client.Internal where

import           Control.Monad.Catch
import           Control.Monad.IO.Class
import           Control.Monad.Reader
import qualified Data.Aeson             as A
import qualified Data.Text              as T (pack)
import           Data.Vector            (fromList)
import           Network.HTTP.Client

import           Database.Cayley.Types

apiRequest :: Manager
           -> String
           -> Int
           -> RequestBody
           -> ReaderT CayleyConfig IO (Maybe A.Value)
apiRequest m u p b = do
  r <- parseRequest u >>= \c ->
         return c { method = "POST", port = p, requestBody = b }
  t <- liftIO $ try $ httpLbs r m
  case t of
    Right _r -> return $ A.decode $ responseBody _r
    Left  e ->
      return $
        Just $ A.object ["error" A..= T.pack (show (e :: SomeException))]

toRequestBody :: [Quad] -> RequestBody
toRequestBody = RequestBodyLBS . A.encode . fromList . map A.toJSON

getManager :: CayleyConnection -> Manager
getManager (CayleyConnection (_,m)) = m

getConfig :: CayleyConnection -> CayleyConfig
getConfig (CayleyConnection (c,_)) = c

urlBase :: String -> APIVersion -> String
urlBase s a = "http://" ++ s ++ "/api/v" ++ show a