bitwise-0.2: base45/Compat.hs

module Compat
  ( unsafeIOToST
  , uncons
  , packCStringLen
  , unsafeUseAsCStringLen
  , popCount
  , zeroBits
  ) where

import Control.Monad.ST.Unsafe (unsafeIOToST)
import Data.ByteString (uncons, packCStringLen)
import Data.ByteString.Unsafe (unsafeUseAsCStringLen)
import Data.Bits (Bits, popCount, clearBit, bit)

zeroBits :: Bits b => b
zeroBits = clearBit (bit 0) 0