Generalized types of the connection functions in the HSQL backends to…

… use MonadIO.

darcs-hash:20051217235755-6cdb2-e9ca6acdfb005e9cd75425a925b590bbf54f60ad.gz

src/Database/HaskellDB/HSQL/Common.hs

@@ -14,12 +14,14 @@
 -----------------------------------------------------------
 
 module Database.HaskellDB.HSQL.Common (
-		     hsqlConnect
+		     hsqlConnect, MonadIO
 		   ) where
 
 import Data.Maybe
 import Control.Exception (catch, throwIO)
 import Control.Monad
+import Control.Monad.Trans (MonadIO, liftIO)
+import System.IO
 import System.IO.Unsafe (unsafeInterleaveIO)
 import System.Time
 
@@ -33,13 +35,13 @@ import Database.HaskellDB.FieldType
 import Database.HSQL as HSQL
 
 -- | Run an action on a HSQL Connection and close the connection.
-hsqlConnect :: (opts -> IO Connection) -- ^ HSQL connection function, e.g.  
-	    -> opts -> (Database -> IO a) -> IO a
+hsqlConnect :: MonadIO m => (opts -> IO Connection) -- ^ HSQL connection function
+	    -> opts -> (Database -> m a) -> m a
 hsqlConnect connect opts action = 
     do
-    conn <- handleSqlError (connect opts)
+    conn <- liftIO $ handleSqlError (connect opts)
     x <- action (mkDatabase conn)
-    handleSqlError (disconnect conn)
+    liftIO $ handleSqlError (disconnect conn)
     return x
 
 handleSqlError :: IO a -> IO a

src/Database/HaskellDB/HSQL/MySQL.hs

@@ -30,7 +30,7 @@ data MySQLOptions = MySQLOptions {
 				  pwd :: String     -- ^ password
                   		 }
 
-mysqlConnect :: MySQLOptions -> (Database -> IO a) -> IO a
+mysqlConnect :: MonadIO m => MySQLOptions -> (Database -> m a) -> m a
 mysqlConnect = 
     hsqlConnect (\opts -> MySQL.connect 
 		            (server opts) (db opts) (uid opts) (pwd opts))

src/Database/HaskellDB/HSQL/ODBC.hs

@@ -30,7 +30,7 @@ data ODBCOptions = ODBCOptions {
                                pwd :: String  -- ^ password
                   	       }          
 
-odbcConnect :: ODBCOptions -> (Database -> IO a) -> IO a
+odbcConnect :: MonadIO m => ODBCOptions -> (Database -> m a) -> m a
 odbcConnect = 
     hsqlConnect (\opts -> ODBC.connect (dsn opts) (uid opts) (pwd opts))
 

src/Database/HaskellDB/HSQL/PostgreSQL.hs

@@ -30,7 +30,7 @@ data PostgreSQLOptions = PostgreSQLOptions {
 				  pwd :: String     -- ^ password
                   		 }
 
-postgresqlConnect :: PostgreSQLOptions -> (Database -> IO a) -> IO a
+postgresqlConnect :: MonadIO m => PostgreSQLOptions -> (Database -> m a) -> m a
 postgresqlConnect = 
     hsqlConnect (\opts -> PostgreSQL.connect 
 		            (server opts) (db opts) (uid opts) (pwd opts))

src/Database/HaskellDB/HSQL/SQLite.hs

@@ -31,7 +31,7 @@ data SQLiteOptions = SQLiteOptions {
 				    mode :: IOMode        -- ^ access mode
                   		   }
 
-sqliteConnect :: SQLiteOptions -> (Database -> IO a) -> IO a
+sqliteConnect :: MonadIO m => SQLiteOptions -> (Database -> m a) -> m a
 sqliteConnect = 
     hsqlConnect (\opts -> SQLite.connect 
 		            (filepath opts) (mode opts))