Commits

Bryan O'Sullivan committed cf64459

Tidy up imports.

Comments (0)

Files changed (3)

 import Control.Exception (throw)
 import Data.IORef (readIORef, writeIORef)
 import qualified Data.Text as T
-import Data.Text.Fusion (stream, unstream)
+import Data.Text.Fusion (stream)
 import Data.Text.Fusion.Internal (Step(..), Stream(..))
-import Data.Text.Fusion.Size (exactSize, maxSize)
 import Data.Text.IO.Internal (hGetLineWith, readChunk)
-import Data.Text.Unsafe (inlinePerformIO)
-import Foreign.Storable (peekElemOff)
 import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
-                      RawCharBuffer, bufferAdjustL, bufferElems, charSize,
-                      emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
-                      withRawBuffer, writeCharBuf)
-import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
-                                wantReadableHandle_, hClose_help,
-                                wantReadableHandle, wantWritableHandle)
+                      RawCharBuffer, emptyBuffer, isEmptyBuffer, newCharBuffer,
+                      writeCharBuf)
+import GHC.IO.Handle.Internals (augmentIOError, hClose_help, wantReadableHandle,
+                                wantWritableHandle)
 import GHC.IO.Handle.Text (commitBuffer')
 import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
                             Newline(..))

Data/Text/IO/Internal.hs

     ) where
 
 #if __GLASGOW_HASKELL__ >= 612
-import Control.Exception (throw)
 import Data.IORef (readIORef, writeIORef)
 import Data.Text (Text)
-import Data.Text.Fusion (stream, unstream)
+import Data.Text.Fusion (unstream)
 import Data.Text.Fusion.Internal (Step(..), Stream(..))
 import Data.Text.Fusion.Size (exactSize, maxSize)
 import Data.Text.Unsafe (inlinePerformIO)
 import Foreign.Storable (peekElemOff)
-import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
-                      RawCharBuffer, bufferAdjustL, bufferElems, charSize,
-                      emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
+import GHC.IO.Buffer (Buffer(..), CharBuffer, RawCharBuffer, bufferAdjustL,
+                      bufferElems, charSize, isEmptyBuffer, readCharBuf,
                       withRawBuffer, writeCharBuf)
-import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
-                                wantReadableHandle_, hClose_help,
-                                wantReadableHandle, wantWritableHandle)
-import GHC.IO.Handle.Text (commitBuffer')
-import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
-                            Newline(..))
+import GHC.IO.Handle.Internals (ioe_EOF, readTextDevice, wantReadableHandle_)
+import GHC.IO.Handle.Types (Handle__(..), Newline(..))
 import System.IO (Handle)
 import System.IO.Error (isEOFError)
 import qualified Data.Text as T

Data/Text/Lazy/IO.hs

 import qualified Data.ByteString.Lazy.Char8 as L8
 #else
 import Control.Exception (throw)
-import Data.IORef (readIORef, writeIORef)
+import Data.IORef (readIORef)
 import Data.Text.IO.Internal (hGetLineWith, readChunk)
-import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
-                      RawCharBuffer, bufferAdjustL, bufferElems, charSize,
-                      emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
-                      withRawBuffer, writeCharBuf)
+import GHC.IO.Buffer (isEmptyBuffer)
 import GHC.IO.Exception (IOException(..), IOErrorType(..), ioException)
-import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
-                                wantReadableHandle_, hClose_help,
-                                wantReadableHandle, wantWritableHandle,
-                                withHandle)
-import GHC.IO.Handle.Text (commitBuffer')
-import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
-                            HandleType(..), Newline(..))
+import GHC.IO.Handle.Internals (augmentIOError, hClose_help,
+                                wantReadableHandle, withHandle)
+import GHC.IO.Handle.Types (Handle__(..), HandleType(..))
 import System.IO.Error (isEOFError)
 import System.IO.Unsafe (unsafeInterleaveIO)
 #endif