Revision f9649b3d

b/test/hs/Test/Ganeti/HTools/Node.hs
112 112
-- lists here.
113 113
genNodeList :: Gen Node.Node -> Gen Node.List
114 114
genNodeList ngen = fmap (snd . Loader.assignIndices) names_nodes
115
    where names_nodes = (fmap . map) (\n -> (Node.name n, n)) $ listOf1 ngen
115
    where names_nodes = (fmap . map) (\n -> (Node.name n, n)) nodes
116
          nodes = listOf1 ngen `suchThat`
117
                  ((\ns -> ns == nub ns) . map Node.name)
116 118

  
117 119
-- | Generate a node list, an instance list, and a node graph.
118 120
-- We choose instances with nodes contained in the node list.

Also available in: Unified diff