X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=src%2FIPv4Pattern.hs;h=8c605ff97cbfb8881301298897da51b88bb8edae;hp=70322d19e8ceeaaf45cacfd13f611ba64178e1fa;hb=3beaa57bb0853ef3ab417a3f1bbbcddc2589cee4;hpb=edb0055e306eb6b323bbc75bfb7d15089344af81

diff --git a/src/IPv4Pattern.hs b/src/IPv4Pattern.hs
index 70322d1..8c605ff 100644
--- a/src/IPv4Pattern.hs
+++ b/src/IPv4Pattern.hs
@@ -21,7 +21,11 @@
 --   v4sequence = v4seq_member | v4sequence ";" v4seq_member
 --   v4seq_member = v4octet | v4octet ".." v4octet
 --
-module IPv4Pattern
+module IPv4Pattern (
+  IPv4Pattern,
+  addresses,
+  ipv4pattern_tests,
+  v4pattern)
 where
 
 
@@ -39,7 +43,7 @@ import Text.Parsec (
 import Text.Parsec.String ( Parser )
 import Text.Read ( readMaybe )
 
-import Pretty
+import Pretty ( Pretty(..) )
 
 
 -- * Octets
@@ -416,6 +420,11 @@ addresses (IPv4Pattern field1 field2 field3 field4) = do
 
 -- * Tests
 
+ipv4pattern_tests :: TestTree
+ipv4pattern_tests =
+  testGroup "IPv4Pattern Tests" [ v4octet_tests ]
+
+
 v4octet_tests :: TestTree
 v4octet_tests =
   testGroup