git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Fix import warnings in test suite
7e26d58Tibor Erdesz
psci/tests/Main.hs+3
compare with golang
unifiedsplit
@@ -1,11 +1,14 @@
1{-# LANGUAGE RecordWildCards #-}
1{-# LANGUAGE RecordWildCards #-}
2{-# LANGUAGE TupleSections #-}
2{-# LANGUAGE TupleSections #-}
3+{-# LANGUAGE CPP #-}
3
4
4module Main where
5module Main where
5
6
6import Control.Monad.Trans.State.Strict (runStateT)
7import Control.Monad.Trans.State.Strict (runStateT)
7import Control.Monad (when, forM)
8import Control.Monad (when, forM)
9+#if __GLASGOW_HASKELL__ < 710
8import Control.Applicative
10import Control.Applicative
11+#endif
9import Control.Monad.Writer.Strict (runWriterT)
12import Control.Monad.Writer.Strict (runWriterT)
10import Control.Monad.Trans.Except (runExceptT)
13import Control.Monad.Trans.Except (runExceptT)
11
14
tests/Main.hs+5
@@ -16,6 +16,7 @@
16{-# LANGUAGE TupleSections #-}
16{-# LANGUAGE TupleSections #-}
17{-# LANGUAGE GeneralizedNewtypeDeriving #-}
17{-# LANGUAGE GeneralizedNewtypeDeriving #-}
18{-# LANGUAGE FlexibleInstances #-}
18{-# LANGUAGE FlexibleInstances #-}
19+{-# LANGUAGE CPP #-}
19
20
20-- Failing tests can specify the kind of error that should be thrown with a
21-- Failing tests can specify the kind of error that should be thrown with a
21-- @shouldFailWith declaration. For example:
22-- @shouldFailWith declaration. For example:
@@ -41,14 +42,18 @@ import qualified Language.PureScript.CoreFn as CF
41import Data.Char (isSpace)
42import Data.Char (isSpace)
42import Data.Maybe (mapMaybe, fromMaybe)
43import Data.Maybe (mapMaybe, fromMaybe)
43import Data.List (isSuffixOf, sort, stripPrefix)
44import Data.List (isSuffixOf, sort, stripPrefix)
45+#if __GLASGOW_HASKELL__ < 710
44import Data.Traversable (traverse)
46import Data.Traversable (traverse)
47+#endif
45import Data.Time.Clock (UTCTime())
48import Data.Time.Clock (UTCTime())
46
49
47import qualified Data.Map as M
50import qualified Data.Map as M
48
51
49import Control.Monad
52import Control.Monad
50import Control.Monad.IO.Class (liftIO)
53import Control.Monad.IO.Class (liftIO)
54+#if __GLASGOW_HASKELL__ < 710
51import Control.Applicative
55import Control.Applicative
56+#endif
52import Control.Arrow ((>>>))
57import Control.Arrow ((>>>))
53
58
54import Control.Monad.Reader
59import Control.Monad.Reader
tests/common/TestsSetup.hs+1
@@ -21,6 +21,7 @@ import Data.Maybe (fromMaybe)
21import Control.Applicative
21import Control.Applicative
22#endif
22#endif
23import Control.Monad
23import Control.Monad
24+
24import Control.Monad.Trans.Maybe
25import Control.Monad.Trans.Maybe
25
26
26import System.Process
27import System.Process