diff --git a/snaplet-mysql-simple.cabal b/snaplet-mysql-simple.cabal
--- a/snaplet-mysql-simple.cabal
+++ b/snaplet-mysql-simple.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-mysql-simple
-version:        0.1.1.4
+version:        0.2.0.0
 synopsis:       mysql-simple snaplet for the Snap Framework
 description:    This snaplet contains support for using the MariaDB and MySQL
                 database with a Snap Framework application via the mysql-simple
@@ -41,7 +41,7 @@
     containers                 >= 0.4     && < 0.6,
     configurator               >= 0.2     && < 0.3,
     errors                     >= 1.4     && < 1.5,
-    lens                       >= 3.0     && < 4.1,
+    lens                       >= 3.0     && < 4.2,
     MonadCatchIO-transformers  >= 0.3     && < 0.4,
     mtl                        >= 2       && < 3,
     mysql-simple               >= 0.2     && < 0.3,
diff --git a/src/Snap/Snaplet/MysqlSimple.hs b/src/Snap/Snaplet/MysqlSimple.hs
--- a/src/Snap/Snaplet/MysqlSimple.hs
+++ b/src/Snap/Snaplet/MysqlSimple.hs
@@ -80,7 +80,7 @@
   , executeMany
   , rollback
   , commit
-  , withTransaction
+  -- , withTransaction
   , formatMany
   , formatQuery
 
@@ -385,11 +385,12 @@
 commit = withMysql M.commit
 
 
-withTransaction :: (HasMysql m, MonadCatchIO m) => m a -> m a
-withTransaction action = do
-    r <- action `CIO.onException` rollback
-    commit
-    return r
+-- -- This is utterly broken
+-- withTransaction :: (HasMysql m, MonadCatchIO m) => m a -> m a
+-- withTransaction action = do
+--     r <- action `CIO.onException` rollback
+--     commit
+--     return r
 
 
 formatMany :: (QueryParams q, HasMysql m, MonadCatchIO m)