Add an Ord instance for Cidr and use it to implement Eq.

[hath.git] / src / IPv4Address.hs

diff --git a/src/IPv4Address.hs b/src/IPv4Address.hs
index 698594437d7f4a4b0470e96fc67d743221b2a5aa..80a499ec88f66e1907471ea7e0fb2af10ac9d5c3 100644 (file)
--- a/src/IPv4Address.hs
+++ b/src/IPv4Address.hs
@@ -30,7 +30,7 @@ data IPv4Address =
                 octet2 :: Octet,
                 octet3 :: Octet,
                 octet4 :: Octet }
-    deriving (Eq)
+    deriving (Eq, Ord)
 
 
 instance Show IPv4Address where