diff --git a/src/Control/Monad/Catch.hs b/src/Control/Monad/Catch.hs
index a8c1e870e51dfaa5bbeffe35d7b2c97f71092bfa..ce678d18a3576ea137e77ab6d0e9499b138ab820 100644
--- a/src/Control/Monad/Catch.hs
+++ b/src/Control/Monad/Catch.hs
@@ -98,8 +98,10 @@ import Control.Monad.Trans.Except (ExceptT(..), runExceptT)
 import Control.Monad.Trans.Cont (ContT)
 import Control.Monad.Trans.Identity
 import Control.Monad.Reader as Reader
-import Control.Monad.RWS
+#if __GLASGOW_HASKELL__ < 710
 import Data.Foldable
+import Data.Monoid
+#endif
 
 ------------------------------------------------------------------------------
 -- $mtl