-- | The function @testBit b n@ returns true if the nth bit is set. Counting
--   starts at 0 at the left most bit of the left most byte of 'getBytes'
testBit :: BitString -> Word -> Bool
testBit (BitString unusedBits bs) = testBit' unusedBits bs
testBit :: BitString -> Word -> Bool
testBit (BitString unusedBits bs) = testBit' unusedBits bs
testBit (BitString unusedBits bs) = testBit' unusedBits bs