Add generalBracket for MonadMask instance on AWST' for 'exceptions' >…

…= 0.10.0
brendanhay · Sep 21, 2018 · fb91d38 · fb91d38
1 parent c0bdafc
commit fb91d38
Showing 1 changed file with 10 additions and 0 deletions.
diff --git 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