From b90b397f348edca15cf8181309f25d3be1e641ab Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 8 May 2010 12:58:51 -0400
Subject: [PATCH] Define a show instance for Cidr.

---
 src/Cidr.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 266b7c5..df35138 100644
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -13,7 +13,12 @@ import Octet
 
 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
-- 
2.43.2