diff options
Diffstat (limited to 'compiler/codeGen/Bitmap.hs')
| -rw-r--r-- | compiler/codeGen/Bitmap.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/codeGen/Bitmap.hs b/compiler/codeGen/Bitmap.hs index 7ee78a973f..3b363fd24e 100644 --- a/compiler/codeGen/Bitmap.hs +++ b/compiler/codeGen/Bitmap.hs @@ -16,7 +16,8 @@ module Bitmap ( Bitmap, mkBitmap, intsToBitmap, intsToReverseBitmap, - mAX_SMALL_BITMAP_SIZE + mAX_SMALL_BITMAP_SIZE, + seqBitmap, ) where #include "HsVersions.h" @@ -24,6 +25,7 @@ module Bitmap ( import SMRep import Constants +import Util import Data.Bits @@ -85,3 +87,6 @@ mAX_SMALL_BITMAP_SIZE :: Int mAX_SMALL_BITMAP_SIZE | wORD_SIZE == 4 = 27 | otherwise = 58 +seqBitmap :: Bitmap -> a -> a +seqBitmap = seqList + |