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

@ -1,5 +1,8 @@
# Changelog for haboli # Changelog for haboli
## upcoming
* fix nick of example bot in readme
## 0.3.1.0 ## 0.3.1.0
* add `Haboli.Euphoria` module * add `Haboli.Euphoria` module
* add proper README * add proper README

View file

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