data Cidr = None | Cidr { ipv4address :: IPv4Address,
maskbits :: Maskbits }
- deriving (Eq, Show)
+ deriving (Eq)
+
+
+instance Show Cidr where
+ show Cidr.None = "None"
+ show cidr = (show (ipv4address cidr)) ++ "/" ++ (show (maskbits cidr))
-- Returns the mask portion of a CIDR address. That is, everything