where
cidr1 = fromJust $ cidr_from_string "10.0.0.16/32"
cidr2 = fromJust $ cidr_from_string "10.0.0.17/32"
-
- cidr3 = fromJust $ cidr_from_string "10.0.0.18/32"
+ cidr3 = fromJust $ cidr_from_string "10.0.0.18/32"
cidr4 = fromJust $ cidr_from_string "10.0.0.19/32"
expected_cidrs = [fromJust $ cidr_from_string "10.0.0.16/30"]
test_cidrs = [cidr1, cidr2, cidr3, cidr4]