Commit 66168bd4 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Removed unnecessary imports for GHC 7.10

parent 2d1247a3
......@@ -11,9 +11,12 @@
This module implements a check of the export specification.
-}
{-# LANGUAGE CPP #-}
module Checks.ExportCheck (exportCheck) where
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>))
#endif
import Control.Monad (unless)
import qualified Control.Monad.State as S (State, runState, gets, modify)
import Data.List (nub, union)
......@@ -351,4 +354,4 @@ errOutsideTypeExport what q tc = posMessage q
$ text what <+> text (escQualName q)
<+> text "outside type export in export list"
$+$ text "Use `" <> text (qualName tc) <+> parens (text (qualName q))
<> text "' instead"
\ No newline at end of file
<> text "' instead"
......@@ -25,10 +25,12 @@
hand side of a type declaration are actually defined and no identifier
is defined more than once.
-}
{-# LANGUAGE CPP #-}
module Checks.KindCheck (kindCheck) where
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad (unless, when)
import qualified Control.Monad.State as S (State, runState, gets, modify)
......
......@@ -18,10 +18,12 @@
and rearrange infix applications according to the relative precedences
of the operators involved.
-}
{-# LANGUAGE CPP #-}
module Checks.PrecCheck (precCheck) where
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad (unless, when)
import qualified Control.Monad.State as S (State, runState, gets, modify)
import Data.List (partition)
......
......@@ -22,10 +22,12 @@
can be recognized. Finally, all (adjacent) equations of a function are
merged into a single definition.
-}
{-# LANGUAGE CPP #-}
module Checks.SyntaxCheck (syntaxCheck) where
import Control.Applicative ((<$>), (<*>))
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad (unless, when)
import qualified Control.Monad.State as S (State, runState, gets, modify)
import Data.List (insertBy, intersect, nub, partition)
......@@ -1121,7 +1123,7 @@ errMultipleDeclarations m (i:is) = posMessage i $
text "Multiple declarations of" <+> text (escQualName (qualifyWith m i))
$+$ text "Declared at:" $+$
nest 2 (vcat (map (ppPosition . getPosition) (i:is)))
errDuplicateTypeSig :: [Ident] -> Message
errDuplicateTypeSig [] = internalError
"SyntaxCheck.errDuplicateTypeSig: empty list"
......
......@@ -25,9 +25,7 @@
{-# LANGUAGE CPP #-}
module Checks.TypeCheck (typeCheck) where
#if __GLASGOW_HASKELL__ >= 710
import Control.Applicative ((<$>))
#else
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad (replicateM, unless)
......
......@@ -13,9 +13,12 @@
This module contains the generation of an 'AbstractCurry' program term
for a given 'Curry' module.
-}
{-# LANGUAGE CPP #-}
module Generators.GenAbstractCurry (genAbstractCurry) where
import Control.Applicative
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import qualified Control.Monad.State as S (State, evalState, get, gets
, modify, put, when)
import qualified Data.Map as Map (Map, empty, fromList, lookup
......
......@@ -7,9 +7,12 @@
-- Martin Engelke (men@informatik.uni-kiel.de)
--
-- ---------------------------------------------------------------------------
{-# LANGUAGE CPP #-}
module Generators.GenFlatCurry (genFlatCurry, genFlatInterface) where
import Control.Applicative
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad (filterM, mplus)
import Control.Monad.State (State, evalState, gets, modify)
import Data.List (mapAccumL, nub)
......
......@@ -22,9 +22,7 @@
{-# LANGUAGE CPP #-}
module Transformations.CurryToIL (ilTrans, transType) where
#if __GLASGOW_HASKELL__ >= 710
import Control.Applicative ((<$>))
#else
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
......
......@@ -60,9 +60,7 @@
{-# LANGUAGE CPP #-}
module Transformations.Desugar (desugar) where
#if __GLASGOW_HASKELL__ >= 710
import Control.Applicative ((<$>))
#else
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Arrow (first, second)
......
......@@ -20,9 +20,7 @@
{-# LANGUAGE CPP #-}
module Transformations.Lift (lift) where
#if __GLASGOW_HASKELL__ >= 710
import Control.Applicative ((<$>))
#else
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import qualified Control.Monad.State as S (State, runState, gets, modify)
......
......@@ -23,9 +23,7 @@
{-# LANGUAGE CPP #-}
module Transformations.Qual (qual) where
#if __GLASGOW_HASKELL__ >= 710
import Control.Applicative ((<$>))
#else
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import qualified Control.Monad.Reader as R (Reader, asks, runReader)
......
......@@ -23,10 +23,12 @@
* Compute minimal binding groups.
* Under certain conditions, inline local function definitions.
-}
{-# LANGUAGE CPP #-}
module Transformations.Simplify (simplify) where
import Control.Applicative
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>), (<*>))
#endif
import Control.Monad.State as S (State, runState, gets, modify)
import qualified Data.Map as Map (Map, empty, insert, lookup)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment