Bryan O'Sullivan avatar Bryan O'Sullivan committed b6d490d

selectDB

Comments (0)

Files changed (2)

Database/MySQL.hs

     , autocommit
     , ping
     , changeUser
+    , selectDB
     -- ** Connection information
     , threadId
     , serverInfo
       withRTSSignalsBlocked (mysql_change_user ptr cuser cpass cdb) >>=
       check "changeUser" ptr
 
+selectDB :: Connection -> String -> IO ()
+selectDB conn db = 
+  withCString db $ \cdb ->
+    withConn conn $ \ptr ->
+      withRTSSignalsBlocked (mysql_select_db ptr cdb) >>= check "selectDB" ptr
+
 query :: Connection -> ByteString -> IO ()
 query conn q = withConn conn $ \ptr ->
   unsafeUseAsCStringLen q $ \(p,l) ->

Database/MySQL/C.hsc

     , mysql_ping
     , mysql_autocommit
     , mysql_change_user
+    , mysql_select_db
     -- ** Connection information
     , mysql_thread_id
     , mysql_get_server_info
     -> CString                  -- ^ database
     -> IO MyBool
 
+foreign import ccall unsafe mysql_select_db
+    :: Ptr MYSQL
+    -> CString
+    -> IO CInt
+
 foreign import ccall safe mysql_get_server_info
     :: Ptr MYSQL -> IO CString
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.