octet2 :: Octet,
octet3 :: Octet,
octet4 :: Octet }
- deriving (Eq, Show)
+ deriving (Eq)
+
+
+instance Show IPv4Address where
+ show IPv4Address.None = "None"
+ show addr = concat [(show oct1) ++ ".",
+ (show oct2) ++ ".",
+ (show oct3) ++ ".",
+ (show oct4)]
+ where
+ oct1 = (octet1 addr)
+ oct2 = (octet2 addr)
+ oct3 = (octet3 addr)
+ oct4 = (octet4 addr)
-- We don't export our constructor so this function is the only