X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCidr.hs;h=df35138aa8fca2d6f43c7a952f146f1fc8e4da87;hb=b90b397f348edca15cf8181309f25d3be1e641ab;hp=266b7c57f8a8e8318124a2518900de75a4d166ca;hpb=031b95f3bf040669ec28d29af0577ce58b5c1f68;p=hath.git

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