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."