diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-16 11:22:45 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-16 11:22:45 +0000 |
| commit | bac4cf701291470d3495bc12801ed6ad3dcc663a (patch) | |
| tree | f1c205894c31c954e32bcf3e429762e0f73961b1 /HsBot/Plugins | |
| parent | d7cbae84a064fe2b9288eb0844b3d2e90f6df8e6 (diff) | |
some small changes
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@71 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot/Plugins')
| -rw-r--r-- | HsBot/Plugins/StoreMessages.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/HsBot/Plugins/StoreMessages.hs b/HsBot/Plugins/StoreMessages.hs index a0033f7..47aa5dd 100644 --- a/HsBot/Plugins/StoreMessages.hs +++ b/HsBot/Plugins/StoreMessages.hs @@ -1,5 +1,9 @@ module HsBot.Plugins.StoreMessages (makeStoreMessages) where +import Control.Exception +import Database.HDBC +-- import Database.HDBC.MySQL + import HsBot.Plugins.Base import HsBot.Base.Env @@ -7,6 +11,10 @@ import HsBot.Base.State storeMessages :: CallbackFunction storeMessages str sendMessage env@(Env state _) = do + -- connectTest return (env) makeStoreMessages = Plugin 0 storeMessages + + +connectTest = "" |
