From 31b58a939468fb6c245a4beb5dcbd75f03c4e76c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 13 Mar 2000 10:28:51 +0000
Subject: [PATCH] [project @ 2000-03-13 10:28:51 by simonmar] Pick up the
 pieces after Sven's Saturday Night Fever :)

---
 ghc/compiler/utils/FastString.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 80b8c39fe14a..1765b72bee78 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#)
-- 
GitLab