blob: d3bfbc8426cb88dcb0f38ac6afcd3e4778e8a144 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module HsBot.Plugins.PrintMessages (makePrintMessages) where
import HsBot.Plugins.Base
import HsBot.Base.Env
import HsBot.Base.State
printMessages :: CallbackFunction
printMessages str sendMessage env@(Env state _) = do
putStrLn $ (currentChannel state) ++ " "
++ (currentSender state) ++ ": "
++ str
return (env)
makePrintMessages = Plugin 0 printMessages
|
