Revision 8106dd64 src/Ganeti/Types.hs

b/src/Ganeti/Types.hs
297 297 
       , ("DTDrbd8",      "drbd")
298 298 
       , ("DTRbd",        "rbd")
299 299 
       , ("DTExt",        "ext")
300 
       , ("DTGluster",    "gluster")
300 301 
       ])
301 302 
$(THH.makeJSONInstance ''DiskTemplate)
302 303 

  		





  ......




  530
  531
  
    
diskTemplateToStorageType DTRbd = StorageRados


  		





  531
  532
  
    
diskTemplateToStorageType DTDiskless = StorageDiskless


  		





  532
  533
  
    
diskTemplateToStorageType DTBlock = StorageBlock


  		





  
  534
  
    
diskTemplateToStorageType DTGluster = StorageFile


  		





  533
  535
  
    

  		





  534
  536
  
    
-- | Equips a raw storage unit with its parameters


  		





  535
  537
  
    
addParamsToStorageUnit :: SPExclusiveStorage -> StorageUnitRaw -> StorageUnit


  		












Also available in:
  Unified diff