periodic-client-1.1.7.1: src/Periodic/ClientPool.hs

module Periodic.ClientPool
  ( module Periodic.Client
  , ClientPoolEnv
  , runClientPoolM
  , openPool
  ) where

import           Metro.TP.Socket           (Socket, socket)
import           Periodic.Client           hiding (close)
import           Periodic.Trans.ClientPool (runClientPoolT)
import qualified Periodic.Trans.ClientPool as P (ClientPoolEnv, openPool)

type ClientPoolEnv = P.ClientPoolEnv Socket

runClientPoolM :: ClientPoolEnv -> ClientM a -> IO a
runClientPoolM = runClientPoolT

openPool :: String -> Int -> IO ClientPoolEnv
openPool h = P.openPool (socket h)