Revision a2b55ccd src/Ganeti/ConstantUtils.hs

b/src/Ganeti/ConstantUtils.hs
42 42 
instance PyValue PythonChar where
43 43 
  showValue c = "chr(" ++ show (ord (unPythonChar c)) ++ ")"
44 44 

  		





  
  45
  
    
-- | 'PythonNone' wraps Python 'None'


  		





  
  46
  
    
data PythonNone = PythonNone


  		





  
  47
  
    

  		





  
  48
  
    
instance PyValue PythonNone where


  		





  
  49
  
    
  showValue _ = "None"


  		





  
  50
  
    

  		





  45
  51
  
    
-- | FrozenSet wraps a Haskell 'Set'


  		





  46
  52
  
    
--


  		





  47
  53
  
    
-- See 'PyValue' instance for 'FrozenSet'.


  		












Also available in:
  Unified diff