2017-09-06 23:13:05 +02:00
|
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
{-| Types for possible backends to run client-side `Request` queries -}
|
2017-09-07 19:05:12 +02:00
|
|
|
module Servant.Client.Core.Internal.Class where
|
2017-09-06 23:13:05 +02:00
|
|
|
|
|
|
|
import Data.Proxy
|
|
|
|
import Network.HTTP.Types
|
2017-09-07 19:05:12 +02:00
|
|
|
import Servant.Client.Core.Internal.Request (Request, Response)
|
2017-09-06 23:13:05 +02:00
|
|
|
|
|
|
|
class (Monad m) => RunClient m ct where
|
|
|
|
runRequest :: Proxy ct
|
|
|
|
-> Method
|
|
|
|
-> Request
|
|
|
|
-> m Response
|