equalBS :: ByteString -> ByteString -> Bool
equalBS x y = B.length x == B.length y && 0 == sum (B.zipWith xor x y)
equalBS :: ByteString -> ByteString -> Bool
equalBS x y = B.length x == B.length y && 0 == sum (B.zipWith xor x y)
equalBS x y = B.length x == B.length y && 0 == sum (B.zipWith xor x y)