diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-04-24 12:47:54 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-04-24 12:47:54 +0000 |
| commit | 831a35dd00faff195cf938659c2dd736192b865f (patch) | |
| tree | 09b90239d250dca8fa8364c0daa80bbcef9c095c /compiler/utils/StringBuffer.lhs | |
| parent | 7936b988d6d0a5f9a9b439c7d4a6adf616ddb9b5 (diff) | |
| download | haskell-831a35dd00faff195cf938659c2dd736192b865f.tar.gz | |
Require a bang pattern when unlifted types are where/let bound; #3182
For now we only get a warning, rather than an error, because the alex
and happy templates don't follow the new rules yet.
Diffstat (limited to 'compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 1aead2d74b..2b3b775791 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -224,7 +224,7 @@ parseUnsignedInteger (StringBuffer buf _ cur) len radix char_to_int --LOL, in implementations where the indexing needs slow unsafePerformIO, --this is less (not more) efficient than using the IO monad explicitly --here. - ptr' = pUnbox ptr + !ptr' = pUnbox ptr byteOff i = cBox (indexWord8OffFastPtrAsFastChar ptr' (iUnbox (cur + i))) go i x | i == len = x | otherwise = case byteOff i of |