[Haskell-beginners] Control.Exception.bracket-like for MonadIO ?