From b2f17a42ab980b2dccfbd265f63a33beac0aaa88 Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 16:53:06 +0000 Subject: added initial StoreMessages callback. this callback will store all messages into a SQL database sooner or later. git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@61 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/StoreMessages.hs | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 HsBot/Callbacks/StoreMessages.hs (limited to 'HsBot') diff --git a/HsBot/Callbacks/StoreMessages.hs b/HsBot/Callbacks/StoreMessages.hs new file mode 100644 index 0000000..b5d043a --- /dev/null +++ b/HsBot/Callbacks/StoreMessages.hs @@ -0,0 +1,9 @@ +module HsBot.Callbacks.StoreMessages (storeMessages) where + +import HsBot.Base.Env +import HsBot.Base.State + +storeMessages :: String -> SendMessage -> Env -> IO Env +storeMessages str sendMessage env@(Env state _) = do + return (env) + -- cgit v1.2.3