Commit 31b58a93 authored by simonmar's avatar simonmar

[project @ 2000-03-13 10:28:51 by simonmar]

Pick up the pieces after Sven's Saturday Night Fever :)
parent 524c42a4
......@@ -626,7 +626,7 @@ hPutFS handle (FastString _ l# ba#)
| l# ==# 0# = return ()
#if __GLASGOW_HASKELL__ < 405
| otherwise = hPutBufBA handle (ByteArray bot ba#) (I# l#)
#elsif __GLASGOW_HASKELL__ < 407
#elif __GLASGOW_HASKELL__ < 407
| otherwise = hPutBufBA handle (ByteArray bot bot ba#) (I# l#)
#else
| otherwise = do mba <- stToIO $ unsafeThawByteArray (ByteArray (bot::Int) bot 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