X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FCidr.hs;h=f13c4f36e14104fe7d12cbb9a33715928a7a908b;hp=8fc014f6cf5b062f8ae019d3b990c22a9604e9b8;hb=e061c778a9234bd4e4ed2b6fe43422cbedda7de0;hpb=a3c4fbd855c182390f39cdf88de36d7cb0ea69d5

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 8fc014f..f13c4f3 100644
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -60,8 +60,11 @@ equivalent (Cidr addr1 mbits1) (Cidr addr2 mbits2) =
 -- Returns the mask portion of a CIDR address. That is, everything
 -- after the trailing slash.
 maskbits_from_cidr_string :: String -> Maskbits
-maskbits_from_cidr_string s =
-    maskbits_from_string ((splitWith (`elem` "/") s) !! 1)
+maskbits_from_cidr_string s
+    | length partlist == 2 = maskbits_from_string (partlist !! 1)
+    | otherwise = Maskbits.None
+      where
+        partlist = (splitWith (`elem` "/") s)
 
 
 -- Takes an IP address String in CIDR notation, and returns a list of