Remove usage of reserved key word 'family'

An old hlint version (1.8.28) was complaining about the
word 'family' being used in the network tests. Thanks to
an epiphany of Iustin this was due to that it is a reserved
key word.

Signed-off-by: Helga Velroyen <helgav@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>

diff --git a/htest/Test/Ganeti/Network.hs b/htest/Test/Ganeti/Network.hs
index 99353a2..6df8b82 100644 (file)
--- a/htest/Test/Ganeti/Network.hs
+++ b/htest/Test/Ganeti/Network.hs
@@ -45,7 +45,7 @@ genValidNetwork maxLenBitStr = do
   name <- genName >>= mkNonEmpty
   network_type <- genMaybe genNetworkType
   mac_prefix <- genMaybe genName
-  family <- arbitrary
+  fam <- arbitrary
   net <- genName >>= mkNonEmpty
   net6 <- genMaybe genName
   gateway <- genMaybe genName
@@ -53,7 +53,7 @@ genValidNetwork maxLenBitStr = do
   size <- genMaybe genJSValue
   res <- liftM Just (genBitString lenBitStr)
   ext_res <- liftM Just (genBitString lenBitStr)
-  let n = Network name network_type mac_prefix family net net6 gateway
+  let n = Network name network_type mac_prefix fam net net6 gateway
           gateway6 size res ext_res 0 S.empty
   return n