Fixed redundant imports.

Author: svenpanne

src/Graphics/Rendering/OpenGL/GL/IOState.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# OPTIONS_HADDOCK hide #-}
 --------------------------------------------------------------------------------
 -- |
@@ -18,7 +19,9 @@ module Graphics.Rendering.OpenGL.GL.IOState (
    IOState(..), getIOState, peekIOState, evalIOState, nTimes
 ) where
 
+#if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ( Applicative(..) )
+#endif
 import Control.Monad ( ap, liftM, replicateM )
 import Foreign.Ptr ( Ptr, plusPtr )
 import Foreign.Storable ( Storable(sizeOf,peek) )

src/Graphics/Rendering/OpenGL/GL/Tensor.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable, CPP #-}
 --------------------------------------------------------------------------------
 -- |
 -- Module      :  Graphics.Rendering.OpenGL.GL.Tensor
@@ -19,9 +19,12 @@ module Graphics.Rendering.OpenGL.GL.Tensor (
    Vector1(..), Vector2(..), Vector3(..), Vector4(..)
 ) where
 
+#if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ( Applicative(..) )
+import Data.Foldable ( Foldable(..) )
+#endif
 import Control.Monad ( ap )
-import Data.Foldable ( Foldable(..), foldlM )
+import Data.Foldable ( foldlM )
 import Data.Ix ( Ix )
 import Data.Traversable ( Traversable(..), mapAccumL )
 import Data.Typeable ( Typeable )

src/Graphics/Rendering/OpenGL/GL/VertexAttributes.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable, CPP #-}
 {-# OPTIONS_HADDOCK hide #-}
 --------------------------------------------------------------------------------
 -- |
@@ -22,7 +22,9 @@ module Graphics.Rendering.OpenGL.GL.VertexAttributes (
    Index1(..)
 ) where
 
-import Control.Applicative
+#if !MIN_VERSION_base(4,8,0)
+import Control.Applicative ( Applicative(..) )
+#endif
 import Control.Monad
 import Data.Foldable
 import Data.Ix

src/Graphics/Rendering/OpenGL/GLU/ErrorsInternal.hs

@@ -1,5 +1,5 @@
+{-# LANGUAGE CPP #-}
 {-# OPTIONS_GHC -fno-cse #-}
-
 {-# OPTIONS_HADDOCK hide #-}
 --------------------------------------------------------------------------------
 -- |
@@ -22,8 +22,6 @@ module Graphics.Rendering.OpenGL.GLU.ErrorsInternal (
 ) where
 
 import Data.IORef ( IORef, newIORef, readIORef, writeIORef )
-import Foreign.C.String ( peekCString )
-import Foreign.Ptr ( castPtr )
 import Graphics.Rendering.GLU.Raw
 import Graphics.Rendering.OpenGL.Raw
 import System.IO.Unsafe ( unsafePerformIO )