servant-client-core-0.15: src/Servant/Client/Core/Internal/ClientF.hs

{-# LANGUAGE DeriveFunctor #-}
module Servant.Client.Core.Internal.ClientF where

import           Servant.Client.Core.Internal.Request

data ClientF a
    = RunRequest Request (Response -> a)
    | StreamingRequest Request (StreamingResponse -> a)
    | Throw ServantError
  deriving (Functor)