Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Update example for new `sendMessage' return value

  • Loading branch information...
commit b64266e63bc957e8c97acd71a09bb8e6718c3e2d 1 parent 1fcb94e
@jonkri jonkri authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  examples/echoclient/Main.hs
View
2  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."
Please sign in to comment.
Something went wrong with that request. Please try again.