Commit fd1c3119 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-04-14 08:29:49 by simonmar]

we should be using hPutBufFull here.
parent f3653fdf
......@@ -91,7 +91,7 @@ import PrelAddr ( Addr(..) )
import MutableArray ( MutableArray(..) )
#else
import PrelArr ( STArray(..), newSTArray )
import IOExts ( hPutBuf, hPutBufBA )
import IOExts ( hPutBufFull, hPutBufBAFull )
#endif
-- ForeignObj is now exported abstractly.
......@@ -639,8 +639,7 @@ hPutFS handle (FastString _ l# ba#)
| otherwise = hPutBufBA handle (ByteArray bot bot ba#) (I# l#)
#else
| otherwise = do mba <- stToIO $ unsafeThawByteArray (ByteArray (bot::Int) bot ba#)
hPutBufBA handle mba (I# l#)
return ()
hPutBufBAFull handle mba (I# l#)
#endif
where
bot = error "hPutFS.ba"
......@@ -649,8 +648,11 @@ hPutFS handle (FastString _ l# ba#)
hPutFS handle (CharStr a# l#)
| l# ==# 0# = return ()
| otherwise = do hPutBuf handle (A# a#) (I# l#) ; return ()
#if __GLASGOW_HASKELL__ < 407
| otherwise = hPutBuf handle (A# a#) (I# l#)
#else
| otherwise = hPutBufFull handle (A# a#) (I# l#)
#endif
#endif
\end{code}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment