Fix nick of example bot in readme
This commit is contained in:
parent
ad393a67f6
commit
7854cc06fd
2 changed files with 4 additions and 1 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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") $
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue