2 files changed, 6 insertions, 16 deletions
diff --git a/tests/Main.hs b/tests/Main.hs
index eca7129..1b5c834 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -14,9 +14,7 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DoAndIfThenElse #-}
 {-# LANGUAGE TupleSections #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE CPP #-}
 
 -- Failing tests can specify the kind of error that should be thrown with a
 -- @shouldFailWith declaration. For example:
@@ -35,6 +33,9 @@
 
 module Main (main) where
 
+import Prelude ()
+import Prelude.Compat
+
 import qualified Language.PureScript as P
 import qualified Language.PureScript.CodeGen.JS as J
 import qualified Language.PureScript.CoreFn as CF
@@ -42,18 +43,12 @@ import qualified Language.PureScript.CoreFn as CF
 import Data.Char (isSpace)
 import Data.Maybe (mapMaybe, fromMaybe)
 import Data.List (isSuffixOf, sort, stripPrefix)
-#if __GLASGOW_HASKELL__ < 710
-import Data.Traversable (traverse)
-#endif
 import Data.Time.Clock (UTCTime())
 
 import qualified Data.Map as M
 
 import Control.Monad
 import Control.Monad.IO.Class (liftIO)
-#if __GLASGOW_HASKELL__ < 710
-import Control.Applicative
-#endif
 import Control.Arrow ((>>>))
 
 import Control.Monad.Reader
diff --git a/tests/common/TestsSetup.hs b/tests/common/TestsSetup.hs
index 2dc1458..1ec2cd1 100644
--- a/tests/common/TestsSetup.hs
+++ b/tests/common/TestsSetup.hs
@@ -10,18 +10,13 @@
 -- |
 --
 -----------------------------------------------------------------------------
-
-{-# LANGUAGE CPP #-}
-
 module TestsSetup where
 
-import Data.Maybe (fromMaybe)
+import Prelude ()
+import Prelude.Compat
 
-#if __GLASGOW_HASKELL__ < 710
-import Control.Applicative
-#endif
+import Data.Maybe (fromMaybe)
 import Control.Monad
-
 import Control.Monad.Trans.Maybe
 
 import System.Process