hdbc

I am a Java programmer who learns Haskell. I work on a small web-app that uses Happstack and talks to a database via HDBC. I've written select and exec functions and I use them like this: module Main where import Control.Exception (throw) import Database.HDBC import Database.HDBC.Sqlite3 -- just for this example, I use MySQL in production main = do exec "CREATE TABLE IF NOT EXISTS users (name VARCHAR(80) NOT NULL)" [] exec "INSERT INTO users VALUES ('John')" [] exec "INSERT INTO users VALUES ('Rick')" [] rows <- select "SELECT name FROM users" [] let toS x = (fromSql x)::String let names = map

I have a pool of MySQL connections for a web-based data service. When it starts to service a request, it takes a connection from the pool to use. The problem is that if there has been a significant pause since that particular connection has been used, the server may have timed it out and closed its end. I'd like to be able to detect this in the pool management code. The trick is this: The environment in which I'm coding gives me only a very abstract API into the connection. I can basically only execute SQL statements. I don't have access to the actual socket or direct access to the MySQL