[Upgrade to support getBounds from MArray
gpolak@agh.edu.pl**20061221123809] {
hunk ./BSP.hs 298
-   newbs <- emptyBS (sizeBS (bitset map))
+   size <- sizeBS (bitset map)
+   newbs <- emptyBS size
hunk ./BitSet.hs 21
-clearAllBS bs = mapM_ (clearBS bs) [0 .. sizeBS bs - 1]
+clearAllBS bs = sizeBS bs >>= \size -> mapM_ (clearBS bs) [0 .. size - 1]
hunk ./BitSet.hs 29
-sizeBS :: BitSet -> Int
-sizeBS (BitSet bs) = rangeSize (bounds bs)
+sizeBS :: BitSet -> IO Int
+sizeBS (BitSet bs) = getBounds bs >>= return . rangeSize
+
}