withTransaction' :: DBState -> IO a -> IO a
withTransaction' st act =
    P.withTransaction (db' st) act
withTransaction' :: DBState -> IO a -> IO a
withTransaction' st act =
    P.withTransaction (db' st) act
withTransaction' st act =
    P.withTransaction (db' st) act