summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPhilFreeman <>2015-11-18 22:57:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-11-18 22:57:00 (GMT)
commitd75ce7f45344db8d92286cd08068533fa7ffc910 (patch)
tree8e4f359452fd06135901d650eda6066f4b144cba /tests
parentf3ee228f5b4344865f80698a60731c11ca36d65f (diff)
version 0.7.6.10.7.6.1
Diffstat (limited to 'tests')
-rw-r--r--tests/Main.hs11
-rw-r--r--tests/common/TestsSetup.hs11
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