-- address and see if the result is the same as cidr1's mask applied
-- to cidr1's address.
--
-contains (Cidr addr1 (Maskbits mbits1)) (Cidr addr2 (Maskbits mbits2))
+contains (Cidr addr1 mbits1) (Cidr addr2 mbits2)
| mbits1 > mbits2 = False
| otherwise = addr1masked == addr2masked
where
- addr1masked = apply_mask addr1 (Maskbits mbits1)
- addr2masked = apply_mask addr2 (Maskbits mbits1)
+ addr1masked = apply_mask addr1 mbits1
+ addr2masked = apply_mask addr2 mbits1