Revision c8b199db test/hs/Test/Ganeti/TestHTools.hs

b/test/hs/Test/Ganeti/TestHTools.hs
86 86 
defGroup :: Group.Group
87 87 
defGroup = flip Group.setIdx 0 $
88 88 
             Group.create "default" Types.defaultGroupID Types.AllocPreferred
89 
                  nullIPolicy []
89 
                  [] nullIPolicy []
90 90 

  		





  91
  91
  
    
-- | Default group, as a (singleton) 'Group.List'.


  		





  92
  92
  
    
defGroupList :: Group.List


  		












Also available in:
  Unified diff