Browse Source

Clear build on GHC 7.10

Marcos Dumay de Medeiros 8 years ago
parent
commit
d65729cd93

+ 0 - 1
src/System/IO/Uniform.hs

@@ -16,7 +16,6 @@ module System.IO.Uniform (
 import Data.ByteString (ByteString)
 import qualified Data.ByteString.Lazy as LBS
 import Control.Exception
-import Control.Applicative ((<$>))
 import System.IO.Error
 
 import Data.Default.Class

+ 0 - 5
src/System/IO/Uniform/ByteString.hs

@@ -11,11 +11,6 @@ import Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as LBS
 import qualified Data.ByteString.Builder as BSBuild
---import qualified Data.List as L
---import Control.Exception
---import Control.Applicative ((<$>))
-import Data.Monoid (mappend)
---import qualified Network.Socket as Soc
 import System.IO.Error
 import Control.Concurrent.MVar
 

+ 0 - 14
src/System/IO/Uniform/File.hs

@@ -7,23 +7,9 @@ import System.IO.Uniform
 import System.IO.Uniform.External
 
 import Foreign
---import Foreign.C.Types
 import Foreign.C.String
 import Foreign.C.Error
---import qualified Data.IP as IP
---import Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
---import qualified Data.ByteString.Lazy as LBS
---import qualified Data.ByteString.Builder as BSBuild
---import qualified Data.List as L
---import Control.Exception
-import Control.Applicative ((<$>))
---import Data.Monoid (mappend)
---import qualified Network.Socket as Soc
---import System.IO.Error
---import Control.Concurrent.MVar
-
---import Data.Default.Class
 
 import System.Posix.Types (Fd(..))
 

+ 0 - 8
src/System/IO/Uniform/Network.hs

@@ -17,19 +17,11 @@ import Foreign.C.Types
 import Foreign.C.String
 import Foreign.C.Error
 import qualified Data.IP as IP
---import Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
---import qualified Data.ByteString.Lazy as LBS
---import qualified Data.ByteString.Builder as BSBuild
 import qualified Data.List as L
 import Control.Exception
-import Control.Applicative ((<$>))
---import Data.Monoid (mappend)
 import qualified Network.Socket as Soc
 import System.IO.Error
---import Control.Concurrent.MVar
-
---import Data.Default.Class
 
 import System.Posix.Types (Fd(..))
 

+ 0 - 1
src/System/IO/Uniform/Streamline.hs

@@ -55,7 +55,6 @@ import System.IO.Uniform.Streamline.Scanner
 import Data.Default.Class
 
 import Control.Monad.Trans.Class
-import Control.Applicative
 import Control.Monad (ap)
 import Control.Monad.IO.Class
 import System.IO.Error

+ 0 - 1
src/System/IO/Uniform/Streamline/Scanner.hs

@@ -5,7 +5,6 @@ module System.IO.Uniform.Streamline.Scanner (
   anyScanner
   )where
 
-import Control.Applicative
 import Data.Default.Class
 import Data.Word8 (Word8)