diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-10-25 03:39:19 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-25 09:14:29 -0500 |
| commit | f57ba1d74ca434f6025347c70769c9f1889abcc5 (patch) | |
| tree | 7e4ebd0dfa54d9995a5b115c743c966188f59fe2 /compiler/utils/FastString.lhs | |
| parent | f213e48447050bf468bc4d91fc4d810402c23b85 (diff) | |
| download | haskell-f57ba1d74ca434f6025347c70769c9f1889abcc5.tar.gz | |
Placate clang (#8444, #8445)
Once again the whitespace rules (and the rules concerning expansion of
tokens) have bitten us.
Authored-by: Authored-by: Luke Iannini <lukexi@me.com>
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/utils/FastString.lhs')
| -rw-r--r-- | compiler/utils/FastString.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 4c03cc7693..a4908b58c1 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -241,7 +241,7 @@ string_table = unsafePerformIO $ do tab <- IO $ \s1# -> case newArray# hASH_TBL_SIZE_UNBOXED (panic "string_table") s1# of (# s2#, arr# #) -> (# s2#, FastStringTable uid arr# #) - forM_ [0..hASH_TBL_SIZE-1] $ \i -> do + forM_ [0.. hASH_TBL_SIZE-1] $ \i -> do bucket <- newIORef [] updTbl tab i bucket @@ -544,7 +544,7 @@ nilFS = mkFastString "" getFastStringTable :: IO [[FastString]] getFastStringTable = do - buckets <- forM [0..hASH_TBL_SIZE-1] $ \idx -> do + buckets <- forM [0.. hASH_TBL_SIZE-1] $ \idx -> do bucket <- lookupTbl string_table idx readIORef bucket return buckets |