The main module contains all the operations needed to create a channel and send or receive packages.

import SecureUDP

import qualified Network.Socket as So
import qualified System.IO as SI

main = do
    -- This is needed so lazyness doens't mess with inner thread communication.
    SI.hSetBuffering SI.stdout SI.NoBuffering
    -- Create the socket:
    sock <- So.socket So.AF_INET So.Datagram So.defaultProtocol
    -- Bind the socket to the address 0.0.0.0 so it can receive packages from everywhere.
    let port = 7272
    let address = So.tupleToHostAddress (0,0,0,0)
    So.bind sock (So.SockAddrInet port address)
    -- Create the configuration for a new channel,
    -- this values should be OK for most purposes:
    let chcfg = ChannelConfig {
            socket = sock,
            resendTimeout = 280000000000, -- 0.28 seconds.
            maxResends = 8,
            allowed = (_ -> return (True)), -- Allow any incomming address.
            maxPacketSize = 500,
            recvRetention = 10
        }
    -- Start the channel with the given configuration:
    channel <- startChannel chcfg

    -- ...

Then you can use the channel to send and receive messages from and to any address, using sendMessages and getReceived.

You can also use getLoss to check which messages that you sent weren't ACKed.

Make sure that you call getReceived and getLoss once in a while, even if you don't use them, so the messages won't accumulate in memory.