Tidy up imports.

yihuang · Apr 28, 2011 · 1627d70 · 1627d70
1 parent 41c4c52
commit 1627d70
Show file tree

Hide file tree

Showing 3 changed files with 35 additions and 35 deletions.
diff --git a/Database/MySQL/Base.hs b/Database/MySQL/Base.hs
@@ -61,27 +61,27 @@ module Database.MySQL.Base
     , clientVersion
     ) where
 
+import Control.Applicative ((<$>), (<*>))
+import Control.Exception (Exception, throw)
+import Control.Monad (forM_, unless, when)
 import Data.ByteString.Char8 ()
-import Data.ByteString.Internal
-import Data.ByteString.Unsafe
-import Database.MySQL.Base.Types
-import System.Mem.Weak
-import Data.List    
-import Control.Applicative
-import Data.Int
+import Data.ByteString.Internal (ByteString, create, createAndTrim, memcpy)
+import Data.ByteString.Unsafe (unsafeUseAsCStringLen)
+import Data.IORef (IORef, atomicModifyIORef, newIORef, readIORef, writeIORef)
+import Data.Int (Int64)
+import Data.List (foldl')
 import Data.Typeable (Typeable)
-import Control.Exception
-import Control.Monad
+import Data.Word (Word, Word16)
 import Database.MySQL.Base.C
-import System.IO.Unsafe
-import Data.IORef
-import Data.Word
-import Foreign.C.String
-import Foreign.C.Types
+import Database.MySQL.Base.Types
+import Foreign.C.String (CString, peekCString, withCString)
+import Foreign.C.Types (CULong)
+import Foreign.Concurrent (newForeignPtr)
 import Foreign.ForeignPtr hiding (newForeignPtr)
-import Foreign.Concurrent
-import Foreign.Marshal.Array
-import Foreign.Ptr
+import Foreign.Marshal.Array (peekArray)
+import Foreign.Ptr (Ptr, castPtr, nullPtr)
+import System.IO.Unsafe (unsafePerformIO)
+import System.Mem.Weak (Weak, deRefWeak, mkWeakPtr)
 
 -- $mgmt
 --

diff --git a/Database/MySQL/Base/C.hsc b/Database/MySQL/Base/C.hsc
@@ -59,17 +59,17 @@ module Database.MySQL.Base.C
 #include "mysql.h"
 #include <signal.h>
 
-import Database.MySQL.Base.Types
 import Control.Concurrent (rtsSupportsBoundThreads, runInBoundThread)
 import Control.Exception (finally)
-import Foreign.C.Types
+import Data.ByteString.Unsafe (unsafeUseAsCString)
+import Database.MySQL.Base.Types
+import Foreign.C.String (CString, withCString)
+import Foreign.C.Types (CInt, CUInt, CULLong, CULong)
 import Foreign.ForeignPtr (ForeignPtr, mallocForeignPtr, withForeignPtr)
+import Foreign.Marshal.Utils (with)
 import Foreign.Ptr (Ptr, nullPtr)
+import Foreign.Storable (Storable(..))
 import System.IO.Unsafe (unsafePerformIO)
-import Foreign.Storable
-import Foreign.Marshal.Utils
-import Data.ByteString.Unsafe
-import Foreign.C.String
 
 -- | Execute an 'IO' action with signals used by GHC's runtime signals
 -- blocked.  The @mysqlclient@ C library does not correctly restart

diff --git a/Database/MySQL/Base/Types.hsc b/Database/MySQL/Base/Types.hsc
@@ -36,19 +36,19 @@ module Database.MySQL.Base.Types
 
 #include "mysql.h"
 
-import Data.Monoid
-import Data.Bits
-import Data.List
-import Control.Applicative
-import Data.Maybe
-import qualified Data.IntMap as IntMap
-import Foreign.C.Types
-import Foreign.Ptr (Ptr)
-import Foreign.Storable
-import Data.Typeable (Typeable)
+import Control.Applicative ((<$>), (<*>), pure)
+import Data.Bits ((.|.), (.&.))
 import Data.ByteString hiding (intercalate)
-import Data.ByteString.Internal
-import Data.Word
+import Data.ByteString.Internal (create, memcpy)
+import Data.List (intercalate)
+import Data.Maybe (catMaybes)
+import Data.Monoid (Monoid(..))
+import Data.Typeable (Typeable)
+import Data.Word (Word, Word8)
+import Foreign.C.Types (CChar, CInt, CUInt, CULong)
+import Foreign.Ptr (Ptr)
+import Foreign.Storable (Storable(..), peekByteOff)
+import qualified Data.IntMap as IntMap
 
 data MYSQL
 data MYSQL_RES