Control.CUtils.NetChan

A channel module with transparent network communication.

Documentation

data NetSend t

Instances

Eq (NetSend t)

Binary (NetSend t)

data NetRecv t

Instances

Eq (NetRecv t)

Binary (NetRecv t)

localHost :: IO [Char]

newNetChan :: Binary t => IO (NetRecv t, NetSend t)

Creates a new channel, with receive and send ends.

newNetSend :: HostName -> IO (NetSend t)

Open a channel to another host

newNetRecv :: Binary t => IO (NetRecv t)

Creates a receive end of this host's channel. Type unsafe!

send :: Binary t => NetSend t -> t -> IO ()

Sends something on a channel.

receive :: NetRecv t -> IO ByteString

recv :: Binary t => NetRecv t -> IO t

Receives something from a channel.

recvSend :: NetRecv (NetSend t) -> IO (NetSend t)

Receives the send end of a channel, on a channel.

sendRecv :: NetSend (NetRecv t) -> NetRecv t -> IO ()

Sends the receive end of a channel, on a channel.

recvRecv :: Binary t => NetRecv (NetRecv t) -> IO (NetRecv t)

Receives the receive end of a channel, on a channel.

activateSend :: NetSend t -> IO (NetSend t)

activateRecv :: Binary t => NetRecv t -> IO (NetRecv t)

data Auth t

Instances

Binary (Auth t)

authServer :: Binary t => (t -> IO ()) -> NetRecv (Auth t) -> NetSend ByteString -> PublicKey -> IO ()

Remote exercise of authority. Commands are transmitted in the clear, but authenticated.

auth - The authority to be served (runs on a separate thread).

r - The receive end from the host.

s - The send end to the host.

publicKey - The public key of the intended recipient.

authClient :: Binary t => NetRecv ByteString -> NetSend (Auth t) -> PrivateKey -> IO (t -> IO ())

privateKey - The private key for this host.

Returns a function that can be used to send messages.

example :: IO ()