HsDev.Server.Commands

Documentation

data ServerCommand

Server control command

Constructors

Version

Start ServerOpts

Run ServerOpts

Stop ClientOpts

Connect ClientOpts

Remote ClientOpts Bool Command

Instances

Show ServerCommand

FromCmd ServerCommand

data ServerOpts

Server options

Constructors

ServerOpts

Fields

serverPort :: Int

serverTimeout :: Int

serverLog :: Maybe FilePath

serverLogConfig :: String

serverCache :: Maybe FilePath

serverLoad :: Bool

Instances

Show ServerOpts

Default ServerOpts

FromCmd ServerOpts

data ClientOpts

Client options

Constructors

ClientOpts

Fields

clientPort :: Int

clientPretty :: Bool

clientStdin :: Bool

clientTimeout :: Int

clientSilent :: Bool

Instances

Show ClientOpts

Default ClientOpts

FromCmd ClientOpts

data Request

Constructors

Request

Fields

requestCommand :: Command

requestDirectory :: FilePath

requestNoFile :: Bool

requestTimeout :: Int

requestSilent :: Bool

Instances

Show Request

ToJSON Request

FromJSON Request

type Msg a = (Bool, a)

isLisp :: Lens' (Msg a) Bool

msg :: Lens (Msg a) (Msg b) a b

jsonMsg :: a -> Msg a

lispMsg :: a -> Msg a

encodeMessage :: ToJSON a => Msg (Message a) -> ByteString

decodeMessage :: FromJSON a => ByteString -> Either (Msg String) (Msg (Message a))

Decode lisp or json request

sendCommand :: ClientOpts -> Bool -> Command -> (Notification -> IO a) -> IO Result

runServerCommand :: ServerCommand -> IO ()

findPath :: MonadIO m => CommandOptions -> FilePath -> m FilePath

processRequest :: SessionMonad m => CommandOptions -> Command -> m Result

Process request, notifications can be sent during processing

processClient :: SessionMonad m => String -> Chan ByteString -> (ByteString -> IO ()) -> m ()

Process client, listen for requests and process them

processClientSocket :: SessionMonad m => Socket -> m ()

Process client by socket

module HsDev.Server.Types