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 | |
| parent | d7cbae84a064fe2b9288eb0844b3d2e90f6df8e6 (diff) | |
some small changes
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@71 9f8f72e9-4bf4-416e-b76e-7d4203597157
| -rw-r--r-- | HsBot/Base/Conf.hs | 4 | ||||
| -rw-r--r-- | HsBot/Plugins/StoreMessages.hs | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/HsBot/Base/Conf.hs b/HsBot/Base/Conf.hs index 54749ba..3eada1d 100644 --- a/HsBot/Base/Conf.hs +++ b/HsBot/Base/Conf.hs @@ -15,6 +15,10 @@ makeConf = M.fromList , ("ircNick", "hotdog") , ("ircPort", "6667") , ("ircUser", "hsbot.haskell.eu") + , ("dbHost", "localhost") + , ("dbUser", "hsbot") + , ("dbPass", "hsbot") + , ("dbSchema", "hsbot") ] get :: (Monad m) => String -> Conf -> m String 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 = "" |