Revision 2dcb5a26 test/hs/Test/Ganeti/Types.hs

b/test/hs/Test/Ganeti/Types.hs
83 83 
allDiskTemplates :: [DiskTemplate]
84 84 
allDiskTemplates =
85 85 
  let all_vals = [minBound..maxBound]::[DiskTemplate]
86 
      sel1 = if C.enableFileStorage
86 
      sel1 = if C.enableSharedFileStorage
87 87 
               then all_vals
88 
               else delete DTFile all_vals
89 
      sel2 = if C.enableSharedFileStorage
90 
               then sel1
91 
               else delete DTSharedFile sel1
92 
  in sel2
88 
               else delete DTSharedFile all_vals
89 
  in sel1
93 90 

  		





  94
  91
  
    
-- | Custom 'Arbitrary' instance for 'DiskTemplate', which needs to


  		





  95
  92
  
    
-- handle the case of file storage being disabled at configure time.


  		





  ......




  114
  111
  
    

  		





  115
  112
  
    
-- | Valid storage types.


  		





  116
  113
  
    
allStorageTypes :: [StorageType]


  		





  117
  
  
    
allStorageTypes =


  		





  118
  
  
    
  let all_vals = [minBound..maxBound]::[StorageType]


  		





  119
  
  
    
  in if C.enableFileStorage


  		





  120
  
  
    
       then all_vals


  		





  121
  
  
    
       else delete StorageFile all_vals


  		





  
  114
  
    
allStorageTypes = [minBound..maxBound]::[StorageType]


  		





  122
  115
  
    

  		





  123
  116
  
    
-- | Custom 'Arbitrary' instance for 'StorageType', which needs to


  		





  124
  117
  
    
-- handle the case of file storage being disabled at configure time.


  		












Also available in:
  Unified diff