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

Reorganoze examples in test/

Browse source
This commit is contained in:
Joscha 2018-02-16 13:07:13 +00:00
parent 3733b2217c
commit 09944406ef
3 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

29
test/bottest.hs
View file

@ -1,29 +0,0 @@
import System.IO
import qualified System.Log.Formatter as LF
import qualified System.Log.Handler as LH
import qualified System.Log.Handler.Simple as LH
import qualified System.Log.Logger as L
import qualified EuphApi.Bot as E
import qualified EuphApi.Connection as E
myBotConfig :: E.BotConfig () ()
myBotConfig = E.BotConfig
{ E.botAddress = "euphoria.io"
, E.botRoom = "test"
, E.botPassword = Nothing
, E.botNick = "EuphApiTestBot"
, E.botHandler = E.respondToPing
, E.botInfo = ()
, E.botNewConnectionInfo = return ()
, E.botReconnectPolicy = E.defaultReconnectPolicy
}
main = do
myHandler <- LH.verboseStreamHandler stderr L.INFO
let myFormatter = LF.simpleLogFormatter "<$time> [$loggername/$prio] $msg"
myFormattedHandler = LH.setFormatter myHandler myFormatter
L.updateGlobalLogger L.rootLoggerName (L.setHandlers [myFormattedHandler])
L.updateGlobalLogger L.rootLoggerName (L.setLevel L.INFO)
E.runBot myBotConfig