Fixed one of the new tests (min/max).

[hath.git] / src / Cidr.hs

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 06550adcb00990d3ac0ad82713d4cac91e059113..823f43fc8b6160cd915aa7d0afd17938399250d3 100644 (file)
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -257,7 +257,7 @@ test_max_host1 :: Test
 test_max_host1 =
     TestCase $ assertEqual "The maximum host in 10.0.0.0/24 is 10.0.0.255" expected actual
     where
-      actual = show $ min_host (cidr_from_string "10.0.0.0/24")
+      actual = show $ max_host (cidr_from_string "10.0.0.0/24")
       expected = "10.0.0.255"