diff --git a/htest/Test/Ganeti/Network.hs b/htest/Test/Ganeti/Network.hs
index 99353a202c9790aeb9a3cb588665b0192ea31cc3..6df8b82c2dd710593fe95dce6bf254f4b8b53510 100644
--- 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