From 61d1e6ed7a65cca731cd111a796a6e815e7f89a8 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Sat, 1 Jun 2013 14:34:01 +0200
Subject: [PATCH] examples/echoclient/Main.hs: Adapt to new API

---
 examples/echoclient/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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