Types.hs

-- | Definition of types
module Database.ClickHouseDriver.HTTP.Types
  ( JSONResult (..),
    Cmd,
    Haxl,
    Format (..),
    HttpConnection (..),
    HttpParams (..),
  )
where

import Data.Aeson (Value)
import Data.ByteString (ByteString)
import Data.HashMap.Strict (HashMap)
import Data.Text (Text)
import Haxl.Core (GenHaxl)
import Network.HTTP.Client (Manager)

type JSONResult = Either ByteString [HashMap Text Value]

type Cmd = String

type Haxl a = GenHaxl () a

data Format = CSV | JSON | TUPLE
  deriving (Eq)

data HttpParams = HttpParams
  { httpHost :: !String,
    httpPort :: {-# UNPACK #-} !Int,
    httpUsername :: !String,
    httpPassword :: !String,
    httpDatabase :: Maybe String
  }

data HttpConnection = HttpConnection
  { -- | basic parameters
    httpParams :: !HttpParams,
    -- | http manager
    httpManager :: !Manager
  }