Fix nick of example bot in readme

This commit is contained in:
Joscha 2020-01-22 21:40:30 +00:00
parent ad393a67f6
commit 7854cc06fd
2 changed files with 4 additions and 1 deletions

View file

@ -30,7 +30,7 @@ pingPongBot :: Client () ()
pingPongBot = forever $ do
event <- respondingToPing nextEvent
case event of
EventSnapshot _ -> void $ nick "TreeBot"
EventSnapshot _ -> void $ nick "PingPongBot"
EventSend e ->
let msg = sendMessage e
in when (msgContent msg == "!ping") $