Types.hs

module PrimitiveExtras.Types where

import PrimitiveExtras.Prelude

newtype PrimMultiArray a = PrimMultiArray (UnliftedArray (PrimArray a))

-- |
-- An immutable space-efficient sparse array,
-- which can only store not more than 64 elements.
data By6Bits e = By6Bits {-# UNPACK #-} !Bitmap {-# UNPACK #-} !(SmallArray e)

-- |
-- A word-size set of ints.
newtype Bitmap = Bitmap Int64