Revision b37f4a76 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
803 803 
                ctags ==? ctags2 .&&.
804 804 
                Types.defIPolicy ==? cpol2 .&&.
805 805 
                il' ==? il2 .&&.
806 
                -- we need to override the policy manually for now for
807 
                -- nodes and groups
808 
                defGroupList ==? (Container.map (\g -> g { Group.iPolicy =
809 
                                                             nullIPolicy } )
810 
                                  gl2) .&&.
811 
                nl' ==? Container.map (Node.setPolicy nullIPolicy) nl2
806 
                defGroupList ==? gl2 .&&.
807 
                nl' ==? nl2
812 808 

  		





  813
  809
  
    
testSuite "Text"


  		





  814
  810
  
    
            [ 'prop_Text_Load_Instance


  		












Also available in:
  Unified diff