blob: 0ce57c66c619c3019458d2cd802e4d61840000ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module HsBot.Callbacks.PrintMessages (printMessages) where
import HsBot.Base.Env
import HsBot.Base.State
printMessages :: String -> SendMessage -> Env -> IO Env
printMessages str sendMessage env@(Env state _) = do
putStrLn $ (currentChannel state) ++ " "
++ (currentSender state) ++ ": "
++ str
return (env)
|
