[Haskell-cafe] HDBC nested withTransaction