Network.XMPiPe.Core.C2S.Server

Types and Values

data Mpi

Constructors

Message Tags [XmlNode]

Presence Tags [XmlNode]

Iq Tags [XmlNode]

End

MpiRaw XmlNode

Instances

Eq Mpi

Show Mpi

type Feature = XmlNode

data Jid

Constructors

Jid ByteString ByteString (Maybe ByteString)

Instances

Eq Jid

Show Jid

data Tags

Constructors

Tags

Fields

tagId :: Maybe ByteString

tagType :: Maybe ByteString

tagFrom :: Maybe Jid

tagTo :: Maybe Jid

tagLang :: Maybe ByteString

tagOthers :: [(QName, ByteString)]

Instances

Eq Tags

Show Tags

tagsType :: ByteString -> Tags

class SaslState xs => XmppState xs where

Methods

getXmppState :: xs -> (Jid, [ByteString])

putXmppState :: (Jid, [ByteString]) -> xs -> xs

data Retrieve m

Constructors

RTPlain (ByteString -> ByteString -> ByteString -> m ())

RTExternal (ByteString -> m ())

RTDigestMd5 (ByteString -> m ByteString)

RTScramSha1 (ByteString -> m (ByteString, ByteString, ByteString, Int))

Functions

starttls :: (MonadState m, [ByteString] ~ StateType m) => ByteString -> Pipe ByteString ByteString m ()

sasl :: (MonadState m, XmppState (StateType m), MonadError m, SaslError (ErrorType m)) => ByteString -> [Retrieve m] -> Pipe ByteString ByteString m ()

bind :: (MonadState m, XmppState (StateType m), MonadError m, SaslError (ErrorType m)) => ByteString -> [Feature] -> Pipe ByteString ByteString m [Xmlns]

input :: Monad m => [Xmlns] -> Pipe ByteString Mpi m ()

output :: Monad m => Pipe Mpi ByteString m ()