From 405656b7712bfbf00b53aa1ba26450b6497c753e Mon Sep 17 00:00:00 2001
From: Helga Velroyen <helgav@google.com>
Date: Wed, 12 Dec 2012 09:38:39 +0100
Subject: [PATCH] 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>
---
htest/Test/Ganeti/Network.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/htest/Test/Ganeti/Network.hs b/htest/Test/Ganeti/Network.hs
index 99353a202..6df8b82c2 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
--
GitLab