Remove redundant imports

Test/Opaleye/Test/Arbitrary.hs

@@ -16,7 +16,7 @@ import qualified Opaleye as O
 import qualified Opaleye.Exists as OE
 import qualified Opaleye.Join as OJ
 
-import Control.Applicative (pure, (<$>), (<*>), liftA2)
+import Control.Applicative (liftA2)
 import qualified Control.Arrow as Arrow
 import Control.Arrow ((<<<))
 import Control.Category ((.), id)

Test/Opaleye/Test/Fields.hs

@@ -18,7 +18,6 @@ import qualified Opaleye.Internal.MaybeFields as OM
 import qualified Opaleye.Internal.Values as OV
 
 import Control.Arrow ((>>>))
-import Control.Applicative (pure)
 import qualified Data.Profunctor.Product.Default as D
 import qualified Data.Profunctor as P
 import qualified Data.Profunctor.Product as PP

Test/QuickCheck.hs

@@ -20,7 +20,6 @@ import qualified Opaleye.Join as OJ
 import qualified Opaleye.Exists as OE
 
 import qualified Database.PostgreSQL.Simple as PGS
-import Control.Applicative (Applicative, pure, (<$>), (<*>))
 import qualified Control.Arrow as Arrow
 import Control.Arrow ((<<<))
 import Control.Category (Category, (.), id)

Test/Test.hs

@@ -6,7 +6,7 @@
 module Main where
 
 import qualified Configuration.Dotenv as Dotenv
-import Control.Applicative ((<$>), (<*>), (<|>))
+import Control.Applicative ((<|>))
 import qualified Control.Applicative as A
 import Control.Arrow ((&&&), (***), (<<<), (>>>))
 import qualified Control.Arrow as Arr
@@ -15,7 +15,6 @@ import qualified Data.Aeson as Json
 import qualified Data.Function as F
 import Data.Int (Int32)
 import qualified Data.List as L
-import Data.Monoid ((<>))
 import qualified Data.Ord as Ord
 import qualified Data.Profunctor as P
 import qualified Data.Profunctor.Product as PP

src/Opaleye/Aggregate.hs

@@ -35,14 +35,12 @@ module Opaleye.Aggregate
  , countRows
  ) where
 
-import Control.Applicative (pure)
 import Data.Profunctor (lmap)
 import qualified Data.Profunctor as P
 import Data.Profunctor.Product.Default (def)
 
 import qualified Opaleye.Internal.Aggregate as A
 import Opaleye.Internal.Aggregate (Aggregator, orderAggregate)
-import qualified Opaleye.Internal.Column as IC
 import Opaleye.Internal.MaybeFields (MaybeFields (MaybeFields))
 import qualified Opaleye.Internal.QueryArr as Q
 import qualified Opaleye.Internal.HaskellDB.PrimQuery as HPQ

src/Opaleye/FunctionalJoin.hs

@@ -10,9 +10,6 @@ module Opaleye.FunctionalJoin (
  fullJoinF,
  ) where
 
-import Control.Applicative ((<$>), (<*>))
-import Control.Arrow ((<<<))
-
 import qualified Data.Profunctor.Product.Default as D
 import qualified Data.Profunctor.Product as PP
 

src/Opaleye/Internal/Aggregate.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE TupleSections #-}
 module Opaleye.Internal.Aggregate where
 
-import Control.Applicative (Applicative, liftA2, pure, (<*>))
+import Control.Applicative (liftA2)
 import Data.Foldable (toList)
 import Data.Traversable (for)
 

src/Opaleye/Internal/Binary.hs

@@ -17,7 +17,6 @@ import Data.Profunctor.Product (ProductProfunctor)
 import qualified Data.Profunctor.Product as PP
 import Data.Profunctor.Product.Default (Default, def)
 
-import Control.Applicative (Applicative, pure, (<*>))
 import Control.Arrow ((***))
 
 extractBinaryFields :: T.Tag -> (HPQ.PrimExpr, HPQ.PrimExpr)

src/Opaleye/Internal/Constant.hs

@@ -25,9 +25,6 @@ import Data.Profunctor.Product (empty, (***!), (+++!))
 import qualified Data.Profunctor.Product.Default as D
 import qualified Data.Profunctor as P
 
-import Control.Applicative (Applicative, pure, (<*>))
-import Data.Functor ((<$>))
-
 import qualified Database.PostgreSQL.Simple.Range as R
 import Database.PostgreSQL.Simple.Newtypes ( Aeson, getAeson )
 

src/Opaleye/Internal/Distinct.hs

@@ -10,8 +10,6 @@ import Opaleye.Select (Select)
 import Opaleye.Field (Field_)
 import Opaleye.Aggregate (Aggregator, groupBy, aggregate)
 
-import Control.Applicative (Applicative, pure, (<*>))
-
 import qualified Data.Profunctor as P
 import qualified Data.Profunctor.Product as PP
 import Data.Profunctor.Product.Default (Default, def)

src/Opaleye/Internal/HaskellDB/Sql/Default.hs

@@ -6,8 +6,6 @@
 
 module Opaleye.Internal.HaskellDB.Sql.Default where
 
-import Control.Applicative ((<$>))
-
 import Opaleye.Internal.HaskellDB.PrimQuery
 import qualified Opaleye.Internal.HaskellDB.PrimQuery as PQ
 import Opaleye.Internal.HaskellDB.Sql

src/Opaleye/Internal/JSONBuildObjectFields.hs

@@ -9,7 +9,6 @@ import Opaleye.Internal.Column (Field_(Column))
 import Opaleye.Field (Field)
 import Opaleye.Internal.HaskellDB.PrimQuery (Literal (StringLit), PrimExpr (ConstExpr, FunExpr))
 import Opaleye.Internal.PGTypesExternal (SqlJson)
-import Data.Semigroup
 
 -- | Combine @JSONBuildObjectFields@ using @('<>')@
 newtype JSONBuildObjectFields

src/Opaleye/Internal/Optimize.hs

@@ -8,9 +8,8 @@ import qualified Opaleye.Internal.PrimQuery as PQ
 import Opaleye.Internal.Helpers ((.:))
 
 import qualified Data.List.NonEmpty as NEL
-import Data.Semigroup ((<>))
 
-import Control.Applicative ((<$>), (<*>), liftA2, pure)
+import Control.Applicative (liftA2)
 import Control.Arrow (first)
 
 optimize :: PQ.PrimQuery' a -> PQ.PrimQuery' a

src/Opaleye/Internal/PackMap.hs

@@ -7,7 +7,7 @@ import qualified Opaleye.Internal.Tag as T
 
 import qualified Opaleye.Internal.HaskellDB.PrimQuery as HPQ
 
-import Control.Applicative (Applicative, pure, (<*>), liftA2)
+import Control.Applicative (liftA2)
 import Control.Arrow (first, second)
 import qualified Control.Monad.Trans.State as State
 import Data.Profunctor (Profunctor, dimap, rmap)

src/Opaleye/Internal/PrimQuery.hs

@@ -5,7 +5,6 @@ module Opaleye.Internal.PrimQuery where
 import Prelude hiding (product)
 
 import qualified Data.List.NonEmpty as NEL
-import Data.Semigroup (Semigroup, (<>))
 import qualified Opaleye.Internal.HaskellDB.Sql as HSql
 import qualified Opaleye.Internal.HaskellDB.PrimQuery as HPQ
 import Opaleye.Internal.HaskellDB.PrimQuery (Symbol)

src/Opaleye/Internal/QueryArr.hs

@@ -18,11 +18,9 @@ import qualified Control.Arrow as Arr
 import Control.Arrow ((&&&), (***), arr, returnA)
 import qualified Control.Category as C
 import Control.Category ((<<<), id)
-import Control.Applicative (Applicative, pure, (<*>))
 import Control.Monad.Trans.State.Strict (State, evalState, runState, state)
 import qualified Data.Profunctor as P
 import qualified Data.Profunctor.Product as PP
-import Data.Semigroup ((<>))
 
 -- | A parametrised 'Select'. A @SelectArr a b@ accepts an argument
 -- of type @a@.

src/Opaleye/Internal/RunQuery.hs

@@ -7,7 +7,7 @@
 module Opaleye.Internal.RunQuery where
 
 import Control.Applicative
- (Applicative, pure, (<$>), (*>), (<*>), liftA2)
+ (liftA2)
 
 import qualified Database.PostgreSQL.Simple as PGS
 import qualified Database.PostgreSQL.Simple.Cursor as PGSC (Cursor)

src/Opaleye/Internal/RunQueryExternal.hs

@@ -10,7 +10,6 @@ module Opaleye.Internal.RunQueryExternal
  IRQ.FromField,
  ) where
 
-import Control.Applicative (pure, (<$>))
 import qualified Database.PostgreSQL.Simple as PGS
 import qualified Database.PostgreSQL.Simple.Cursor as PGSC
 

src/Opaleye/Internal/Table.hs

@@ -18,9 +18,7 @@ import Data.Profunctor (Profunctor, dimap, lmap)
 import Data.Profunctor.Product (ProductProfunctor)
 import qualified Data.Profunctor.Product as PP
 import qualified Data.List.NonEmpty as NEL
-import Data.Monoid (Monoid, mempty, mappend)
-import Data.Semigroup (Semigroup, (<>))
-import Control.Applicative (Applicative, pure, (<*>), liftA2)
+import Control.Applicative (liftA2)
 import qualified Control.Arrow as Arr
 
 -- | Define a table as follows, where \"id\", \"color\", \"location\",

src/Opaleye/Internal/Unpackspec.hs

@@ -8,7 +8,6 @@ import qualified Opaleye.Internal.PackMap as PM
 import qualified Opaleye.Internal.Column as IC
 import qualified Opaleye.Field as F
 
-import Control.Applicative (Applicative, pure, (<*>))
 import Data.Profunctor (Profunctor, dimap)
 import Data.Profunctor.Product (ProductProfunctor)
 import qualified Data.Profunctor.Product as PP

src/Opaleye/Internal/Values.hs

@@ -8,7 +8,6 @@ module Opaleye.Internal.Values where
 import Opaleye.Internal.Column (Field_(Column))
 import qualified Opaleye.Internal.Column as C
 import qualified Opaleye.Column as OC
-import qualified Opaleye.Internal.Unpackspec as U
 import qualified Opaleye.Internal.Tag as T
 import qualified Opaleye.Internal.Operators as O
 import qualified Opaleye.Internal.PrimQuery as PQ
@@ -25,9 +24,8 @@ import Data.Profunctor (Profunctor, dimap, rmap, lmap)
 import Data.Profunctor.Product (ProductProfunctor)
 import qualified Data.Profunctor.Product as PP
 import Data.Profunctor.Product.Default (Default, def)
-import Data.Semigroup (Semigroup, (<>))
 
-import Control.Applicative (Applicative, pure, (<*>), liftA2)
+import Control.Applicative (liftA2)
 
 nonEmptyValues :: Rowspec columns columns'
  -> NEL.NonEmpty columns

src/Opaleye/Internal/Window.hs

@@ -11,9 +11,7 @@
 
 module Opaleye.Internal.Window where
 
-import Control.Applicative (Applicative, pure, (<*>), liftA2)
 import Data.Profunctor (lmap, Profunctor, dimap)
-import Data.Semigroup (Semigroup, (<>))
 
 import qualified Opaleye.Internal.Aggregate as A
 import qualified Opaleye.Internal.PackMap as PM