minor EchoClient modifications; exported simpleAuth

started to use simpleAuth in EchoClient
stripped password from EchoClient

examples/EchoClient.hs

@@ -25,10 +25,11 @@ import Network.Xmpp.IM
 
 -- Server and authentication details.
 
-hostName = "nejla.com"
-portNumber = 5222
-userName = "jon"
-password = "G2D9%b4S3" -- TODO
+hostname = "nejla.com"
+hostname_ = "xmpp.nejla.com" -- TODO
+-- portNumber = 5222 -- TODO
+userName = ""
+password = ""
 
 
 -- TODO: Incomplete code, needs documentation, etc.
@@ -36,9 +37,9 @@ main :: IO ()
 main = do
     withNewSession $ do
         withConnection $ do
-            connect "xmpp.nejla.com" "nejla.com"
+            connect hostname_ hostname
             -- startTLS exampleParams
-            saslResponse <- auth userName password (Just "echo-client")
+            saslResponse <- simpleAuth userName password (Just "echo-client")
             case saslResponse of
                 Right _ -> return ()
                 Left e -> error $ show e

source/Network/Xmpp.hs

@@ -35,6 +35,7 @@ module Network.Xmpp
   , withConnection
   , connect
   , startTLS
+  , simpleAuth
   , auth
   , endSession
   , setSessionEndHandler