Revision 74b3f734 src/Ganeti/Objects.hs

b/src/Ganeti/Objects.hs
94 94 
import qualified Data.Map as Map
95 95 
import qualified Data.Set as Set
96 96 
import Data.Word
97 
import System.Time (ClockTime(..))
97 98 
import Text.JSON (showJSON, readJSON, JSON, JSValue(..), fromJSString)
98 99 
import qualified Text.JSON as J
99 100 

  		





  ......




  125
  126
  
    

  		





  126
  127
  
    
-- | Class of objects that have timestamps.


  		





  127
  128
  
    
class TimeStampObject a where


  		





  128
  
  
    
  cTimeOf :: a -> Double


  		





  129
  
  
    
  mTimeOf :: a -> Double


  		





  
  129
  
    
  cTimeOf :: a -> ClockTime


  		





  
  130
  
    
  mTimeOf :: a -> ClockTime


  		





  130
  131
  
    

  		





  131
  132
  
    
-- | Class of objects that have an UUID.


  		





  132
  133
  
    
class UuidObject a where


  		












Also available in:
  Unified diff