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)