Fungi-1.0.6: src/Data/LogicalBits.hs

module Data.LogicalBits (
    logicalBit
  , testLogicalBit
  ) where

import Prelude hiding (fromInteger, toInteger)

import Data.Bits

-----------------------------------------------------------

toInt :: (Integral a) => a -> Int
toInt = fromIntegral

fromInt :: (Integral a) => Int -> a
fromInt = fromIntegral

logicalBit :: (Bits a, Integral a) => Int -> a
logicalBit = fromInt . bit

testLogicalBit :: (Bits a, Integral a) => a -> Int -> Bool
testLogicalBit n = testBit $ toInt n