Revision 13b17073

b/htools/Ganeti/Query/Language.hs
54 54 
    ) where
55 55 

  		





  56
  56
  
    
import Control.Applicative


  		





  
  57
  
    
import Control.DeepSeq


  		





  57
  58
  
    
import Data.Foldable


  		





  58
  59
  
    
import Data.Traversable (Traversable, traverse, fmapDefault, foldMapDefault)


  		





  59
  60
  
    
import Data.Ratio (numerator, denominator)


  		





  ......




  79
  80
  
    
  ])


  		





  80
  81
  
    
$(makeJSONInstance ''ResultStatus)


  		





  81
  82
  
    

  		





  
  83
  
    
-- | No-op 'NFData' instance for 'ResultStatus', since it's a single


  		





  
  84
  
    
-- constructor data-type.


  		





  
  85
  
    
instance NFData ResultStatus


  		





  
  86
  
    

  		





  82
  87
  
    
-- | Check that ResultStatus is success or fail with descriptive


  		





  83
  88
  
    
-- message.


  		





  84
  89
  
    
checkRS :: (Monad m) => ResultStatus -> a -> m a


  		





  ......




  380
  385
  
    
  , rentryValue  :: Maybe ResultValue -- ^ The (optional) result value


  		





  381
  386
  
    
  } deriving (Show, Eq)


  		





  382
  387
  
    

  		





  
  388
  
    
instance NFData ResultEntry where


  		





  
  389
  
    
  rnf (ResultEntry rs rv) = rnf rs `seq` rnf rv


  		





  
  390
  
    

  		





  383
  391
  
    
instance JSON ResultEntry where


  		





  384
  392
  
    
  showJSON (ResultEntry rs rv) =


  		





  385
  393
  
    
    showJSON (showJSON rs, maybe JSNull showJSON rv)


  		












Also available in:
  Unified diff