Commit 1dcd4daa authored by panne's avatar panne

[project @ 2000-03-11 23:55:16 by panne]

Saturday Night Fever: hPutBufBA again... >:-(
parent 506b3566
......@@ -626,8 +626,11 @@ hPutFS handle (FastString _ l# ba#)
| l# ==# 0# = return ()
#if __GLASGOW_HASKELL__ < 405
| otherwise = hPutBufBA handle (ByteArray bot ba#) (I# l#)
#else
#elsif __GLASGOW_HASKELL__ < 407
| 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#)
#endif
where
bot = error "hPutFS.ba"
......
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