diff options
| author | simonmar <unknown> | 2001-05-21 14:05:04 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-05-21 14:05:04 +0000 |
| commit | 19b30434646e33c499e480117994f7187084aef4 (patch) | |
| tree | 0990cc525defda8e3d5c0f248b7244626aaa3094 | |
| parent | 4c910ce4cd32472a2c35eea500e6b62b735341c6 (diff) | |
| download | haskell-19b30434646e33c499e480117994f7187084aef4.tar.gz | |
[project @ 2001-05-21 14:05:04 by simonmar]
minor performance improvement
| -rw-r--r-- | ghc/lib/std/PrelIO.hsc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ghc/lib/std/PrelIO.hsc b/ghc/lib/std/PrelIO.hsc index 0292fdf052..4eeaad1867 100644 --- a/ghc/lib/std/PrelIO.hsc +++ b/ghc/lib/std/PrelIO.hsc @@ -3,7 +3,7 @@ #undef DEBUG_DUMP -- ----------------------------------------------------------------------------- --- $Id: PrelIO.hsc,v 1.1 2001/05/18 16:54:05 simonmar Exp $ +-- $Id: PrelIO.hsc,v 1.2 2001/05/21 14:05:04 simonmar Exp $ -- -- (c) The University of Glasgow, 1992-2001 -- @@ -451,13 +451,13 @@ hPutStr handle str = do getSpareBuffer :: Handle__ -> IO (BufferMode, Buffer) -getSpareBuffer handle_ = do - let mode = haBufferMode handle_ +getSpareBuffer Handle__{haBuffer=ref, + haBuffers=spare_ref, + haBufferMode=mode} + = do case mode of NoBuffering -> return (mode, error "no buffer!") _ -> do - let spare_ref = haBuffers handle_ - ref = haBuffer handle_ bufs <- readIORef spare_ref buf <- readIORef ref case bufs of |