Network.IRC.Client.Internal

Most of the hairy code. This isn't all internal, due to messy dependencies, but I've tried to make this as "internal" as reasonably possible.

This module is NOT considered to form part of the public interface of this library.

Connecting to an IRC network

connectInternal

Arguments

:: MonadIO m

=> (IO () -> Consumer (Either ByteString IrcEvent) IO () -> Producer IO IrcMessage -> IO ())

Function to start the network conduits.

-> StatefulIRC s ()

Connect handler

-> StatefulIRC s ()

Disconnect handler

-> (Origin -> ByteString -> IO ())

Logging function

-> ByteString

Server hostname

-> Int

Server port

-> NominalDiffTime

Flood timeout

-> m (ConnectionConfig s)

Connect to a server using the supplied connection function.

Event loop

runner :: StatefulIRC s ()

The event loop.

forgetful :: Monad m => Conduit (Either a b) m b

Forget failed decodings.

eventSink :: MonadIO m => IRCState s -> Consumer IrcEvent m ()

Block on receiving a message and invoke all matching handlers concurrently.

isIgnored :: MonadIO m => IRCState s -> UnicodeEvent -> m Bool

Check if an event is ignored or not.

getHandlersFor :: Event a -> [EventHandler s] -> [UnicodeEvent -> StatefulIRC s ()]

Get the event handlers for an event.

logConduit :: MonadIO m => (a -> IO ()) -> Conduit a m a

A conduit which logs everything which goes through it.

stdoutLogger :: Origin -> ByteString -> IO ()

Print messages to stdout, with the current time.

fileLogger :: FilePath -> Origin -> ByteString -> IO ()

Append messages to a file, with the current time.

noopLogger :: a -> b -> IO ()

Do no logging.

Messaging

send :: UnicodeMessage -> StatefulIRC s ()

Send a message as UTF-8, using TLS if enabled. This blocks if messages are sent too rapidly.

sendBS :: IrcMessage -> StatefulIRC s ()

Send a message, using TLS if enabled. This blocks if messages are sent too rapidly.

Disconnecting

disconnect :: StatefulIRC s ()

Disconnect from the server, properly tearing down the TLS session (if there is one).

disconnectNow :: StatefulIRC s ()

Disconnect immediately, without waiting for messages to be sent.

timeout :: MonadIO m => NominalDiffTime -> IO Bool -> m ()

Block until an action is successful or a timeout is reached.