From 1e69264c4a60fef95d0ad013f95b082b3db106ab Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 23 May 2010 12:51:26 -0400 Subject: [PATCH] Allow apply_mask to take a Bit argument that will be used to replace the host bits. --- src/Maskable.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Maskable.hs b/src/Maskable.hs index 1441c07..9e72b8e 100644 --- a/src/Maskable.hs +++ b/src/Maskable.hs @@ -1,5 +1,6 @@ module Maskable where +import Bit import Maskbits -- Any string of bits should be maskable by some number of netmask @@ -12,6 +13,9 @@ import Maskbits -- should return 127.0.0.0, since 127.0.0.1/31 matches both 127.0.0.0 -- and 127.0.0.1. In this case, the final '0' or '1' is the host -- part of the address. The '127.0.0' is thus the network part. +-- +-- The Bit argument allows us to specify whether the host bits +-- should be replaced with either Zero or One. class Maskable a where - apply_mask :: a -> Maskbits -> a + apply_mask :: a -> Maskbits -> Bit -> a -- 2.43.2