module DBConnect where


-- Import the HaskellDB driver interface and a driver
import Database.HaskellDB (Database)
import Database.HaskellDB.DriverAPI
--import Database.HaskellDB.HSQL.PostgreSQL
--import Database.HaskellDB.HSQL.MySQL
import Database.HaskellDB.FlatDB

{-
-- HSQL.PostgreSQL
dbConnect :: MonadIO m => (Database -> m a) -> m a
dbConnect = connect driver [("server", "localhost"),
                            ("db","hope"),
                            ("uid","hope"),
                            ("pwd","hopepass")]

-- HSQL.MySQL
dbConnect :: MonadIO m => (Database -> m a) -> m a
dbConnect = connect driver  [("server", "localhost"),
                            ("db","hope"),
                            ("uid","hope"),
                            ("pwd","hopepass")]
-}

-- FlatDB
-- The directory in which the database file is located
-- must be writable by the user which Hope runs as. 
dbConnect :: MonadIO m => (Database -> m a) -> m a
dbConnect = connect driver [("filepath", "flatdb/hope.db")]