Revision a30a6178

b/htest/Test/Ganeti/Objects.hs
171 171 
  name <- genName >>= mkNonEmpty
172 172 
  network_type <- genMaybe genNetworkType
173 173 
  mac_prefix <- genMaybe genName
174 
  fam <- arbitrary
174 
  net_family <- arbitrary
175 175 
  net <- genIp4NetWithNetmask netmask
176 176 
  net6 <- genMaybe genIp6Net
177 177 
  gateway <- genMaybe genIp4AddrStr
......
179 179 
  size <- genMaybe genJSValue
180 180 
  res <- liftM Just (genBitString $ netmask2NumHosts netmask)
181 181 
  ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask)
182 
  let n = Network name network_type mac_prefix fam net net6 gateway
182 
  let n = Network name network_type mac_prefix net_family net net6 gateway
183 183 
          gateway6 size res ext_res 0 Set.empty
184 184 
  return n
185 185 

  		












Also available in:
  Unified diff