module Ghci.Server(
start
, startConfig
, sendText
, sendHtml
, sendPlot
, Config
, Verbosity(..)
, defaultConfig
, cfHTTPPort
, cfVerbosity
, cfWSPort
) where
import Ghci.Server.Config (Config, Verbosity (..),
cfHTTPPort, cfVerbosity,
cfWSPort, defaultConfig)
import qualified Ghci.Server.Http.Internal as HTTP
import qualified Ghci.Server.Websockets.Internal as WS
import Ghci.Server.Websockets.Message (sendHtml, sendPlot,
sendText)
startConfig :: Config -> IO ()
startConfig = (<>) <$> HTTP.startConfig <*> WS.startConfig
start :: IO ()
start = startConfig defaultConfig