# Safe concurrent MySQL access in Haskell

April 17, 2015

Update (2016-10-26). The mysql package has got a new maintainer, Paul Rouse. He merged my changes that address Issue 1 described below in mysql-0.1.2. The other issues still stand, so read on.

mysql, Bryan O’Sullivan’s low-level Haskell bindings to the libmysqlclient C library, powers a few popular high-level MySQL libraries, including mysql-simple, persistent-mysql, snaplet-mysql-simple, and groundhog-mysql.

Most users do not suspect that using mysql as it stands concurrently is unsafe.

This article describes the issues and their solutions.

## Issue 1: unsafe foreign calls

As of version 0.1.1.8, mysql marks many of its ffi imports as unsafe. This is a common trick to make these calls go faster. In our case, the problem with unsafe calls is that they block a capability (that is, an OS thread that can execute Haskell code). This is bad for two reasons:

1. Fewer threads executing Haskell code may result in less multicore utilization and degraded overall performance.
2. If all capabilities get blocked executing related MySQL statements, they may deadlock.

Here’s a demonstration of such a deadlock:

{-# LANGUAGE OverloadedStrings #-}
import Database.MySQL.Simple
import Control.Concurrent
import Control.Concurrent.STM
import Control.Applicative
import Control.Exception

main = do
tv <- atomically $newTVar 0 withConn$ \conn -> do
mapM_ (execute_ conn)
[ "drop table if exists test"
, "create table test (x int)"
, "insert into test values (0)"
]

forM_ [1..2] $\n -> forkIO$ withConn $\conn -> (do execute_ conn "begin" putStrLn$ show n ++ " updating"
execute_ conn "update test set x = 42"
putStrLn $show n ++ " waiting" threadDelay (10^6) execute_ conn "commit" putStrLn$ show n ++ " committed"
) finally
(atomically $modifyTVar tv (+1)) atomically$ check =<< (>=2) <$> readTVar tv where withConn = bracket (connect defaultConnectInfo) close If you run this with stock mysql-0.1.1.8, one capability (i.e. without +RTS -Nx), and either threaded or non-threaded runtime, you’ll see: 1 updating 1 waiting 2 updating 1 committed test: ConnectionError { errFunction = "query", errNumber = 1205, errMessage = "Lock wait timeout exceeded; try restarting transaction"} Here’s what’s going on: 1. Both threads are trying to update the same row inside their transactions; 2. MySQL lets the first update pass but blocks the second one until the first update committed (or rolled back); 3. The first transaction never gets a chance to commit, because it has no OS threads (capabilities) to execute on. The only capability is blocked waiting for the second UPDATE to finish. The solution is to patch mysql to mark its ffi calls as safe (and use the threaded runtime). Here’s what would happen: 1. To compensate for the blocked OS thread executing the second UPDATE, the GHC runtime moves the capability to another thread (either fresh or drawn from a pool); 2. The first transaction finishes on this unblocked capability; 3. MySQL then allows the second UPDATE to go through, and the second transaction finishes as well. ## Issue 2: uninitialized thread-local state in libmysqlclient To quote the docs: When you call mysql_init(), MySQL creates a thread-specific variable for the thread that is used by the debug library (among other things). If you call a MySQL function before the thread has called mysql_init(), the thread does not have the necessary thread-specific variables in place and you are likely to end up with a core dump sooner or later. Here’s the definition of the thread-local state data structure, taken from mariadb-10.0.17: struct st_my_thread_var { int thr_errno; mysql_cond_t suspend; mysql_mutex_t mutex; mysql_mutex_t * volatile current_mutex; mysql_cond_t * volatile current_cond; pthread_t pthread_self; my_thread_id id; int volatile abort; my_bool init; struct st_my_thread_var *next,**prev; void *keycache_link; uint lock_type; /* used by conditional release the queue */ void *stack_ends_here; safe_mutex_t *mutex_in_use; #ifndef DBUG_OFF void *dbug; char name[THREAD_NAME_SIZE+1]; #endif }; This data structure is used by both server and client code, although it seems like most of these fields are used by the server, not client (with the exception of the dbug thing), which would explain why Haskellers have gotten away with not playing by the rules so far. However: 1. I am not an expert, and I spent just about 20 minutes grepping the codebase. Am I sure that there’s no code path in the client that accesses this? No. 2. Am I going to ignore the above warning and bet the stability of my production system on MySQL/MariaDB devs never making use of this thread-local state? Hell no! What should we do to obey the rules? First, make threads which work with MySQL bound, i.e. launch them with forkOS instead of forkIO. Otherwise, even if an OS thread is initialized, the Haskell thread may be later scheduled on a different, uninitialized OS thread. If you create a connection in a thread, use it, and dispose of it, then using a bound thread should be enough. This is because mysql’s connect calls mysql_init, which in turn calls mysql_thread_init. However, if you are using a thread pool or otherwise sharing a connection between threads, then connect may occur on a different OS thread than a subsequent use. Under this scenario, every thread needs to call mysql_thread_init prior to other MySQL calls. ## Issue 3: non-thread-safe calls The mysql_library_init function needs to be called prior to any other MySQL calls. It only needs to be called once per process, although it is harmless to call it more than once. It is called implicitly by mysql_init (which is in turn called by connect). However, this function is documented as not thread-safe. If you connect from two threads simultaneously, bad or unexpected things can happen. Also, if you are calling mysql_thread_init as described above, it should be called after mysql_library_init. This is why it is a good idea to call mysql_library_init in the very beginning, before you spawn any threads. ## Using a connection concurrently This is not specific to the Haskell bindings, just something to be aware of: You should not use the same MySQL connection simultaneously from different threads. First, the docs explicitly warn you about that: Multiple threads cannot send a query to the MySQL server at the same time on the same connection (there are some details on this in case you are interested) Second, the MySQL wire protocol is not designed to multiplex several communication «threads» onto the same TCP connection (unlike, say, AMQP), and trying to do so will probably confuse both the server and the client. ## Example Here is, to the best of my knowledge, a correct example of concurrently accessing a MySQL database. The example accepts request at http://localhost/key and looks up that key in a MySQL table. It needs to be compiled against my fork of mysql, which has the following changes compared to 0.1.1.8: • Unsafe calls are marked as safe (the patch is due to Matthias Hörmann); • mysql_library_init and mysql_thread_init are exposed under the names initLibrary and initThread. (How to use a fork that is not on hackage? For example, through a stackage snapshot.) {-# LANGUAGE OverloadedStrings, RankNTypes #-} import Network.Wai import qualified Network.Wai.Handler.Warp as Warp import Network.HTTP.Types import qualified Database.MySQL.Base as MySQL import Database.MySQL.Simple import Control.Exception (bracket) import Control.Monad (void) import Control.Concurrent (forkOS) import qualified Data.Text.Lazy.Encoding as LT import Data.Pool (createPool, destroyAllResources, withResource) import Data.Monoid (mempty) import GHC.IO (unsafeUnmask) main = do MySQL.initLibrary bracket mkPool destroyAllResources$ \pool ->
Warp.runSettings (Warp.setPort 8000 . Warp.setFork forkOSWithUnmask $Warp.defaultSettings)$
\req resp -> do
withResource pool $\conn -> case pathInfo req of [key] -> do rs <- query conn "SELECT desc FROM test WHERE key = ?" (Only key) case rs of Only result : _ -> resp$
responseLBS
ok200
[(hContentEncoding, "text/plain")]
(LT.encodeUtf8 result)
_ -> resp e404
_ -> resp e404

where
mkPool = createPool (connect defaultConnectInfo) close 1 60 10
e404 = responseLBS notFound404 [] mempty
forkOSWithUnmask :: ((forall a . IO a -> IO a) -> IO ()) -> IO ()
forkOSWithUnmask io = void \$ forkOS (io unsafeUnmask)

The forkWithUnmask business is only an artifact of the way warp spawns threads; normally a simple forkOS would do. On the other hand, this example shows that in the real world you sometimes need to make an extra effort to have bound threads. Even warp got this feature only recently.

Note that this isn’t the most efficient implementation, since it essentially uses OS threads instead of lightweight Haskell threads to serve requests.

## On destructors

The *_init functions allocate memory, so there are complementary functions, mysql_thread_end and mysql_library_end, which free that library.

However, you probably do not want to call them. Here’s why.

Most multithreaded Haskell programs have a small numbers of OS threads managed by the GHC runtime. These threads are also long-lived. Trying to free the resources associated with those threads won’t give much, and not doing so won’t do any harm.

Furthermore, suppose that you still want to free the resources. When should you do so?

Naively calling mysql_thread_end after serving a request would be wrong. It is only the lightweight Haskell thread that is finishing. The OS thread executing the Haskell thread may be executing other Haskell threads at the same time. If you suddenly destroy MySQL’s thread-local state, the effect on other Haskell threads would be the same as if you didn’t call mysql_thread_init in the first place.

And calling mysql_library_end without mysql_thread_end makes MySQL upset when it sees that not all threads have ended.