1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/utils/Pair.lhs b/compiler/utils/Pair.lhs
index ca7c2a7f8e..529ba669ea 100644
--- a/compiler/utils/Pair.lhs
+++ b/compiler/utils/Pair.lhs
@@ -10,10 +10,12 @@ module Pair ( Pair(..), unPair, toPair, swap ) where
 #include "HsVersions.h"
 
 import Outputable
-import Data.Monoid
 import Control.Applicative
+#if __GLASGOW_HASKELL__ < 709
 import Data.Foldable
+import Data.Monoid
 import Data.Traversable
+#endif
 
 data Pair a = Pair { pFst :: a, pSnd :: a }
 -- Note that Pair is a *unary* type constructor
@@ -46,4 +48,4 @@ toPair (x,y) = Pair x y
 
 swap :: Pair a -> Pair a
 swap (Pair x y) = Pair y x
-\end{code}
-\ No newline at end of file
+\end{code}