From fb91d386eb440826c6a4a961899c6f2a1c840e3b Mon Sep 17 00:00:00 2001
From: Nick Hibberd <nhibberd@gmail.com>
Date: Thu, 20 Sep 2018 13:23:21 -0700
Subject: [PATCH] Add generalBracket for MonadMask instance on AWST' for
 'exceptions' >= 0.10.0

---
 amazonka/src/Control/Monad/Trans/AWS.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/amazonka/src/Control/Monad/Trans/AWS.hs b/amazonka/src/Control/Monad/Trans/AWS.hs
index c13bda5250e..d7694e7b986 100644
--- a/amazonka/src/Control/Monad/Trans/AWS.hs
+++ b/amazonka/src/Control/Monad/Trans/AWS.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE BangPatterns               #-}
 {-# LANGUAGE ConstraintKinds            #-}
+{-# LANGUAGE CPP                        #-}
 {-# LANGUAGE FlexibleContexts           #-}
 {-# LANGUAGE FlexibleInstances          #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -216,6 +217,15 @@ instance MonadMask m => MonadMask (AWST' r m) where
     uninterruptibleMask a = AWST' $ uninterruptibleMask $ \u ->
         unAWST $ a (AWST' . u . unAWST)
 
+#if MIN_VERSION_exceptions(0,10,0)
+    generalBracket acquire rel action = AWST' $
+        generalBracket
+            (unAWST acquire)
+            (\a ex -> unAWST $ rel a ex)
+            (\a -> unAWST $ action a)
+#endif
+
+
 instance MonadBase b m => MonadBase b (AWST' r m) where
     liftBase = liftBaseDefault