module HsBot.Callbacks.StoreMessages (makeStoreMessages) where import HsBot.Callbacks.Base import HsBot.Base.Env import HsBot.Base.State storeMessages :: CallbackFunction storeMessages str sendMessage env@(Env state _) = do return (env) makeStoreMessages = Callback 0 storeMessages