Revision a5ec6d88 src/Ganeti/DataCollectors/Types.hs

b/src/Ganeti/DataCollectors/Types.hs
36 36 
  , buildReport
37 37 
  ) where
38 38 

  		





  
  39
  
    
import Data.Char


  		





  39
  40
  
    
import Text.JSON


  		





  40
  41
  
    

  		





  41
  42
  
    
import Ganeti.Constants as C


  		





  ......




  48
  49
  
    

  		





  49
  50
  
    
-- | The JSON instance for DCCategory.


  		





  50
  51
  
    
instance JSON DCCategory where


  		





  51
  
  
    
  showJSON = showJSON . show


  		





  
  52
  
    
  showJSON = showJSON . map toLower . drop 2 . show


  		





  52
  53
  
    
  readJSON =


  		





  53
  54
  
    
    error "JSON read instance not implemented for type DCCategory"


  		





  54
  55
  
    

  		












Also available in:
  Unified diff