Whitespace changes only: make import lists more consistent

haskell · Dec 10, 2010 · ca025e0 · ca025e0
1 parent cbdd620
commit ca025e0
Show file tree

Hide file tree

Showing 4 changed files with 37 additions and 40 deletions.
diff --git a/Network.hs b/Network.hs
@@ -63,8 +63,8 @@ module Network
 import Control.Monad (liftM)
 import Data.Maybe (fromJust)
 import Network.BSD
-import Network.Socket hiding ( accept, socketPort, recvFrom, sendTo, PortNumber )
-import qualified Network.Socket as Socket ( accept )
+import Network.Socket hiding (accept, socketPort, recvFrom, sendTo, PortNumber)
+import qualified Network.Socket as Socket (accept)
 import System.IO
 import Prelude
 import qualified Control.Exception as Exception

diff --git a/Network/BSD.hsc b/Network/BSD.hsc
@@ -92,21 +92,21 @@ module Network.BSD
     ) where
 
 #ifdef __HUGS__
-import Hugs.Prelude ( IOException(..), IOErrorType(..) )
+import Hugs.Prelude (IOException(..), IOErrorType(..))
 #endif
 import Network.Socket
 
-import Control.Concurrent       ( MVar, newMVar, withMVar )
-import Foreign.C.Error ( throwErrnoIfMinus1, throwErrnoIfMinus1_ )
-import Foreign.C.String ( CString, peekCString, peekCStringLen, withCString )
-import Foreign.C.Types ( CInt, CULong, CChar, CSize, CShort )
-import Foreign.Ptr ( Ptr, nullPtr )
-import Foreign.Storable ( Storable(..) )
-import Foreign.Marshal.Array ( allocaArray0, peekArray0 )
-import Foreign.Marshal.Utils ( with, fromBool )
+import Control.Concurrent (MVar, newMVar, withMVar)
+import Foreign.C.Error (throwErrnoIfMinus1, throwErrnoIfMinus1_)
+import Foreign.C.String (CString, peekCString, peekCStringLen, withCString)
+import Foreign.C.Types (CInt, CULong, CChar, CSize, CShort)
+import Foreign.Ptr (Ptr, nullPtr)
+import Foreign.Storable (Storable(..))
+import Foreign.Marshal.Array (allocaArray0, peekArray0)
+import Foreign.Marshal.Utils (with, fromBool)
 import Data.Typeable
 import System.IO.Error
-import System.IO.Unsafe ( unsafePerformIO )
+import System.IO.Unsafe (unsafePerformIO)
 
 #ifdef __GLASGOW_HASKELL__
 # if __GLASGOW_HASKELL__ >= 611
@@ -116,7 +116,7 @@ import GHC.IOBase
 # endif
 #endif
 
-import Control.Monad ( liftM )
+import Control.Monad (liftM)
 
 -- ---------------------------------------------------------------------------
 -- Basic Types

diff --git a/Network/Socket.hsc b/Network/Socket.hsc
@@ -176,33 +176,34 @@ import Hugs.IO ( openFd )
 
 import Data.Bits
 import Data.List (foldl')
-import Data.Word ( Word8, Word16, Word32 )
-import Foreign.Ptr ( Ptr, castPtr, nullPtr, plusPtr )
-import Foreign.Storable ( Storable(..) )
+import Data.Word (Word8, Word16, Word32)
+import Foreign.Ptr (Ptr, castPtr, nullPtr, plusPtr)
+import Foreign.Storable (Storable(..))
 import Foreign.C.Error
-import Foreign.C.String ( CString, withCString, peekCString, peekCStringLen, castCharToCChar )
-import Foreign.C.Types ( CInt, CUInt, CChar, CSize )
-import Foreign.Marshal.Alloc ( alloca, allocaBytes )
-import Foreign.Marshal.Array ( peekArray, pokeArray, pokeArray0 )
-import Foreign.Marshal.Utils ( maybeWith, with )
+import Foreign.C.String (CString, withCString, peekCString, peekCStringLen,
+                         castCharToCChar )
+import Foreign.C.Types (CInt, CUInt, CChar, CSize)
+import Foreign.Marshal.Alloc (alloca, allocaBytes)
+import Foreign.Marshal.Array (peekArray, pokeArray, pokeArray0)
+import Foreign.Marshal.Utils (maybeWith, with)
 
 import System.IO
-import Control.Monad ( liftM, when )
-import Data.Ratio ( (%) )
+import Control.Monad (liftM, when)
+import Data.Ratio ((%))
 
 import qualified Control.Exception
 import Control.Concurrent.MVar
 import Data.Typeable
 import System.IO.Error
 
 #ifdef __GLASGOW_HASKELL__
-import GHC.Conc         (threadWaitRead, threadWaitWrite)
+import GHC.Conc (threadWaitRead, threadWaitWrite)
 ##if MIN_VERSION_base(4,3,1)
-import GHC.Conc         (closeFdWith)
+import GHC.Conc (closeFdWith)
 ##endif
 # if defined(mingw32_HOST_OS)
-import GHC.Conc         ( asyncDoProc )
-import Foreign( FunPtr )
+import GHC.Conc (asyncDoProc)
+import Foreign (FunPtr)
 # endif
 # if __GLASGOW_HASKELL__ >= 611
 import qualified GHC.IO.Device

diff --git a/Network/URI.hs b/Network/URI.hs
@@ -119,25 +119,21 @@ import Text.ParserCombinators.Parsec
     , unexpected
     )
 
-import Data.Char( ord, chr, isHexDigit, isSpace, toLower, toUpper, digitToInt )
-
-import Debug.Trace( trace )
-
-import Numeric( showIntAtBase )
-
-import Data.Maybe( isJust )
-
-import Control.Monad( MonadPlus(..) )
+import Control.Monad (MonadPlus(..))
+import Data.Char (ord, chr, isHexDigit, isSpace, toLower, toUpper, digitToInt)
+import Data.Maybe (isJust)
+import Debug.Trace (trace)
+import Numeric (showIntAtBase)
 
 #ifdef __GLASGOW_HASKELL__
-import Data.Typeable  ( Typeable )
+import Data.Typeable (Typeable)
 # if MIN_VERSION_base(4,0,0)
-import Data.Data      ( Data )
+import Data.Data (Data)
 # else
-import Data.Generics  ( Data )
+import Data.Generics (Data)
 # endif
 #else
-import Data.Typeable  ( Typeable(..), TyCon, mkTyCon, mkTyConApp )
+import Data.Typeable (Typeable(..), TyCon, mkTyCon, mkTyConApp)
 #endif
 
 ------------------------------------------------------------