From 89a16d32889b369508faa8a069abffa3257d3a4f Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 9 Feb 2006 09:37:04 +0000
Subject: [PATCH] Fix CPP failure by adding space before hASH_TBL_SIZE

---
 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 4d432e6..ea30779 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -436,7 +436,7 @@ nilFS = mkFastString ""
 getFastStringTable :: IO [[FastString]]
 getFastStringTable = do
   tbl <- readIORef string_table
-  buckets <- mapM (lookupTbl tbl) [0..hASH_TBL_SIZE]
+  buckets <- mapM (lookupTbl tbl) [0 .. hASH_TBL_SIZE]
   return buckets
 
 -- -----------------------------------------------------------------------------
-- 
1.7.10.4