X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FIPv4Address.hs;h=5296b24716de40985259ba253ced4bf769097d98;hb=031b95f3bf040669ec28d29af0577ce58b5c1f68;hp=8c5d4837853cb3511f59c38049d98d29e5d144fb;hpb=7d9a55cb4f217bada3c66f585cd1ce35dc564fb1;p=hath.git

diff --git a/src/IPv4Address.hs b/src/IPv4Address.hs
index 8c5d483..5296b24 100644
--- a/src/IPv4Address.hs
+++ b/src/IPv4Address.hs
@@ -24,7 +24,20 @@ data IPv4Address = None | IPv4Address { octet1 :: Octet,
                                         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