Revision e713a686

b/src/Ganeti/OpCodes.hs
34 34 
  , mkDiskIndex
35 35 
  , unDiskIndex
36 36 
  , opID
37 
  , opReasonSrcID
37 38 
  , allOpIDs
38 39 
  , allOpFields
39 40 
  , opSummary
......
914 915 
-- | A list of all defined/supported opcode IDs.
915 916 
$(genAllOpIDs ''OpCode "allOpIDs")
916 917 

  		





  
  918
  
    
-- | Convert the opcode name to lowercase with underscores and strip


  		





  
  919
  
    
-- the @Op@ prefix.


  		





  
  920
  
    
$(genOpLowerStrip (C.opcodeReasonSrcOpcode ++ ":") ''OpCode "opReasonSrcID")


  		





  
  921
  
    

  		





  917
  922
  
    
instance JSON OpCode where


  		





  918
  923
  
    
  readJSON = loadOpCode


  		





  919
  924
  
    
  showJSON = saveOpCode


  		












Also available in:
  Unified diff