Commit 405656b7 authored by Helga Velroyen's avatar Helga Velroyen
Browse files

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: default avatarHelga Velroyen <>
Reviewed-by: default avatarIustin Pop <>
parent fcc1977b
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment