From bbb1bc28fe10f1b1fdc433ecf9502e2821f024f8 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sat, 15 Oct 2011 23:04:49 +0200 Subject: initial mysql support --- HsBot/Base/Database.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 HsBot/Base/Database.hs (limited to 'HsBot/Base/Database.hs') diff --git a/HsBot/Base/Database.hs b/HsBot/Base/Database.hs new file mode 100644 index 0000000..ae633e8 --- /dev/null +++ b/HsBot/Base/Database.hs @@ -0,0 +1,22 @@ +module HsBot.Base.Database where + +import HsBot.Base.Conf + +import qualified Database.HSQL.MySQL as MySQL +import qualified Database.HSQL.Types as Types + +data Database = Database { + connection :: IO Types.Connection + } + +databaseMake conf = Database { + connection = databaseMakeConnection conf + } + +databaseMakeConnection :: Conf -> IO Types.Connection +databaseMakeConnection conf = do + dbHost <- get "dbHost" conf + dbUser <- get "dbUser" conf + dbSchema <- get "dbSchema" conf + dbPass <- get "dbPass" conf + MySQL.connect dbHost dbUser dbSchema dbPass -- cgit v1.2.3