HsBot/Callbacks/Base.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module HsBot.Callbacks.Base where

import HsBot.Base.Env
import HsBot.Base.State

type CallbackFunction = String -> SendMessage -> Env -> IO Env

data Callback a = Callback {
   cbPrio :: Integer,
   cbFunction :: CallbackFunction
}