[CSL-1790] Move rolback into bracket in `applyWithRollback`
[CSL-1790] Move rolback into bracket in `applyWithRollback`

In `applyWithRollback' rollback was done outside `bracketOnError'.
But the idea is that if rollback happens, we want to ensure that
`applyBack' will be called if something goes wrong.
There can be an async exception after rollback and before bracket (AFAIU)
and then `applyBack' won't be called

input-output-hk/pos-haskell-prototype,input-output-hk/cardano-sl,input-output-hk/cardano-sl,input-output-hk/cardano-sl,input-output-hk/pos-haskell-prototype,input-output-hk/cardano-sl,input-output-hk/pos-haskell-prototype