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

Add restart command to bots

Browse source
This commit is contained in:
Joscha 2018-02-21 22:46:25 +00:00
parent c9e80b2df4
commit f187790136
4 changed files with 89 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test/bot_with_botrulez.hs
View file

@ -23,12 +23,8 @@ myCommands =
, E.generalHelpCommand "I help test @Garmy's EuphApi"
, E.uptimeCommand
, E.generalUptimeCommand -- most bots don't do this
, E.command "whatsmynick" (\msg -> do
nick <- E.sessName <$> B.getOwnView
let content = nick <> "\n" <> E.mention nick <> "\n" <> E.atMention nick
<> "\n" <> E.mentionReduce nick
void $ B.reply (E.msgID msg) content
)
, E.killCommand "Bye!"
, E.restartCommand "brb"
]
myBotHandler :: E.EventType -> B.Bot b c ()
@ -48,9 +44,9 @@ myBotConfig = B.BotConfig
}
main = do
myHandler <- LH.verboseStreamHandler stdout L.DEBUG
myHandler <- LH.verboseStreamHandler stdout 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.DEBUG)
B.runBot myBotConfig
L.updateGlobalLogger L.rootLoggerName (L.setLevel L.INFO)
B.runBot (return myBotConfig)