add 'runRaw', patch from run@bak.dk.

--HG-- extra : convert_revision : 2f4abf59879bc58369c46e870b8b5905532d42b2
ryantm · Jun 1, 2010 · db8d397 · db8d397
1 parent 20b0074
commit db8d397
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-01  Chris Waterson  <waterson@maubi.net>
+
+	* Database/HDBC/MySQL/Connection.hsc.  Add runRaw, patch from Rune
+	Harder Bak <rune@bak.dk>.
+
 2010-04-16  Chris Waterson  <waterson@maubi.net>
 
 	* HDBC-mysql-0.6.2.  Fix incorrect usage of "with" and

diff --git a/Database/HDBC/MySQL/Connection.hsc b/Database/HDBC/MySQL/Connection.hsc
@@ -61,6 +61,7 @@ data Connection = Connection
     , commit :: IO ()
     , rollback :: IO ()
     , run :: String -> [Types.SqlValue] -> IO Integer
+    , runRaw :: String -> IO ()
     , prepare :: String -> IO Types.Statement
     , clone :: IO Connection
     , hdbcDriverName :: String
@@ -78,6 +79,7 @@ instance Types.IConnection Connection where
   commit               = commit
   rollback             = rollback
   run                  = run
+  runRaw               = runRaw
   prepare              = prepare
   clone                = clone
   hdbcDriverName       = hdbcDriverName
@@ -130,6 +132,7 @@ connectMySQL info = do
                    , commit               = doCommit mysql__ >> doStartTransaction mysql__
                    , rollback             = doRollback mysql__ >> doStartTransaction mysql__
                    , run                  = doRun mysql__
+                   , runRaw               = flip doQuery mysql__
                    , prepare              = newStatement mysql__
                    , clone                = connectMySQL info
                    , hdbcDriverName       = "mysql"