From b64266e63bc957e8c97acd71a09bb8e6718c3e2d Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Tue, 11 Jun 2013 01:37:53 +0200
Subject: [PATCH] Update example for new `sendMessage' return value

---
 examples/echoclient/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/echoclient/Main.hs b/examples/echoclient/Main.hs
index 35b17ef..9f2730b 100644
--- a/examples/echoclient/Main.hs
+++ b/examples/echoclient/Main.hs
@@ -30,5 +30,5 @@ main = do
     forever $ do
         msg <- getMessage sess
         case answerMessage msg (messagePayload msg) of
-            Just answer -> sendMessage answer sess
+            Just answer -> sendMessage answer sess >> return ()
             Nothing -> putStrLn "Received message with no sender."