git.iko.soy/text
on master help sign in
Tidy up imports.

--HG-- extra : convert_revision : 6394779b44acffd1a5dfc35552d979e3b4883774

commitd88331bc55fe1e47ae1405051280778866137bc2 authorBryan O'Sullivan <bos@serpentine.com> dateTue 15 Dec 2009, 01:19 (17 years ago) parent53836e2
3 files changed+15−33
compare with master
unifiedsplit
Data/Text/IO.hs+5−10 Data/Text/IO/Internal.hs+5−11 Data/Text/Lazy/IO.hs+5−12
Data/Text/IO.hs+5−10
@@ -43,19 +43,14 @@ import Data.Text.Encoding (decodeUtf8, encodeUtf8)
4343import Control.Exception (throw)
4444import Data.IORef (readIORef, writeIORef)
4545import qualified Data.Text as T
46−import Data.Text.Fusion (stream, unstream)
46+import Data.Text.Fusion (stream)
4747import Data.Text.Fusion.Internal (Step(..), Stream(..))
48−import Data.Text.Fusion.Size (exactSize, maxSize)
4948import Data.Text.IO.Internal (hGetLineWith, readChunk)
50−import Data.Text.Unsafe (inlinePerformIO)
51−import Foreign.Storable (peekElemOff)
5249import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
53− RawCharBuffer, bufferAdjustL, bufferElems, charSize,
54− emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
55− withRawBuffer, writeCharBuf)
56−import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
57− wantReadableHandle_, hClose_help,
58− wantReadableHandle, wantWritableHandle)
50+ RawCharBuffer, emptyBuffer, isEmptyBuffer, newCharBuffer,
51+ writeCharBuf)
52+import GHC.IO.Handle.Internals (augmentIOError, hClose_help, wantReadableHandle,
53+ wantWritableHandle)
5954import GHC.IO.Handle.Text (commitBuffer')
6055import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
6156 Newline(..))
Data/Text/IO/Internal.hs+5−11
@@ -19,24 +19,18 @@ module Data.Text.IO.Internal
1919 ) where
2020
2121#if __GLASGOW_HASKELL__ >= 612
22−import Control.Exception (throw)
2322import Data.IORef (readIORef, writeIORef)
2423import Data.Text (Text)
25−import Data.Text.Fusion (stream, unstream)
24+import Data.Text.Fusion (unstream)
2625import Data.Text.Fusion.Internal (Step(..), Stream(..))
2726import Data.Text.Fusion.Size (exactSize, maxSize)
2827import Data.Text.Unsafe (inlinePerformIO)
2928import Foreign.Storable (peekElemOff)
30−import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
31− RawCharBuffer, bufferAdjustL, bufferElems, charSize,
32− emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
29+import GHC.IO.Buffer (Buffer(..), CharBuffer, RawCharBuffer, bufferAdjustL,
30+ bufferElems, charSize, isEmptyBuffer, readCharBuf,
3331 withRawBuffer, writeCharBuf)
34−import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
35− wantReadableHandle_, hClose_help,
36− wantReadableHandle, wantWritableHandle)
37−import GHC.IO.Handle.Text (commitBuffer')
38−import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
39− Newline(..))
32+import GHC.IO.Handle.Internals (ioe_EOF, readTextDevice, wantReadableHandle_)
33+import GHC.IO.Handle.Types (Handle__(..), Newline(..))
4034import System.IO (Handle)
4135import System.IO.Error (isEOFError)
4236import qualified Data.Text as T
Data/Text/Lazy/IO.hs+5−12
@@ -44,20 +44,13 @@ import qualified Data.ByteString.Char8 as S8
4444import qualified Data.ByteString.Lazy.Char8 as L8
4545#else
4646import Control.Exception (throw)
47−import Data.IORef (readIORef, writeIORef)
47+import Data.IORef (readIORef)
4848import Data.Text.IO.Internal (hGetLineWith, readChunk)
49−import GHC.IO.Buffer (Buffer(..), BufferState(..), CharBufElem, CharBuffer,
50− RawCharBuffer, bufferAdjustL, bufferElems, charSize,
51− emptyBuffer, isEmptyBuffer, newCharBuffer, readCharBuf,
52− withRawBuffer, writeCharBuf)
49+import GHC.IO.Buffer (isEmptyBuffer)
5350import GHC.IO.Exception (IOException(..), IOErrorType(..), ioException)
54−import GHC.IO.Handle.Internals (augmentIOError, ioe_EOF, readTextDevice,
55− wantReadableHandle_, hClose_help,
56− wantReadableHandle, wantWritableHandle,
57− withHandle)
58−import GHC.IO.Handle.Text (commitBuffer')
59−import GHC.IO.Handle.Types (BufferList(..), BufferMode(..), Handle__(..),
60− HandleType(..), Newline(..))
51+import GHC.IO.Handle.Internals (augmentIOError, hClose_help,
52+ wantReadableHandle, withHandle)
53+import GHC.IO.Handle.Types (Handle__(..), HandleType(..))
6154import System.IO.Error (isEOFError)
6255import System.IO.Unsafe (unsafeInterleaveIO)
6356#endif