diff options
| author | Ryan Newton <rrnewton@gmail.com> | 2013-08-31 15:28:02 -0400 |
|---|---|---|
| committer | Ryan Newton <rrnewton@gmail.com> | 2013-08-31 15:28:02 -0400 |
| commit | e251a51a990c3a9c95dabab139d42ad69479f61c (patch) | |
| tree | 94243fe32bb64d0cab79074ef8de8cb3530d2973 /compiler/utils/FastString.lhs | |
| parent | 6fd60b2382efa357fe99fa017fd343db9724d43a (diff) | |
| parent | ea87014a7ad4454f18bb15f6f0ee4b6e61b148be (diff) | |
| download | haskell-e251a51a990c3a9c95dabab139d42ad69479f61c.tar.gz | |
Merge branch 'master' into atomics
Diffstat (limited to 'compiler/utils/FastString.lhs')
| -rw-r--r-- | compiler/utils/FastString.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 25f98021f4..2800d8ab2e 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -530,7 +530,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-1] return buckets -- ----------------------------------------------------------------------------- |