From f33acb1b95f1afd896b5ee00f99c178ac2ef770f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 19 May 2013 12:43:44 -0400 Subject: warning --- Annex/Exception.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Annex') diff --git a/Annex/Exception.hs b/Annex/Exception.hs index 4d21297b1..de6a23611 100644 --- a/Annex/Exception.hs +++ b/Annex/Exception.hs @@ -18,7 +18,11 @@ import Control.Exception hiding (handle, try, throw) import Common.Annex -{- Runs an Annex action, with setup and cleanup both in the IO monad. -} +{- Runs an Annex action, with setup and cleanup both in the IO monad. + - + - Warning: Currently if the Annex action fails, any changes it has made + - to Annex state are discarded. + -} bracketIO :: IO c -> (c -> IO b) -> Annex a -> Annex a bracketIO setup cleanup go = liftBaseOp (Control.Exception.bracket setup cleanup) (const go) -- cgit v1.2.3