Revision 0f0d7aba htest/Test/Ganeti/Objects.hs

b/htest/Test/Ganeti/Objects.hs
131 131 
instance Arbitrary NodeGroup where
132 132 
  arbitrary = NodeGroup <$> genFQDN <*> pure [] <*> arbitrary <*> arbitrary
133 133 
                        <*> arbitrary <*> pure (GenericContainer Map.empty)
134 
                        <*> arbitrary
134 135 
                        -- ts
135 136 
                        <*> arbitrary <*> arbitrary
136 137 
                        -- uuid

Also available in: Unified diff