diff --git a/README.md b/README.md
index 90516b5..30bfd2c 100644
--- a/README.md
+++ b/README.md
@@ -1,8 +1,13 @@
Welcome to Pontarius XMPP!
==========================
-Pontarius XMPP is an active work in progress to build a Haskell XMPP library
-that implements the client capabilities of [RFC 6120](http://tools.ietf.org/html/rfc6120).
+Pontarius XMPP is an active work in progress to build a Haskell XMPP client
+library that implements the capabilities of [RFC 6120
+("XMPP CORE")](http://tools.ietf.org/html/rfc6120), [RFC 6121 ("XMPP
+IM")](http://tools.ietf.org/html/rfc6121), and [RFC 6122 ("XMPP
+ADDR")](http://tools.ietf.org/html/rfc6122). Pontarius XMPP is part of [the
+Pontarius project](http://www.pontarius.org/), an effort to produce free and
+open source, uncentralized, and privacy-aware software solutions.
Getting started
---------------
@@ -14,6 +19,10 @@ page](http://hackage.haskell.org/package/pontarius-xmpp/).
_Note:_ Pontarius XMPP is still in its Alpha phase. Pontarius XMPP is not yet
feature-complete, it may contain bugs, and its API may change between versions.
+_Note:_ You will need the ICU Unicode library and it's header files in order to
+be able to build Pontarius XMPP. On Debian, you will need to install the
+*libicu-dev* package. In Fedora, the package is called *libicu-devel*.
+
The first thing to do is to import the modules that we are going to use. We are
also using the OverloadedStrings LANGUAGE pragma in order to be able to type
Text values like strings.
@@ -36,15 +45,16 @@ When this is done, a Session object can be acquired by calling
result <- session
"example.com"
+ (Just (\_ -> ( [scramSha1 "username" Nothing "password"])
+ , Nothing))
def
- (Just ([scramSha1 "username" Nothing "password"], Nothing))
-The three parameters above are the XMPP server realm, the session configuration
-settings (set to the default settings), and a SASL handler (for authentication).
-session will perform the necessary DNS queries to find the address
-of the realm, connect, establish the XMPP stream, attempt to secure the stream
-with TLS, authenticate, establish a concurrent interface for interacting with
-the stream, and return the Session object.
+The three parameters above are the XMPP server realm, a SASL handler (for
+authentication), and the session configuration settings (set to the default
+settings). session will perform the necessary DNS queries to find
+the address of the realm, connect, establish the XMPP stream, attempt to secure
+the stream with TLS, authenticate, establish a concurrent interface for
+interacting with the stream, and return the Session object.
The return type of session is IO (Either XmppFailure
Session). As XmppFailure is an
@@ -58,7 +68,11 @@ doing it could be doing something like this:
Next, let us set our status to Online.
- sendPresence (Presence Nothing Nothing Nothing Nothing Nothing []) sess
+ sendPresence def sess
+
+Here, def refers to the default Presence value, which
+is the same as Presence Nothing Nothing Nothing Nothing Available
+[].
Now, let's say that we want to receive all message stanzas, and echo the stanzas
back to the recipient. This can be done like so:
diff --git a/examples/echoclient/Main.hs b/examples/echoclient/Main.hs
index 2e3ab90..35b17ef 100644
--- a/examples/echoclient/Main.hs
+++ b/examples/echoclient/Main.hs
@@ -20,12 +20,13 @@ main = do
updateGlobalLogger "Pontarius.Xmpp" $ setLevel DEBUG
result <- session
"example.com"
+ (Just (\_ -> ( [scramSha1 "username" Nothing "password"])
+ , Nothing))
def
- (Just ([scramSha1 "username" Nothing "password"], Nothing))
sess <- case result of
Right s -> return s
Left e -> error $ "XmppFailure: " ++ (show e)
- sendPresence (Presence Nothing Nothing Nothing Nothing Nothing []) sess
+ sendPresence def sess
forever $ do
msg <- getMessage sess
case answerMessage msg (messagePayload msg) of
diff --git a/pontarius-xmpp.cabal b/pontarius-xmpp.cabal
index 397520a..3e9aa3c 100644
--- a/pontarius-xmpp.cabal
+++ b/pontarius-xmpp.cabal
@@ -10,11 +10,11 @@ Author: Jon Kristensen, Mahdi Abdinejadi, Philipp Balzarek
Maintainer: info@jonkri.com
Stability: alpha
Homepage: https://github.com/pontarius/pontarius-xmpp/
-Bug-Reports: mailto:info@jonkri.com
+Bug-Reports: https://github.com/pontarius/pontarius-xmpp/issues/
Package-URL: http://www.jonkri.com/releases/pontarius-xmpp-0.2.0.1.tar.gz
-Synopsis: An incomplete implementation of RFC 6120 (XMPP: Core)
-Description: Pontarius XMPP is a work in progress implementation of
- RFC 6120 (XMPP: Core).
+Synopsis: An incomplete XMPP client implementation
+Description: Pontarius XMPP is a work in progress implementation of RFC 6120
+ ("XMPP CORE"), RFC 6121 ("XMPP IM"), and RFC 6122 ("XMPP ADDR").
Category: Network
Tested-With: GHC ==7.0.4, GHC ==7.4.1
diff --git a/source/Network/Xmpp/IM/Message.hs b/source/Network/Xmpp/IM/Message.hs
index b141eea..f29e163 100644
--- a/source/Network/Xmpp/IM/Message.hs
+++ b/source/Network/Xmpp/IM/Message.hs
@@ -16,7 +16,7 @@ data MessageBody = MessageBody { bodyLang :: Maybe LangTag
, bodyContent :: Text
}
-data MessageThread = MessageThread { theadID :: Text
+data MessageThread = MessageThread { threadID :: Text
, threadParent :: Maybe Text
}
diff --git a/source/Network/Xmpp/Marshal.hs b/source/Network/Xmpp/Marshal.hs
index ff893da..da7dbd0 100644
--- a/source/Network/Xmpp/Marshal.hs
+++ b/source/Network/Xmpp/Marshal.hs
@@ -277,4 +277,4 @@ xpJid :: PU Text Jid
xpJid = PU { unpickleTree = \input -> case jidFromText input of
Nothing -> UnpickleError $ ErrorMessage "Could not parse JID."
Just jid -> Result jid Nothing
- , pickleTree = \input -> pack $ jidToText input }
+ , pickleTree = \input -> jidToText input }
diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs
index dea21e7..45999cd 100644
--- a/source/Network/Xmpp/Types.hs
+++ b/source/Network/Xmpp/Types.hs
@@ -936,9 +936,6 @@ parseJid s = case jidFromText $ Text.pack s of
Just jid -> jid
Nothing -> error $ "Jid value (" ++ s ++ ") did not validate"
-instance IsString Jid where
- fromString = fromJust . jidFromText . Text.pack
-
-- | Converts a Text to a JID.
jidFromText :: Text -> Maybe Jid
jidFromText t = do
diff --git a/tests/Tests.hs b/tests/Tests.hs
index ba7dadb..41f334a 100644
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -28,13 +28,13 @@ import System.Environment
import System.Log.Logger
testUser1 :: Jid
-testUser1 = "echo1@species64739.dyndns.org/bot"
+testUser1 = parseJid "echo1@species64739.dyndns.org/bot"
testUser2 :: Jid
-testUser2 = "echo2@species64739.dyndns.org/bot"
+testUser2 = parseJid "echo2@species64739.dyndns.org/bot"
supervisor :: Jid
-supervisor = "uart14@species64739.dyndns.org"
+supervisor = parseJid "uart14@species64739.dyndns.org"
config = def{sessionStreamConfiguration
= def{connectionDetails = UseHost "localhost" (PortNumber 5222)}}