diff options
| author | Paul Buetow <paul@buetow.org> | 2011-10-15 23:04:49 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-10-15 23:04:49 +0200 |
| commit | bbb1bc28fe10f1b1fdc433ecf9502e2821f024f8 (patch) | |
| tree | a89c09b339af8f69178c8eec0473cb0c86d7ca82 /HsBot/Plugins/StoreMessages.hs | |
| parent | 5875e0134d99f8e7b7b713e2a1acecedd1afe4e9 (diff) | |
initial mysql support
Diffstat (limited to 'HsBot/Plugins/StoreMessages.hs')
| -rw-r--r-- | HsBot/Plugins/StoreMessages.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/HsBot/Plugins/StoreMessages.hs b/HsBot/Plugins/StoreMessages.hs index 47aa5dd..d5f1ace 100644 --- a/HsBot/Plugins/StoreMessages.hs +++ b/HsBot/Plugins/StoreMessages.hs @@ -1,8 +1,6 @@ module HsBot.Plugins.StoreMessages (makeStoreMessages) where import Control.Exception -import Database.HDBC --- import Database.HDBC.MySQL import HsBot.Plugins.Base @@ -11,10 +9,7 @@ import HsBot.Base.State storeMessages :: CallbackFunction storeMessages str sendMessage env@(Env state _) = do - -- connectTest - return (env) + return (env) makeStoreMessages = Plugin 0 storeMessages - -connectTest = "" |