From 630a8b9ad21fe6187177f770eb1395e6f363bc86 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 19 May 2013 12:43:44 -0400
Subject: [PATCH] warning

---
 Annex/Exception.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Annex/Exception.hs b/Annex/Exception.hs
index 4d21297b10..de6a236118 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)