X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOctet.hs;h=04caae54fa6bcefab22d28415f5e2e8f6aa81064;hb=a626afee0e8a4d5a8e1b9a22c150073be6a00cc3;hp=efc19d5607550e98da3bd47221fecb403e76d9e6;hpb=ea9bf8a98dbfc40ebad2af43b6594bac0a852dcd;p=hath.git

diff --git a/src/Octet.hs b/src/Octet.hs
index efc19d5..04caae5 100644
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -73,10 +73,12 @@ max_octet = Octet One One One One One One One One
 
 
 -- HUnit Tests
+test_octet_from_int1 :: Test
 test_octet_from_int1 =
     TestCase $ assertEqual "octet_from_int 128 should parse as 10000000" oct1 (octet_from_int 128)
     where
       oct1 = Octet One Zero Zero Zero Zero Zero Zero Zero
 
 
+octet_tests :: [Test]
 octet_tests = [ test_octet_from_int1 ]