debug servant-client requests

newrelic.hs

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE StandaloneDeriving #-}

module Realm.Newrelic where

import Control.Monad.Trans.Either

import Data.Proxy
import Data.Text (Text)
import Servant.API
import Servant.Client
import Servant.Common.Req

type DeploymentParams = [(Text, Text)]

type Deployments = "deployments.xml"
                   :> ReqBody '[FormUrlEncoded] DeploymentParams
                   :> Post '[PlainText] Text
                   :> Debug
                   
data Debug

deriving instance Show Req

instance HasClient (Post a b :> Debug) where
  type Client (Post a b :> Debug) = Req
  clientWithRoute Proxy req baseurl = req

api :: Proxy Deployments
api = Proxy

postDeployment :: Req
postDeployment = client api (BaseUrl Https "api.newrelic.com" 443) [("app_name", "meh")]