{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Data.Bits.ToolsYj (checkBits) where

import Data.Bits

checkBits :: Bits bs => bs -> bs -> Bool
checkBits :: forall bs. Bits bs => bs -> bs -> Bool
checkBits bs
wnt = (bs -> bs -> Bool
forall a. Eq a => a -> a -> Bool
== bs
wnt) (bs -> Bool) -> (bs -> bs) -> bs -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (bs -> bs -> bs
forall a. Bits a => a -> a -> a
.&. bs
wnt)