X-Git-Url: https://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FCidr.hs;h=41ea9ee9a711b6af63c928419f77a7363fbaf20e;hp=14cefff09b4e2c2c94490ca857ee6bd23d38f842;hb=d34688b75f995d99e112064225735921a8d4ee28;hpb=eda0ec37ddbb65c5ac2b07eb11ffb0618c49d6cd

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 14cefff..41ea9ee 100644
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -138,41 +138,15 @@ min_host (Cidr addr mask)
     | mask == Nine = addr { octet2 = apply_mask oct2 One,
                             octet3 = min_octet,
                             octet4 = min_octet }
-    | mask == Eight = addr { octet2 = min_octet,
-                             octet3 = min_octet,
-                             octet4 = min_octet }
-    | mask == Seven = addr { octet1 = apply_mask oct1 Seven,
-                             octet2 = min_octet,
-                             octet3 = min_octet,
-                             octet4 = min_octet }
-    | mask == Six = addr { octet1 = apply_mask oct1 Six,
-                           octet2 = min_octet,
-                           octet3 = min_octet,
-                           octet4 = min_octet }
-    | mask == Five = addr { octet1 = apply_mask oct1 Five,
-                            octet2 = min_octet,
-                            octet3 = min_octet,
-                            octet4 = min_octet }
-    | mask == Four = addr { octet1 = apply_mask oct1 Four,
-                            octet2 = min_octet,
-                            octet3 = min_octet,
-                            octet4 = min_octet }
-    | mask == Three = addr { octet1 = apply_mask oct1 Three,
-                             octet2 = min_octet,
-                             octet3 = min_octet,
-                             octet4 = min_octet }
-    | mask == Two = addr { octet1 = apply_mask oct1 Two,
-                           octet2 = min_octet,
-                           octet3 = min_octet,
-                           octet4 = min_octet }
-    | mask == One = addr { octet1 = apply_mask oct1 One,
-                           octet2 = min_octet,
-                           octet3 = min_octet,
-                           octet4 = min_octet }
-    | mask == Zero = addr { octet1 = min_octet,
-                            octet2 = min_octet,
-                            octet3 = min_octet,
-                            octet4 = min_octet }
+    | mask == Eight = min_address { octet1 = oct1 }
+    | mask == Seven = min_address { octet1 = apply_mask oct1 Seven }
+    | mask == Six = min_address { octet1 = apply_mask oct1 Six }
+    | mask == Five = min_address { octet1 = apply_mask oct1 Five }
+    | mask == Four = min_address { octet1 = apply_mask oct1 Four }
+    | mask == Three = min_address { octet1 = apply_mask oct1 Three }
+    | mask == Two = min_address { octet1 = apply_mask oct1 Two }
+    | mask == One = min_address { octet1 = apply_mask oct1 One }
+    | mask == Zero = min_address
     | otherwise = addr
     where
       oct1 = (octet1 addr)