From 031b95f3bf040669ec28d29af0577ce58b5c1f68 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 8 May 2010 12:57:14 -0400
Subject: [PATCH] Defined a show instance for IPv4Address.

---
 src/IPv4Address.hs | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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
-- 
2.43.2