From: simonpj@microsoft.com <unknown>
Date: Thu, 9 Feb 2006 09:37:04 +0000 (+0000)
Subject: Fix CPP failure by adding space before hASH_TBL_SIZE
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=89a16d32889b369508faa8a069abffa3257d3a4f

Fix CPP failure by adding space before hASH_TBL_SIZE
---

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
 
 -- -----------------------------------------------------------------------------