X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCidr.hs;h=5a5ba3f2f332cdb6548aa23621859a9bc6bca6f3;hb=6b71fc1e444cc95acdef91ad814e4f97b01ec52e;hp=5c05ed15fb5aacffccd2a1c8c433e9a85ed22495;hpb=fb27e584ddc500520820ec3b5ede1da7cc9d2853;p=hath.git

diff --git a/src/Cidr.hs b/src/Cidr.hs
index 5c05ed1..5a5ba3f 100644
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -25,7 +25,7 @@ import Data.Maybe (catMaybes, mapMaybe)
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 import Test.Tasty.QuickCheck (
-  Arbitrary(..),
+  Arbitrary( arbitrary ),
   Gen,
   Property,
   (==>),
@@ -33,10 +33,12 @@ import Test.Tasty.QuickCheck (
 import Text.Read (readMaybe)
 
 import qualified Bit as B (Bit(..))
-import IPv4Address (IPv4Address(..), most_sig_bit_different)
-import Maskable (Maskable(..))
-import Maskbits (Maskbits(..))
-import Octet (Octet(..))
+import IPv4Address (
+  IPv4Address( IPv4Address, octet1, octet2, octet3, octet4 ),
+  most_sig_bit_different )
+import Maskable (Maskable(apply_mask))
+import Maskbits ( Maskbits(Zero) )
+import Octet (Octet())
 
 
 data Cidr = Cidr { ipv4address :: IPv4Address,