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