X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FCidr.hs;h=823f43fc8b6160cd915aa7d0afd17938399250d3;hp=06550adcb00990d3ac0ad82713d4cac91e059113;hb=e9664c298771be252a788d5daf74e412240a3c78;hpb=d449d173dd4fcf4a857088ffa58b4ed2dc1aa15e

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 06550ad..823f43f 100644
--- 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"