projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
26e8c3a
)
Fix CPP failure by adding space before hASH_TBL_SIZE
author
simonpj@microsoft.com
<unknown>
Thu, 9 Feb 2006 09:37:04 +0000
(09:37 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 9 Feb 2006 09:37:04 +0000
(09:37 +0000)
ghc/compiler/utils/FastString.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/FastString.lhs
b/ghc/compiler/utils/FastString.lhs
index
4d432e6
..
ea30779
100644
(file)
--- 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
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
-- -----------------------------------------------------------------------------
return buckets
-- -----------------------------------------------------------------------------