Revision 803dafcd

b/src/Ganeti/OpCodes.hs
47 47 
  , setOpPriority
48 48 
  ) where
49 49 

  		





  50
  
  
    
import Text.JSON (readJSON, JSObject, JSON, JSValue(..), makeObj, fromJSObject)


  		





  
  50
  
    
import Data.List (intercalate)


  		





  
  51
  
    
import Data.Map (Map)


  		





  51
  52
  
    
import qualified Text.JSON


  		





  
  53
  
    
import Text.JSON (readJSON, JSObject, JSON, JSValue(..), makeObj, fromJSObject)


  		





  52
  54
  
    

  		





  53
  
  
    
import Ganeti.THH


  		





  54
  
  
    

  		





  
  55
  
    
import qualified Ganeti.Constants as C


  		





  55
  56
  
    
import qualified Ganeti.Hs2Py.OpDoc as OpDoc


  		





  56
  57
  
    
import Ganeti.OpParams


  		





  57
  58
  
    
import Ganeti.PyValue ()


  		





  58
  
  
    
import Ganeti.Types


  		





  59
  59
  
    
import Ganeti.Query.Language (queryTypeOpToRaw)


  		





  60
  
  
    

  		





  61
  
  
    
import Data.List (intercalate)


  		





  62
  
  
    
import Data.Map (Map)


  		





  63
  
  
    

  		





  64
  
  
    
import qualified Ganeti.Constants as C


  		





  
  60
  
    
import Ganeti.THH


  		





  
  61
  
    
import Ganeti.Types


  		





  65
  62
  
    

  		





  66
  63
  
    
instance PyValue DiskIndex where


  		





  67
  64
  
    
  showValue = showValue . unDiskIndex


  		












Also available in:
  Unified diff