Revision b6e31235 src/Ganeti/OpCodes.hs

b/src/Ganeti/OpCodes.hs
78 78 

  		





  79
  79
  
    
instance PyValue a => PyValue (NonNegative a) where


  		





  80
  80
  
    
  showValue = showValue . fromNonNegative


  		





  81
  
  
    
  


  		





  
  81
  
    

  		





  82
  82
  
    
instance PyValue a => PyValue (NonEmpty a) where


  		





  83
  83
  
    
  showValue = showValue . fromNonEmpty


  		





  84
  
  
    
  


  		





  
  84
  
    

  		





  85
  85
  
    
-- FIXME: should use the 'toRaw' function instead of being harcoded or


  		





  86
  86
  
    
-- perhaps use something similar to the NonNegative type instead of


  		





  87
  87
  
    
-- using the declareSADT


  		





  ......




  107
  107
  
    
  showValue (JSObject obj) = showValue obj


  		





  108
  108
  
    
  showValue x = show x


  		





  109
  109
  
    

  		





  110
  
  
    
type JobIdListOnly = [(Bool, Either String JobId)]


  		





  
  110
  
    
type JobIdListOnly = Map String [(Bool, Either String JobId)]


  		





  111
  111
  
    

  		





  112
  112
  
    
type InstanceMultiAllocResponse =


  		





  113
  113
  
    
  ([(Bool, Either String JobId)], NonEmptyString)


  		












Also available in:
  Unified diff