HsBot/Base/Database.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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