diff options
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#) |