diff options
| author | simonmar <unknown> | 2000-03-13 10:28:51 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-03-13 10:28:51 +0000 |
| commit | 31b58a939468fb6c245a4beb5dcbd75f03c4e76c (patch) | |
| tree | 8b35a37ae6ad92a494d60d505407c02ae3b0ae29 /ghc/compiler/utils/FastString.lhs | |
| parent | 524c42a48c27b1ac064cf54d4b8aa05122c63a79 (diff) | |
| download | haskell-31b58a939468fb6c245a4beb5dcbd75f03c4e76c.tar.gz | |
[project @ 2000-03-13 10:28:51 by simonmar]
Pick up the pieces after Sven's Saturday Night Fever :)
Diffstat (limited to 'ghc/compiler/utils/FastString.lhs')
| -rw-r--r-- | ghc/compiler/utils/FastString.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs index 80b8c39fe1..1765b72bee 100644 --- a/ghc/compiler/utils/FastString.lhs +++ b/ghc/compiler/utils/FastString.lhs @@ -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#) |