Permalink
Browse files

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

--HG--
extra : convert_revision : 2f4abf59879bc58369c46e870b8b5905532d42b2
  • Loading branch information...
1 parent 20b0074 commit db8d397cc72fcabdb50d6b723ed7c090a136e844 @waterson waterson committed Jun 1, 2010
Showing with 8 additions and 0 deletions.
  1. +5 −0 ChangeLog
  2. +3 −0 Database/HDBC/MySQL/Connection.hsc
View
@@ -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
@@ -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"

0 comments on commit db8d397

Please sign in to comment.