Revision 74b3f734 src/Ganeti/Query/Common.hs

b/src/Ganeti/Query/Common.hs
135 135 
timeStampFields :: (TimeStampObject a) => FieldList a b
136 136 
timeStampFields =
137 137 
  [ (FieldDefinition "ctime" "CTime" QFTTimestamp "Creation timestamp",
138 
     FieldSimple (rsNormal . cTimeOf), QffNormal)
138 
     FieldSimple (rsNormal . TimeAsDoubleJSON . cTimeOf), QffNormal)
139 139 
  , (FieldDefinition "mtime" "MTime" QFTTimestamp "Modification timestamp",
140 
     FieldSimple (rsNormal . mTimeOf), QffNormal)
140 
     FieldSimple (rsNormal . TimeAsDoubleJSON . mTimeOf), QffNormal)
141 141 
  ]
142 142 

  		





  143
  143
  
    
-- | The list of UUID fields.


  		












Also available in:
  Unified diff