RollbackDB

TLDR : Transaction(always rollback) -> Savepoint(commit/rollback) -> Savepoint(commit/rollback) -> ...

When executed outside any other atomically blocks, this will execute the provided effect within a transaction, and no matter the result, will roll back the transaction. Useful for testing.

When executed within another atomically block or blocks (multiple levels deep), this will execute the provided effect within a savepoint, and if it success, releases the savepoint, and if it fails, roll back the savepoint.