2018-03-11 13:03:27 +01:00
|
|
|
{-# LANGUAGE DeriveFunctor #-}
|
|
|
|
|
module Servant.Client.Core.Internal.ClientF where
|
|
|
|
|
|
2018-06-30 21:17:08 +02:00
|
|
|
import Servant.Client.Core.Internal.Request
|
2018-03-11 13:03:27 +01:00
|
|
|
|
|
|
|
|
data ClientF a
|
|
|
|
|
= RunRequest Request (Response -> a)
|
|
|
|
|
| StreamingRequest Request (StreamingResponse -> a)
|
|
|
|
|
| Throw ServantError
|
|
|
|
|
deriving (Functor)
|
