managed-functions-http-connector-1.0.0: src/Managed/Connectors/HTTPConnector.hs

module Managed.Connectors.HTTPConnector
  ( httpConnector
  , HTTPConnectorAPI
  , httpConnectorServer
  ) where

import Data.Managed (Agent, Connector(..))
import Data.Managed.Encodings.ShowRead
import Managed.Connectors.HTTPConnector.Internal
import qualified Network.Wai.Handler.Warp as Warp
import Servant (Server)

httpConnector :: Connector SR
httpConnector = Connector {run = Warp.run 3000 . mkApp}

type HTTPConnectorAPI = ManagedAPI

httpConnectorServer :: Agent SR -> Server ManagedAPI
httpConnectorServer = mkServer