Revision 2a58a7b1

b/src/Ganeti/HTools/Program/Hsqueeze.hs
85 85
  . any (Instance.usesLocalStorage . flip Container.find il)
86 86
  $ Node.pList nd
87 87

  
88
-- | Predicate of not being secondary node for any instance
89
noSecondaries :: Node.Node -> Bool
90
noSecondaries = null . Node.sList
91

  
88 92
-- | Predicate whether, in a configuration, all running instances are on
89 93
-- online nodes.
90 94
allInstancesOnOnlineNodes :: (Node.List, Instance.List) -> Bool
......
210 214
        . filter (foldl (liftA2 (&&)) (const True)
211 215
                  [ not . Node.offline
212 216
                  , not . Node.isMaster
217
                  , noSecondaries
213 218
                  , onlyExternal (nlf, ilf)
214 219
                  ])
215 220
        $ nodelist

Also available in: Unified diff