module DBConnect (Database, dbConnect) where

import Control.Monad.Trans (MonadIO)

import Database.HaskellDB
import Database.HaskellDB.HSQL.SQLite3

import System.IO

dbConnect :: MonadIO m => Bool -> (Database -> m a) -> m a
dbConnect allowWrite f = sqliteConnect opt f
    where opt = SQLiteOptions { 
		               filepath = "../halbum/halbum.db",
                               mode = if allowWrite then ReadWriteMode
                                                    else ReadMode
                              }