Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add botrulez support

Browse source 
This commit includes:
 - Some cleaned up debug messages
 - New and updated examples (they're all fixed again :D)
This commit is contained in:
Joscha 2018-02-19 21:30:39 +00:00
parent ab14ee9fa6
commit 8024285e2e
5 changed files with 134 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/connection_reacting_to_events.hs
View file

@ -6,8 +6,8 @@ import System.Environment
import qualified Data.Text as T
import qualified EuphApi as E
import qualified EuphApi.Connection as E
import qualified EuphApi.Types as E
runBot :: String -> IO ()
@ -27,10 +27,10 @@ handleEuphEvent :: E.Connection -> E.Event -> IO ()
handleEuphEvent con (E.PingEvent time _) = do
E.pingReply con time
putStrLn "Pong!"
handleEuphEvent con (E.BounceEvent _ _) = do
handleEuphEvent con E.BounceEvent{} = do
E.disconnect con
putStrLn "Room is private. And I don't have a password."
handleEuphEvent con (E.HelloEvent _ _ _) = do
handleEuphEvent con E.HelloEvent{} = do
void $ E.nick con "EuphApi test bot"
putStrLn "Set nick"
handleEuphEvent con (E.JoinEvent sess) = do