blob: d5f1ace38c64451d60e0357f523519b464515c5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module HsBot.Plugins.StoreMessages (makeStoreMessages) where
import Control.Exception
import HsBot.Plugins.Base
import HsBot.Base.Env
import HsBot.Base.State
storeMessages :: CallbackFunction
storeMessages str sendMessage env@(Env state _) = do
return (env)
makeStoreMessages = Plugin 0 storeMessages
|
